home *** CD-ROM | disk | FTP | other *** search
/ HOT Scene Stuff / hotscenestuffzyklop1996.iso / diskmags / deutsch / microcod / micro5 / source / bas / kombi1_5.bas < prev    next >
BASIC Source File  |  1995-06-24  |  327b  |  14 lines
  1. $STACK &H1800
  2. CLS
  3. INPUT "Geben Sie bitte eine Zahl ein: ", N%
  4. PRINT "Die Fakultät der Zahl";N%;" lautet: "; FNFakultaet## (N%)
  5. DEF FNFakultaet##(N%)
  6.   IF N% >1 AND N%<=150 THEN
  7.     FNFakultaet## = N%*FNFakultaet##(N%-1)
  8.   ELSEIF N%=0 OR N%=1 THEN
  9.     FNFakultaet## = 1
  10.   ELSE
  11.     FNFakultaet##=-1
  12.   END IF
  13. END DEF
  14.