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