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

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;

end;

y:=ln(x);

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

end;

procedure TForm3.Butt_cosClick(Sender: TObject);

begin

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

y:=cos(x);

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

end;

procedure TForm3.Butt_xClick(Sender: TObject);

begin

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

y:=exp(x);

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

end;

procedure TForm3.N2Click(Sender: TObject);

begin

Form3.Edit1.Width:=249;

Form3.Width:=266;

end;

procedure TForm3.N3Click(Sender: TObject);

begin

Form3.Edit1.Width:=320;

Form3.Width:=339;

end;

procedure TForm3.FormCreate(Sender: TObject);

begin

oper:= 0;

end;

proсedure TForm3.Edit1Change(Sender: TObject; var Key: Char);

begin

Key:= Chr(0);

end;

procedure TForm3.N4Click(Sender: TObject);

begin

Form3.Close;

end;

end.