Basic/data/DATA.BAS

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