factln.txt

用于开发税务票据管理的软件

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;