请问用delphi实现N阶层算法,要求用函数或者过程

Question

如题所问!

Answer 1

Function JC(N:Integer):Integer;
begin
 if N=0 then
 begin 
  Result:=1;
  Exit;
 end;
 Result:=N*JC(N-1); 
end;

Answer 2

Function JC(N: Integer): Int64;
var
  i: Integer
begin
  Result := 1;
  if N<=0 then Exit;
  for i := 2 to N do
    Result := Result * i;
end;//考虑两个问题:一是效率;二是溢出

Answer 3

Function JC(N:Integer):Integer;
var
I:Integer;
begin
  if N<=0 then exit;
    for I:=1 to N do
          Result:=Result*I;
end;