unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;

type

TForm1 = class(TForm)

l_dana: TLabel;

e_dana: TEdit;

d_wynik: TLabel;

Oblicz: TButton;

Koniec: TButton;

l_wynik: TLabel;

procedure KoniecClick(Sender: TObject);

procedure ObliczClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.KoniecClick(Sender: TObject);

begin

close

end;

procedure TForm1.ObliczClick(Sender: TObject);

var ob_kw, bok, dlugosc:integer;

ob_kola, ob_calk:real;

begin

bok:=4;

ob_kw:=0;

ob_kola:=0;

ob_calk:=0;

dlugosc:=StrToInt(e_dana.text);

repeat

ob_kw:=4*bok;

ob_kola:=pi*bok;

ob_calk:=ob_calk+ob_kw+ob_kola;

bok:=bok+2;

wpis:=wpis+1;

until

ob_calk>dlugosc;

l_wynik.caption:=FloatToStr(wpis);

end;

end.