mirror of
https://github.com/mbirth/gwbasic.git
synced 2024-09-20 01:03:26 +01:00
56 lines
1.5 KiB
QBasic
56 lines
1.5 KiB
QBasic
|
10 CLS
|
|||
|
|
20 COLOR 15
|
|||
|
|
30 INPUT"Geben Sie den Maximalwert f<>r die Primzahlen an:",MAX
|
|||
|
|
40 CLS
|
|||
|
|
50 DIM V(MAX)
|
|||
|
|
60 B=12
|
|||
|
|
70 C=1
|
|||
|
|
80 A=1
|
|||
|
|
90 U=1
|
|||
|
|
100 FOR Z=1 TO A
|
|||
|
|
110 Y=A/Z
|
|||
|
|
120 LOCATE 1,1:PRINT "Akt. Ergebnis: ";Y;" "
|
|||
|
|
130 LOCATE 2,1:PRINT "Mom. Teiler : ";Z;" "
|
|||
|
|
140 LOCATE 3,1:PRINT " schon ";X;"x geteilt "
|
|||
|
|
150 LOCATE 4,1:PRINT "Akt. Zeile : ";B-11;" "
|
|||
|
|
160 LOCATE 5,1:PRINT "Primzahlen : ";(C-1)/5;" "
|
|||
|
|
170 LOCATE 6,1:PRINT "Akt. Zahl : ";A;"von ";MAX;" "
|
|||
|
|
180 LOCATE 7,1:PRINT " Noch ";MAX-A;" Werte "
|
|||
|
|
190 LOCATE 11,1:PRINT SPACE$(80)
|
|||
|
|
200 IF Y=INT(Y) THEN X=X+1
|
|||
|
|
210 IF X>2 THEN 250
|
|||
|
|
220 IF X=2 AND Z<A THEN 250
|
|||
|
|
230 NEXT Z
|
|||
|
|
240 IF X=2 OR A=1 THEN GOSUB 300
|
|||
|
|
250 X=0
|
|||
|
|
260 A=A+1
|
|||
|
|
270 IF A>MAX THEN LOCATE 23,1:GOTO 390
|
|||
|
|
280 IF W=1 THEN GOSUB 360:W=0
|
|||
|
|
290 GOTO 100
|
|||
|
|
300 REM Unterroutine
|
|||
|
|
310 LOCATE 3,33:SOUND 2000,.5
|
|||
|
|
320 COLOR 12,0,0:PRINT"Primzahl gefunden...":COLOR 14,0,0
|
|||
|
|
330 X=0:LOCATE B,C:PRINT A:C=C+5:IF C>75 THEN C=1:B=B+1:IF B>23 THEN B=12:C=1
|
|||
|
|
340 V(U)=A:U=U+1:W=1
|
|||
|
|
350 RETURN
|
|||
|
|
360 REM Unterroutine
|
|||
|
|
370 COLOR 15,0,0:LOCATE 3,33:PRINT" "
|
|||
|
|
380 RETURN
|
|||
|
|
390 REM Endroutine
|
|||
|
|
400 PRINT"Wenn fertig Taste dr<64>cken..."
|
|||
|
|
410 A$=INKEY$:IF A$="" THEN 410
|
|||
|
|
420 CLS
|
|||
|
|
430 COLOR 14,0,0
|
|||
|
|
440 A=1
|
|||
|
|
450 B=1
|
|||
|
|
460 C=1
|
|||
|
|
470 FOR Z=1 TO MAX
|
|||
|
|
480 IF V(Z)=0 THEN GOTO 510
|
|||
|
|
490 LOCATE B,C:PRINT V(Z)
|
|||
|
|
500 C=C+5:IF C>75 THEN B=B+1:C=1:IF B>23 THEN B=1
|
|||
|
|
510 NEXT Z
|
|||
|
|
520 COLOR 10
|
|||
|
|
530 LOCATE 23,1:PRINT"Wenn bereit Taste dr<64>cken..."
|
|||
|
|
540 A$=INKEY$:IF A$="" THEN 540
|
|||
|
|
550 CLS:COLOR 15,0,0
|
|||
|
|
|