![]() |
Order and save right now!
20% off with the 729824315 dicscount code for Ultimate Pack and any another product for Delphi from Greatis Programming! |
⤷ Find factorial value
This example shows how to get factorial value for all numbers in [1, 30] interval
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
Num: Real;
begin
Num:=1;
for i:=1 to 30 do
begin
Num:=Num*i;
Memo1.Lines.Add(IntToStr(i)+'! = '+FloatToStr(Num));
end;
end;
-
More for developers