home *** CD-ROM | disk | FTP | other *** search
/ HOT Scene Stuff / hotscenestuffzyklop1996.iso / diskmags / deutsch / microcod / micro5 / source / bas / kombi1_4.bas < prev    next >
BASIC Source File  |  1995-06-24  |  299b  |  11 lines
  1. 2 FAKULTAET!=1
  2. 3 CLS
  3. 4 INPUT "Geben Sie bitte eine Zahl ein: ", N%
  4. 5 Z%=N%
  5. 6 GOTO 10
  6. 7 PRINT "Die Fakultät der Zahl"; Z%; " lautet: "; FAKULTAET!
  7. 8 END
  8. 10 REM  FAKULTAET! (N!)
  9. 11 IF (N%=0) OR (N%=1) THEN FAKULTAET! = FAKULTAET!*1 : GOTO 7
  10. 12 FAKULTAET! = FAKULTAET!*N% : N%=N%-1 : GOTO 11
  11.