Курсовая работа: Створення програми-органайзера

oper:=1;

f:=0;

end;

end;

procedure TForm3.Butt_sqrt_corinClick(Sender: TObject);

begin

x:=StrToFloat(form3.Edit1.Text);

if (x<0) then

begin

messagedlg('Квадратного кореня з від*ємного числа неіснує!',mtError,[mbOk],0); exit;

end;

y:=sqrt(x);

Form3.Edit1.Text:=FloatToStr(y);

end;

procedure TForm3.Butt_stepClick(Sender: TObject);

begin

x:=StrToFloat(form3.Edit1.Text);

y:=sqr(x);

Form3.Edit1.Text:=FloatToStr(y);

end;

procedure TForm3.Butt_na_xClick(Sender: TObject);

begin

x:=StrToFloat(form3.Edit1.Text);

y:=1/x;

Form3.Edit1.Text:=FloatToStr(y);

end;

procedure TForm3.Butt_dorivClick(Sender: TObject);

begin

if f = 0