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

s:='';t:=0;

if m<>0 then edit2.text:=('M ')

else edit2.text:=(' ');

end;

procedure TForm5.Button34Click(Sender: TObject);

begin

val(s1,y,i); m:=y;

s:='';t:=0;

if m<>0 then edit2.text:=('M ')

else edit2.text:=(' ');

end;

procedure TForm5.Button35Click(Sender: TObject);

begin

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

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

s:='';t:=0;

end;

procedure TForm5.Button36Click(Sender: TObject);

begin

m:=0;

if m<>0 then edit2.text:=('M ')

else edit2.text:=(' ');

end;

procedure TForm5.Button11Click(Sender: TObject);

begin

if t=0 then

begin

s:=s+'.'; s1:=s;

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