home *** CD-ROM | disk | FTP | other *** search
/ HOT Scene Stuff / hotscenestuffzyklop1996.iso / diskmags / deutsch / microcod / micro5 / source / bas / kombi2_1.bas < prev    next >
BASIC Source File  |  1995-06-24  |  450b  |  18 lines
  1. $STACK &H1800
  2. CLS
  3. INPUT "Geben Sie bitte eine Zahl für n ein: ", n%
  4. INPUT "Geben Sie bitte eine Zahl für k ein: ", k%
  5. A%=N%-K%
  6. PRINT "Die Zahl der Möglichkeiten für";n%;"über";k%;"ist :";
  7. PRINT FNFakultaet##(N%)/(FNFakultaet##(K%)*FNFakultaet##(A%))
  8.  
  9. DEF FNFakultaet##(X%)
  10.  IF X% >1 AND X%<=170 THEN
  11.    FNFakultaet## = X%*FNFakultaet##(X%-1)
  12.  ELSEIF X%=0 OR X%=1 THEN
  13.    FNFakultaet## = 1
  14.  ELSE
  15.    FNFakultaet## = -1
  16.  END IF
  17. END DEF
  18.