home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / NRPAS13.ZIP / BICO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-04-29  |  106 b   |  5 lines
  1. FUNCTION bico(n,k: integer): real;
  2. BEGIN
  3.    bico := round(exp(factln(n)-factln(k)-factln(n-k)));
  4. END;
  5.