bico.txt

来自「1.г函数、贝塔函数、阶乘及二项式系数 2.不完全г函数、误差函数 3.不完」· 文本 代码 · 共 4 行

Function BICO(N,K:Integer):real;
begin
  BICO:=Int(Exp(FACTLN(N)-FACTLN(K)-FACTLN(N-K)));
end;