Fibonacci-Zahlen
MSW-Basic
Wolfgang.Urban@schule.at

Nur Algorithmus 3 ist möglich, da
Basic keine lokalen Variablen und
Unterprogramme ermöglicht.
---------------------------------

1 N = 10
2 GOSUB 300
3 PRINT F
4 END

298 REMARK ALGORITHMUS 3
299 REMARK N=WIEVIELTE, F=ERGEBNIS
300 IF N>2 THEN GOTO 303
301 F = 1
302 GOTO 311
303 A = 1
304 B = 1
305 FOR Z = 3 TO N
306 NEU = A + B
307 A = B
308 B = NEU
309 NEXT Z
310 F = NEU
311 RETURN

RUN