XProfan

'PrimTurbo, cela Turbo-Primzahlensuchprogramm de @Johnathan, ici sans Assemblercode
'Findet alle Primzahlen de 2 - z.B. 100.000 dedans de 12,6 Sekunden (Interpreter!)
Titre de la fenêtre "Jonathans PRIM-TURBO"
Cls
Déclarer Primeln&[], PrimIndex&, MaxPrimel&, ActPrimel&, StartZeit&, PrimCount&, Ausgabe%, JN$
Imprimer "Primzahlen trouver jusqu'à: ";
Contribution MaxPrimel&
Primeln&[MaxPrimel&] = 0
Imprimer »
Imprimer "Primzahlen volonté gesucht..."
StartZeit& = &gettickcount

WhileLoop 4, MaxPrimel&, 2

    Primeln&[&loop] = 1

Endwhile

WhileLoop 3, (MaxPrimel& \ 3) + 1

    ActPrimel& = &loop

    Si Primeln&[ActPrimel&] = 0

        WhileLoop 3, (MaxPrimel& \ ActPrimel&), 2

            Primeln&[&loop * ActPrimel&] = 1

        Endwhile

    EndIf

Endwhile

Imprimer »
Imprimer "Suchen abgeschlossen."
Imprimer "Benötigte Zeit: " + @Str$((&gettickcount - StartZeit&) / 1000) + " Sekunden."
Imprimer »
Imprimer "Primzahlen zählen (J/N)? ";
Contribution JN$

Si @Upper$(JN$) = "J"

    Imprimer »
    Imprimer "Primzahlen volonté gezählt..."
    PrimCount& = 0

    WhileLoop 2, MaxPrimel&

        Si Primeln&[&loop] = 0

            Inc PrimCount&

        EndIf

    Endwhile

    Imprimer »
    Imprimer "Gefundene Primzahlen: " + @Str$(PrimCount&)

EndIf

Imprimer »
Imprimer "Ausgeben (0 = pas ausg.; 1 = Im la fenêtre ausgeben;"
Imprimer "2 = dans Dossier ausgeben; 3 = beides)? ";
Contribution Ausgabe%

Si (Ausgabe% Mod 2)

    Imprimer »
    Imprimer "Ausgabe:"

    WhileLoop 2, MaxPrimel&

        Si Primeln&[&loop] = 0

            Imprimer &loop,

            si %csrlin>25:cls

            endif

        EndIf

    Endwhile

EndIf

Si (Ausgabe% \ 2)

    Imprimer »
    Imprimer "Dateiausgabe..."
    Assign #1, "Primzahlen.txt"
    Réécriture #1

    WhileLoop 2, MaxPrimel&

        Si Primeln&[&loop] = 0

            Imprimer #1, &loop

        EndIf

    Endwhile

    Fermer #1

EndIf

WaitInput
Fin