Процедура обробки клацання на кнопці «Обчислення»

procedure TForm1.Button1Click(Sender: TObject);

var An, hA, X, Y, A, b, c: real;

K: integer;

Begin

An:=StrToFloat(Edit_An.Text);

hA:=StrToFloat(Edit_hA.Text);

B:=StrToFloat(Edit_b.Text);

C:=StrToFloat(Edit_c.Text);

K:=0; A:=An;

X:=exp(ln(sqr(A+B))/3);

while (X<=C) do

Begin

Y:=exp(X);

K:=K+1;

Memo1.Lines.Add('A = '+FormatFloat('##0.0',A)+

' X = ' +FormatFloat('##0.0',X)+

' Y = '+FormatFloat('##0.0',Y));

A:=A+hA;

X:=exp(ln(sqr(A+B))/3);

end;

Edit_K.Text:=IntToStr(K);

end;

Процедура обробки клацання на кнопці«Очищення»

procedure TForm1.Button_ClearClick(Sender: TObject);

Begin

Edit_An.Clear;

Edit_hA.Clear;

Edit_b.Clear;

Edit_c.Clear;

Edit_K.Clear;

Memo1.Clear;

end;