mirror of
https://github.com/mbirth/gwbasic.git
synced 2024-11-09 23:06:45 +00:00
28 lines
714 B
QBasic
28 lines
714 B
QBasic
|
10 CLS
|
|||
|
|
20 INPUT"Geben Sie den Maximalwert f<>r die Primzahlen an:",MAX
|
|||
|
|
30 CLS
|
|||
|
|
40 B=5
|
|||
|
|
50 C=1
|
|||
|
|
60 A=1
|
|||
|
|
70 FOR Z=1 TO A
|
|||
|
|
80 Y=A/Z
|
|||
|
|
90 LOCATE 1,1:PRINT Y;" "
|
|||
|
|
100 LOCATE 2,1:PRINT A;" "
|
|||
|
|
110 IF Y=INT(Y) THEN X=X+1
|
|||
|
|
120 NEXT Z
|
|||
|
|
130 IF X=2 OR A=1 THEN GOSUB 190
|
|||
|
|
140 X=0
|
|||
|
|
150 A=A+1
|
|||
|
|
160 IF A>MAX THEN LOCATE 23,1:END
|
|||
|
|
170 IF W=1 THEN GOSUB 250:W=0
|
|||
|
|
180 GOTO 70
|
|||
|
|
190 REM Unterroutine
|
|||
|
|
200 LOCATE 3,1:SOUND 2000,.5
|
|||
|
|
210 COLOR 12,0,0:PRINT"Primzahl gefunden...":COLOR 14,0,0
|
|||
|
|
220 X=0:LOCATE B,C:PRINT A:C=C+5:IF C>75 THEN C=1:B=B+1
|
|||
|
|
230 COLOR 15,0,0:LOCATE 3,1:PRINT"Primzahl gefunden..."
|
|||
|
|
240 RETURN
|
|||
|
|
250 REM Unterroutine
|
|||
|
|
260 COLOR 15,0,0:LOCATE 3,1:PRINT"Primzahl gefunden..."
|
|||
|
|
270 RETURN
|
|||
|
|
|