23 lines
574 B
QBasic
23 lines
574 B
QBasic
10 CLS
|
|
12 DATA 10
|
|
20 READ n
|
|
30 n=n-1
|
|
40 DIM #n(n,1),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!"
|
|
160 REM Daten
|
|
210 DATA Hinz,Mario,16,Kunz,Ines,13
|
|
220 DATA Fender,Tom,23,Cohn,Sarah,19
|
|
230 DATA Tille,Hans-Juergen,34,Spaeth,Robert,20
|
|
240 DATA Schneider,Olga,67,Sachse,Caesar,12
|
|
250 DATA Fritz,Matthias,44,Schroeder,Frank,52
|
|
|