26 lines
628 B
QBasic
26 lines
628 B
QBasic
10 CLS :PRINT "Dies ist ein Programm, indem die DATA-"
|
|
11 PRINT "Zeilen nachgeladen werden und das Pro-"
|
|
12 PRINT "gramm danach weiter abgearbeitet wird"
|
|
13 PRINT " ":PRINT "Druecke eine Taste"
|
|
14 a=INKEY
|
|
15 IF a=0 THEN GOTO 14
|
|
16 DATA 10
|
|
17 PRINT "Lade Daten.."
|
|
18 LOAD "data.dat",3
|
|
19 RESTORE
|
|
20 READ n
|
|
30 n=n-1
|
|
40 DIM #n(n,1)
|
|
50 DIM a(n)
|
|
60 FOR i=0 TO n
|
|
70 READ #n(i,0),#n(i,1),a(i)
|
|
80 NEXT i
|
|
90 INPUT "Altersgrenze?:";g
|
|
100 IF g<1 THEN GOTO 90
|
|
110 PRINT "Aelter als ";g;" Jahre sind:":PRINT " "
|
|
120 FOR i=0 TO n
|
|
130 IF a(i)>g THEN PRINT #n(i,1);",";#n(i,0);",";a(i):K=1
|
|
140 NEXT i
|
|
150 IF k=0 THEN PRINT "Keine Personen!"
|
|
|