Hi!
Hatte etwas Zeit und mir gedacht, daß so etwas noch keiner programmiert hat oder es allen einfach zu simpel war. Deshalb habe ich mich dieser "anspruchsvollen" Aufgabe zugewandt und tatsächlich fast 15 Minuten mit diesem Programm zugebracht (wobei nebenher der Fernseher lief!!!).
Tja, hier ist mein PRIMZAHLENRECHNER MIT *.TXT - AUSGABE :-)
PS.: Nach 2 Schönheitskorrekturen sind es nun doch 31 "Worte"...
LOCAL a, bis, b, c, d, e, f
d = 0
e = 0
// --------------------------------- //
PRINT "Dieses Programm errechnet Primzahlen! Bitte geben sie das Ende der Berechnugn an!", 0, 0
PRINT "Endzahl: ", 0, 20
INPUT bis, 60, 20
SHOWSCREEN
// --------------------------------- //
FOR a = 1 TO bis
PRINT "Aktuelle Zahl:" + a, 0, 0
IF a = 1 OR a = 2 OR a = 3 THEN GOTO prim
f = MOD(a, 2)
IF f = 0 THEN GOTO weiter
FOR c = 2 TO INTEGER((a / 2) - 1)
b = MOD(a, c)
IF b = 0 THEN GOTO weiter
NEXT
IF b > 0 THEN GOTO prim
prim:
PRINT "Primzahl: " + a, 0, 20
PUTFILE "prim" + e + ".txt", d, (d + (e * 255) + 1) + ": " + a
d = d + 1
IF d = 254 THEN e = e + 1
IF d = 254 THEN d = 0
weiter:
SHOWSCREEN
NEXT