home *** CD-ROM | disk | FTP | other *** search
/ HOT Scene Stuff / hotscenestuffzyklop1996.iso / diskmags / deutsch / microcod / micro5 / source / bas / fotofak.bas < prev    next >
BASIC Source File  |  1995-10-31  |  503b  |  21 lines
  1. $STACK &H1800
  2. CLS
  3. INPUT "Gib bitte die Zahl der Personen ein: ", N%
  4. PRINT
  5. KOMBZAHL%=FNFakultaet## (N%)
  6. PRINT "Die Zahl der Fotos bei";N%;
  7. PRINT "Personen ist: "; KOMBZAHL%
  8. PRINT
  9. PRINT "Der Gesamtpreis der Fotos (12,80 DM pro Abzug ist):";
  10. PRINT USING "#####.##";(KOMBZAHL%*12.80);:PRINT " DM."
  11. DEF FNFakultaet##(N%)
  12.   IF N% >1 AND N%<=170 THEN
  13.     FNFakultaet## = N%*FNFakultaet##(N%-1)
  14.   ELSEIF N%=0 OR N%=1 THEN
  15.     FNFakultaet## = 1
  16.   ELSE
  17.     FNFakultaet##=-1
  18.   END IF
  19. END DEF
  20.  
  21.