factln.txt

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

Function FACTLN(N:integer):real;
var
    I:integer;
    A:array[1..100] of real;
begin
    For I:=1 To 100 do
      A[I]:=-1;
    If N < 0 Then  ShowMessage('警告：现在N<0，请修改程序');
    If N <= 99 Then
    begin
        If A[N + 1] < 0 Then A[N + 1]:=GAMMLN(N + 1);
        FACTLN:=A[N + 1];
    end
    Else
      FACTLN:=GAMMLN(N + 1);
end;