[toper]

Всё дотумкал в Эйлере что да как =))

Код сейас такой

Код:

unit VichisleniePi;

interface

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

type
  TForm1 = class(TForm)
    Sharp: TEdit;
    Leybnitc: TEdit;
    Eyler: TEdit;
    Calc: TBitBtn;
    lbl1: TLabel;
    lbl2: TLabel;
    lbl3: TLabel;
    lbl4: TLabel;
    Tochnost: TEdit;
    lbl5: TLabel;
    procedure CalcClick(Sender: TObject);
    procedure TochnostKeyPress(Sender: TObject; var Key: Char);
    procedure SharpKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CalcClick(Sender: TObject);

var i, n, sig: integer;
     s, cur:Extended;
     
BEGIN
  if Tochnost.Text='' then ShowMessage('Введите точность')
  else
   begin
   n := StrToInt(Tochnost.Text);
    if n>10300 then ShowMessage('Слишком большая точность')
    else
      begin
        begin

        s := 0; cur := 1;
         for i := 1 to n do
          begin
            s := s + 1 / (cur * (2 * i - 1));
            cur := - cur * 3;
          end;
         s := s * sqrt(12);
          Sharp.Text:=FloatToStr(s);
        end;
          begin
          s :=0;
           sig := 1;
            for i := 0 to n do
             begin
               s := s + sig * 4 / ( 2*i + 1);
                sig := -sig;
             end;
           Leybnitc.Text:=FloatToStr(s)
          end;
            begin
            s:= 0;
             for i := 1 to n do
              begin
                s:= s + 1/sqr(i) ;
              end;
             s:= Sqrt(6*s)   ;
              Eyler.Text:=FloatToStr(s)
            end;
      end;
    end;
END;

procedure TForm1.TochnostKeyPress(Sender: TObject; var Key: Char);
begin
 if not (key in ['0'..'9',#8]) then key:=#0;
end;

procedure TForm1.SharpKeyPress(Sender: TObject; var Key: Char);
begin
 Key:=#0
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
Tochnost.SetFocus;
end;

end.       

Теперь надо

Сравнить полученные значения, в качестве критерия сравнения использовать количество членов ряда, необходимых для вычисления числа π

я непойму чего от меня тут хотят ((

Помогите, а?