Page 20 - 4260

code:integer; // для перетворення
тексту в число
a,b: real;
st1,st2:string[10];
begin // ввід вихідних даних в поле редагування
val(Edit1.text,x,code); // перетворення тексту в
число
val(Edit2.text,y,code);
val(Edit3.text,z,code);
a:=y*(sqr(x)+sqrt(sqr(z)))/(sqr(y)+sqr(x));
b:=ln(y+sqr(x)+sin(z/x));
str(a:10:5,st1);
str(b:10:5,st2);
Label1.Caption:='Розвязок виразу:'+
chr(13)+'a='+st1+ chr(13)+'b='+st2;

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Label1.Caption:='';
Edit1.SetFocus;

end;
end.

20