unit Ldiametr;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    Label2: TLabel;
    Label3: TLabel;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

procedure Zn;
var
  N: integer;
  I: integer;
  S: extended;
  P: extended;
begin
  N:=StrToInt(Form1.Edit1.Text);
  S:=0;
  for I:=1 to N do
    if I mod 2 = 0 then S:=S-1/(2*I-1) else S:=S+1/(2*I-1);
  P:=S*4;
  Form1.Label3.Caption:='Пи = '+FloatToStr(P)+'      по формуле 1     '+
  'n='+IntToStr(N);;
end;

procedure Vallis;
var
  N: integer;
  I: integer;
  P: extended;
begin
  N:=StrToInt(Form1.Edit1.Text);
  P:=2;
  for I:=1 to N do
    P:=P*2*I/(2*I-1)*2*I/(2*I+1);
  Form1.Label3.Caption:='Пи = '+FloatToStr(P)+'      по формуле 2     '+
  'n='+IntToStr(N);;
end;

procedure dzeta2;
var
  N: integer;
  I: integer;
  P: extended;
  S: extended;
begin
  N:=StrToInt(Form1.Edit1.Text);
  S:=0;
  for I:= 1 to N do
  S:=S+1/I/I;
  P:=Sqrt(6*S);
  Form1.Label3.Caption:='Пи = '+FloatToStr(P)+'      по формуле 3     '+
  'n='+IntToStr(N);
end;

procedure dzeta4;
var
  N: integer;
  I: integer;
  P: Extended;
  S: Extended;
begin
  N:=StrToInt(Form1.Edit1.Text);
  S:=0;
  for I:= 1 to N do
  S:=S+1/I/I/I/I;
  P:=Sqrt(Sqrt(90*S));
  Form1.Label3.Caption:='Пи = '+FloatToStr(P)+'      по формуле 4     '+
  'n='+IntToStr(N);
end;


procedure Algorithm;
var
  N: integer;
  I: integer;
  P: extended;
begin
  N:=StrToInt(Form1.Edit1.Text);
  P:=N/(2*N+1)*4+2;
  for I:=(N-1) downto 1 do
    P:=P*I/(2*I+1)+2;
  Form1.Label3.Caption:='Пи = '+FloatToStr(P)+'      по формуле 5     '+
  'n='+IntToStr(N);;
end;


{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Zn;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Vallis;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  dzeta2;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  dzeta4;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
  Algorithm;
end;

end.