home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 20 / win_txl / beispiel / fak.txl next >
Encoding:
Text File  |  1990-11-25  |  351 b   |  17 lines
  1. 1   input "Wert fⁿr fak eingeben";fak;
  2. 20  movewindow (20,20,300,200);
  3. 30  print "Berechnung der FakultΣt: ";
  4. 40  print ;
  5. 50  let a = 1;
  6. 60  let b = 1;
  7. 70  print " Hier wird gerechnet...";
  8. 80  print ;
  9. 90  let b = b * a;
  10. 100 let a = a + 1;
  11. 110 if a <= fak;
  12. 120 goto 90;
  13. 130 print "Die FakultΣt von ",fak," ist ",b;
  14. 170 print ;
  15. 180 end
  16.  
  17.