type
TStrNum = String;
// Compares two numbers and returns the result as follow:
// if Num1 < Num2 then returns -1
// if Num1 = Num2 then returns = 0
// if Num1 > Num2 then returns +1
function Compare(const Num1, Num2: TStrNum): Integer;
begin
if Length(Num1) < Length(Num2) then
Result := -1
else if Length(Num1) > Length(Num2) then
Result := +1
else
if Num1 < Num2 then
Result := -1
else if Num1 > Num2 then
Result := +1
else
Result := 0;
end;
// Returns the addition of two numbers
function Add(const Num1, Num2: TStrNum): TStrNum;
var
Digit1, Digit2: Integer;
DigitSum, Carry: Integer;
I1, I2: Integer;
begin
Result := '';
Carry := 0;
I1 := Length(Num1);
I2 := Length(Num2);
while (I1 > 0) and (I2 > 0) do
begin
Digit1 := Ord(Num1[I1]) - Ord('0');
Digit2 := Ord(Num2[I2]) - Ord('0');
DigitSum := Digit1 + Digit2 + Carry;
Carry := 0;
if DigitSum >= 10 then
begin
DigitSum := DigitSum mod 10;
Carry := 1;
end;
Result := Chr(DigitSum + Ord('0')) + Result;
Dec(I1);
Dec(I2);
end;
while I1 > 0 do
begin
Digit1 := Ord(Num1[I1]) - Ord('0');
DigitSum := Digit1 + Carry;
Carry := 0;
if DigitSum >= 10 then
begin
DigitSum := DigitSum mod 10;
Carry := 1;
end;
Result := Chr(DigitSum + Ord('0')) + Result;
Dec(I1);
end;
while I2 > 0 do
begin
Digit2 := Ord(Num2[I2]) - Ord('0');
DigitSum := Digit2 + Carry;
Carry := 0;
if DigitSum >= 10 then
begin
DigitSum := DigitSum mod 10;
Carry := 1;
end;
Result := Chr(DigitSum + Ord('0')) + Result;
Dec(I2);
end;
if Carry <> 0 then
Result := '1' + Result;
end;
// Returns the multiply of two numbers
function Multiply(const Num1, Num2: TStrNum): TStrNum;
var
N: TStrNum;
begin
Result := '0';
N := '1';
while Compare(N, Num2) <= 0 do
begin
Result := Add(Result, Num1);
N := Add(N, '1');
end;
end;
// Returns the factorial of the given number
function Factorial(N: Cardinal): TStrNum;
var
I: Cardinal;
begin
Result := '1';
for I := 2 to N do
Result := Multiply(Result, IntToStr(I));
end;
Memo1.Text := Factorial(200);
در کد بالا اعداد به صورت رشته‌ای از حروف در نظر گرفته شده‌اند. البته در یک کد با کاربرد واقعی بدلیل سرعت کم و نیاز به حافظه بیشتر٬ چنین انتخابی می‌تواند یکی از بدترین انتخابها باشد.
در ضمن این کد فقط اعداد طبیعی را پشتیبانی می‌کند.
نوشته شده توسط v_shalchian
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول