P189 189 ARD/ZDF Fr 03.01.86 21:01:10
08/09
ßo4 ■ ßo4■ j5
~o4~oo4o4U5%~{4% j5j?}
o~%o~%jj5~%o~% o|4 o~%*}?j}?
pppppppppp pppppppppppppppppppppppppp
KNOW HOW BA+IC-Kopfnuß
"GLEISLÄNGENBERECHNUNC" - 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
1160 IF E G/TO 1090
1170 PRINT§: PRINT "GEWUENSCHTE LAENGE"
;: INPUT A
1180 IF A < 1 OR A > B GOTO 1170
1190 IF A(A) = 0 THEN PRINT
"GEHT NICHTn": GOTO 1170
1200 PRINT A"=";
>>