Nur 25 Worte :-)

[WPShadow]

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"...

Code (glbasic) Select Expand

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

[Kitty Hello]

cool. Bitte Quellcode in [C0DE] [/C0DE] packen

[WPShadow]

Wie??? Wie mache ich das? Was meinst du?

Bin verwirrt...

[BumbleBee]

Hi  WPShadow

Zwischen Code und /Code (beides in eckige Klammern ) kommt dein Code

  Schau mal unter. BBCode:

Übrigens cooles Beispiel und das in 15 Minuten.

Cheers

[Kitty Hello]

Du schreibst:
[C0DE]
PRINT "Hello World", 100, 100
[/C0DE]

und dann siehst Du;

Code (glbasic) Select Expand

PRINT "Hello World", 100, 100Damit sind längere Texte in einem Scroll-Fenster, die Formatierung passt und man kann's besser kopieren/einfügen

[WPShadow]

Ok, wußte ich nicht, aber jetzt ist es klar!  Danke!