home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 10 / int / txl / fib.txl < prev    next >
Encoding:
Text File  |  1990-08-03  |  670 b   |  28 lines
  1.  
  2. 001 setze n = 10;
  3. 010 merke Beispielprogram für TXL
  4. 020 merke Berechnung der Fibonacci Zahlen
  5. 030 merke (c) 1990 Michael Beising & TOOLBOX
  6. 040 drucke " Berechnen der Fibonacci Zahlen."
  7. 050 drucke ;
  8. 060 drucke "Die Obergrenze wird in 'n' gespeichert.";
  9. 070 drucke ;
  10. 080 wenn n > 3
  11. 090 setze n = n - 2;
  12. 100 merke Sonst-Zweig nicht benutzt
  13. 110 setze F0 = 0;
  14. 120 setze F1 = 1;
  15. 130 drucke F1;
  16. 140 drucke " : ";
  17. 150 setze Fnm1 = F0;
  18. 160 setze Fn = F1;
  19. 170 setze Fnp1 = Fn + Fnm1;
  20. 180 drucke Fnp1;
  21. 190 drucke " : ";
  22. 200 setze Fnm1 = Fn;
  23. 210 setze Fn = Fnp1;
  24. 220 setze n = n - 1;
  25. 230 wenn n >= 0
  26. 240 gehezu 170
  27. 250 drucke ;
  28. 260 drucke "Das war's...";