Power-Programmierung/CD1.mdf/pascal/library/dos/nrpas/bico.pas

Pascal/Delphi Source File | 1994-04-11 | 106 b | 5 lines

FUNCTION bico(n,k: integer): real;
BEGIN
   bico := round(exp(factln(n)-factln(k)-factln(n-k)));
END;