var
a,b:integer;
c:real;
begin
a:=strtoint(edit1.text);
b:=strtoint(edit2.text);
if radiobutton1.Checked then
c:=a+b;
edit3.Text:=floattostr(c);
if radiobutton2.Checked then
c:=a-b;
edit3.Text:=floattostr(c);
if radiobutton3.Checked then
c:=a*b;
edit3.Text:=floattostr(c);
if radiobutton4.Checked then
c:=a/b;
edit3.Text:=floattostr(c);
end;
end.
Hiç yorum yok:
Yorum Gönder