Boston 2/boston-2.iso/DOS/PROGRAM/PASCAL/NRPAS/BICO.PAS

Pascal/Delphi Source File | 1993-12-01 | 106b | 5 lines

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