home *** CD-ROM | disk | FTP | other *** search
/ HOT Scene Stuff / hotscenestuffzyklop1996.iso / diskmags / deutsch / microcod / micro5 / source / bas / kombi1_6.bas < prev    next >
BASIC Source File  |  1995-06-24  |  491b  |  13 lines
  1. DECLARE FUNCTION fakultaet (n!) :REM Definition der Funktion
  2. CLEAR , , 5000                  :REM Vergößern des Stapels 
  3. CLS
  4. INPUT "Geben Sie bitte eine Zahl ein: ", n!
  5. PRINT "Die Fakultät der Zahl"; n!; " lautet: "; fakultaet(n!)
  6.  
  7. FUNCTION fakultaet (n!)
  8.  IF n! = 0 THEN fakultaet = 1 
  9.     ELSE fakultaet = n! * fakultaet(n! - 1) :REM rekursiver 
  10.                                              REM Aufruf der
  11.                                              REM Funktion
  12. END FUNCTION
  13.