Курсовая работа: Программа Калькулятор

if radiobutton1.Checked then

f:=y*3.14159265359/180

else f:=y; end;

z:=sin(f);

str(z:6:6,s);okr(s);s1:=s;

edit1.text:=(' '+s);

s:='';t:=0;

end;

procedure TForm5.Button23Click(Sender: TObject);

begin

val(s1,y,i);

if y<>0

then begin

if radiobutton1.Checked

then

f:=y*3.14159265359/180

else f:=y;

z:=sin(f)/cos(f);

str(z:6:6,s);okr(s);s1:=s;

edit1.text:=(' '+s);

end else

begin

messagedlg('На 0 делитьнельзя',mterror,[mbok],0);

end;

s:='';t:=0;

end;

procedure TForm5.Button24Click(Sender: TObject);

begin

val(s1,y,i);