home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 20 / st_txl / xfac.txl < prev   
Encoding:
Text File  |  1985-07-18  |  635 b   |  27 lines
  1.  
  2. 001 setze fak = 10;
  3. 010 merke Beispielprogramm für den TXL-Interpreter
  4. 020 merke Berechnung der Fakultät
  5. 030 merke (c) 1990 Michael Beising & TOOLBOX
  6. 040 drucke "Berechnung der Fakultät: ";
  7. 050 drucke ;
  8. 052 drucke "von welchem Wert";
  9. 054 lese fak;
  10. 060 setze a = 1;
  11. 070 setze b = 1;
  12. 080 drucke " Hier wird gerechnet...";
  13. 090 drucke ;
  14. 100 setze b = b * a;
  15. 110 setze a = a + 1;
  16. 120 wenn a <= fak;
  17. 130 gehezu 100
  18. 140 drucke "Die Fakultät von ";
  19. 150 drucke fak;
  20. 160 drucke " ist ";
  21. 170 drucke b;
  22. 180 drucke ;
  23. 182 drucke "nochmal, dann  ja  eingeben";
  24. 184 lese frage;
  25. 186 wenn frage = "ja";
  26. 188 gehezu 50
  27. 190 ende