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

else begin

DoOper;

oper:=0;

f:=0;

end;

end;

procedure TForm3.Butt_piClick(Sender: TObject);

begin

if f = 0

then begin

Edit1.Text:=floattostr(pi);

f:= 1;

end

else

if Edit1.Text <> '1'

then Edit1.Text:= Edit1.Text + '';

end;

procedure TForm3.Butt_sinClick(Sender: TObject);

begin

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

y:=sin(x);

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

end;

procedure TForm3.Butt_lnClick(Sender: TObject);

begin

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

if (x<1) then

begin

messagedlg('Логарифм від"ємного числа не існує!',mtError,[mbOk],0); exit;