P189 189 ARD/ZDF Do 26.12.85 20:41:08
08/09
~o4 ~o4 j5
~o4~oo4o4j5%~{4% j5j?}
o~%o~%jj5~%o~% o|4 o~%*}?j}?
pppppppppp pppppppppppppppppppppppppp
KNOW HOW BASIC-Kopfnuß
"GLEISLÄNGENBERECHNUNG" - Auflösung:
1110 PRINT F" ";
1120 A(F) = - A(F): FOR G = 1 TO C
1130 IF F+B(G) < = B THEN IF A(F+B(G) )
= 0 THEN A(F+B(G)) = - G:E = 1
1140 NEXT G
1150 NEXT F
■■ *U2utt (■ t? § *U2utt (■ t? *U
1170 PRINT : PRINT "GEWUENSCHTE LAENGE"
;: INPUT A
1180 IF A < 1 OR A > B G/TO 1170
1190 IF A(A) = 0 THEN PRINT
"GEHT NICHT.": GOTO 1170
1200 PRINT A"=";
>>
■■ U*M tW ß §ü_ß_ß?ß■U*M tW ß §ü_ßU