function GetFactorial(AFactor :Integer):Integer;
begin
if (AFactor = 1) or (AFactor<= 0) then
Result := 1
else
Result := AFactor * GetFactorial(AFactor - 1);
end;
注:
Factoria 英文:阶乘
Factor 英文:因子 系数
function GetFactorial(AFactor :Integer):Integer;
begin
if (AFactor = 1) or (AFactor<= 0) then
Result := 1
else
Result := AFactor * GetFactorial(AFactor - 1);
end;
注:
Factoria 英文:阶乘
Factor 英文:因子 系数