Курсовая работа: Разработка программного продукта на языке высокого уровня

procedure Button1Click(Sender: TObject);

procedure Edit1KeyPress(Sender: TObject; var Key: Char);

procedure Edit2KeyPress(Sender: TObject; var Key: Char);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

a,b,s,n:Real;

i:Word;

c:Integer;

begin

a:=(StrToFloat(Edit1.Text));

b:=(StrToFloat(Edit2.Text));

n:=1;

c:=-1;

i:=1;

repeat

i:=i+1;

n:=n+1/i;

c:=-c;

s:=c*n;

until (s<a) or (s>b);