XProfan

Titre de la fenêtre "Faktoren ermitteln per Kofaktorenmethode"
Cls:font 2:declare n&,flg%,i&,nn&
AppendMenuBar 100,"Hinweis: qui jeweiligen Faktoren landen aussi dans qui Zwischenablage!"

Repeat

    si %csrlin>19:waitinput:cls:endif

        imprimer " nombre entier = ";
        input n&
        clearclip
        flg%=0
        printFactors(n&)

    until %clé=27

    Fin

    Proc printFactors :parameters n&

        Cas n&<1:return
        'Imprimer n&,
        imprimer chr$(26),
        i&=1:nn&=n&+1

        Tandis que i&<sqrt(nn&)

            si rnd()<0.1:waitinput 21

                si %clé:flg%=1:pause

                endif

            endif

            Ifnot n& Mod i&

                Imprimer i&;"*";
                Imprimer format$("%g",n&/i&);"=";
                cas %pos>50:imprimer "\n ";
                putclip str$(i&)+"*"+format$("%g",n&/i&)+"="

            endif

            inc i&

        Endwhile

        ifnot flg%

            Imprimer n&,chr$(27),"ok."
            putclip str$(n&)+"\n"

        d'autre

            Imprimer n&,chr$(27);"..stopped"
            putclip " ... \n"

        endif

    ENDPROC