Uses … Math

procedure TForm1.Button_CalcClick(Sender: TObject);

var An,hA,X,Y,A,b,c,t: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)+tan(A);

while (X<=C) do

begin

if (X>0) then

t:=power(X,1/3) else

if (X<0)then

t:=-(power(abs(X),1/3) else t:=0;

Y:=exp(X)+t;

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)+tan(A);

end;

Edit_K.Text:=IntToStr(K);

end;

2. Процедура обработки щелчка на кнопке «Очистка» (кн. Button_clear)

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;

Дата добавления: 2014-01-07