P189 189 ARD/ZDF Do 26.12.85 2055 :40
07/09
■■ **M tW ß §ü ß_ß?ß■U*M tW ß §ü ßU
~o4~oo4o4j5%~{4% j5j?}
o~%o~%jj5~%o~% o|4 o~%*}?j}?
pppppppppp pppppppppppppppppppppppppp
KNOW HOW BASIC-Kopfnuß
"GLEISLÄNGENBERECHNUNG" - Auflösung:
1000 PRINT "MAX.LAENGE ? ";: INPUT B
1010 DIM A(B)
1010 PRINT "WIEVIELE VERSCHIEDENE
STUECKE ? ";: INPUT C
1030 DIM B(C)
1040 FOR D = 1 TO C
■■ *U2utt (■ t? § *U2utt (■ t? *U
;D;" ";
1060 INPUT B(D)
1070 A(A(D)) = - D
1080 NEXT D
1090 E = 0
1100 FOR F = B TO 1 STEP - 1:
IF A(F) > = 0 THEN 1150 >>
■■ U*M tW ß §ü_ß_ß?ß■U*M tW ß §ü_ßU