Вычисление факториала

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  Math;
 
var P,U:integer;
    X:integer;
    j:cardinal;
    f:extended;
    t1,t2:TDateTime;
 
//--- öèêë for
function FactFor(X: int64):extended;
var r:extended;
    i:integer;
begin
  r:=1;
  P:=1;
  U:=0;
  for i:=2 to x do
  begin
  r:=r*i;
  inc(P);
  inc(U);
  end;
  result:=r;
end;
 
//--- ðåêóðñèÿ
 
  function FactRek(X: byte):extended;
 begin
 if X = 1 then
  FactRek:= 1
 else 
  FactRek:= X*FactRek(X-1);
 end;
 
 
 
//--- ôîðìóëà Äæåéìñà-Ñòèðëèíãà
function FactDS(X: int64):extended;
begin
  Result:=round(SQRT(2*Pi*X)*Power(X/Exp(1),X));
end;
 
//------------ main -------------
 
begin
 
  writeln('Vvedite chislo');
  readln(X);
 
  t1:=Time;
  for j:=1 to 1000000 do
  f:=FactFor(X);
  t2:=Time;
  writeln('Factorial = ',f,', time = ', t2-t1);
  writeln('P = ',P,', U = ',U);
 
  t1:=Time;
  for j:=1 to 1000000 do
  f:=FactRek(X);
  t2:=Time;
  writeln('Factorial = ',f,', time = ', t2-t1);
  
  t1:=Time;
  for j:=1 to 1000000 do
  f:=FactDS(X);
  t2:=Time;
  writeln('Factorial = ',f,', time = ', t2-t1);
 
  readln;
 
end.

procedure TForm1.Button1Click(Sender: TObject);
var f,i:integer; res:Extended   ;
begin
f:=strtoint(edit1.Text);
res:=1;
for i:=1 to f do
 res:=res*i;
 
label1.Caption:=floattostr(res);
end;

for i:=2 to x do

function FactRek(X: byte):extended;

function FactDS(X: int64):extended;

function FactDS(X: int64):extended;

function Fact1(n: Integer): Extended;
begin
  Result := 1;
  if n > 1 then
    Result := n*Fact1(n-1);
end;
 
function Fact2(n: Integer): Extended;
var i: Integer;
begin
  Result := 1;
  for i := 1 to n do
    Result := Result * i;
end;
 
function Fact3(n: Int64): Extended;
begin
  Result := 1;
  if n > 1 then
    Result := n*Fact3(n-1);
end;
 
function Fact4(n: Int64): Extended;
var i: Integer;
begin
  Result := 1;
  for i := 1 to n do
    Result := Result * i;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := FloatToStr(Fact1(1754));
  Label2.Caption := FloatToStr(Fact2(1754));
  Label3.Caption := FloatToStr(Fact3(1754));
  Label4.Caption := FloatToStr(Fact4(1754));
end;

//--- формула Джеймса-Стирлинга
function FactDS(X: int64):extended;
begin
  Result:=round(SQRT(2*Pi*X)*Power(X/Exp(1),X));
end;

procedure TMainForm.ButtonClick(Sender: TObject);
 var f, x, i: longint; // Объявляем переменные.
begin
 EditZ.Clear; 
EditY.Text:=EditX.Text; 
 x:=StrToInt(EditX.Text); 
 f:=1; // Принимаем начальный результат за 1.
 for i := 1 to x do
 begin
  f:=f*i; // Находим факториал.
 end;
 if x<0 then ShowMessage('Факториал определен только для целых чисел > 0') 
 else EditZ.Text:=IntToStr(f) // Вывести результат.
end;

procedure TMainForm.ButtonClick(Sender: TObject);
 var f, x, i: longint; // Объявляем переменные.
begin
 EditZ.Clear; 
EditY.Text:=EditX.Text;  
 x:=StrToInt(EditX.Text); 
 f:=1; // Принимаем начальный результат за 1.
 for i := 1 to x do // Счетчик.
 begin
  f:=f*i; // Находим факториал.
 end;
 if x<0 then ShowMessage('Факториал определен только для целых чисел > 0');
 if (f>=-2147483648) or (f<=2147483647) then // Если факториал входит в диапазон Longint, то...
  EditZ.Text:=IntToStr(f) // ...вывести результат.
 else ShowMessage('Ошибка! Превышен диапазон Longint'); // Иначе вывести сообщение об ошибке.
end;

 if (x>=13) then
  ShowMessage('Ошибка! Превышен диапазон Longint.') 
 else EditZ.Text:=IntToStr(f);

 if x>=13 then EditZ.Text:='Факториал > Longint.';

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Edit3: TEdit;
    Button5: TButton;
    Shape1: TShape;
    Shape2: TShape;
    Label1: TLabel;
    SpeedButton1: TSpeedButton;
    Label2: TLabel;
    Button7: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  Result,i: Real;
  function factorial(n: longint): longint;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Result:=Strtofloat(Edit1.Text)+Strtofloat(Edit2.Text);
  Edit3.Text:='Результат '+floattostr(Result);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  Result:=Strtofloat(Edit1.Text)-Strtofloat(Edit2.Text);
  Edit3.Text:='Результат '+floattostr(Result);
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  Result:=Strtofloat(Edit1.Text)*Strtofloat(Edit2.Text);
  Edit3.Text:='Результат '+floattostr(Result);
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
  Result:=Strtofloat(Edit1.Text)/Strtofloat(Edit2.Text);
  Edit3.Text:='Результат '+floattostr(Result);
end;
 
procedure TForm1.Button5Click(Sender: TObject);
begin
Close;
end;
 
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  Result:=Strtofloat(Edit1.Text);
  i:=Result*pi/180;
  Edit3.Text:='Результат '+floattostr(sin(i));
end;
 
procedure TForm1.Button7Click(Sender: TObject);
begin
  Result:=Strtofloat(Edit1.Text);
  if n > 1 then factorial:=n * factorial(n-1)
           else factorial:= 1;
  Edit3.Text:='Результат'+floattostr(factorial);
end;
 
end.