P189 189 ARD/ZDF Fr 03.01.86 21:01:42
07/09
~o4 ~o4 j
~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(A)
1020 PRINT "WIEVIELE VERSCHIEDENE
STUECKE ? ";: INPUT C
1030 DEM B(C)
1050 PRINT "LAERGE DES STUECKES NR)!
;D;" ";
1060 INPUT B(D)
1070 A(B(D)) = - D
1080 NEXT D
1090 E = 0
1100 FOR F = B TO 1 STEP - 1:
IF A(F) > = 0 THEN 1150 >>