P189 189 ARD/ZDF Di 07.01.86 20:38:44
07/09
■■ *U § *U2utt ( ?
~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
■■ **2u W■ § § ■**2u W■ § *
;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 >>
■■ U*M tW ß §ü_ß_ß?ß■U*M tW ß §ü_ßU*