Question

Даны два действительных положительных числа x и y. Арифметические действия над числами пронумерованы (1 – сложение, 2 – вычитание, 3 – умножение, 4 – деление). Составьте программу, которая по введенному номеру выполняет то или иное действие над числами

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
x:=strtoint(edit1.Text);
y:=strtoint(edit2.Text);
b:=strtoint(edit3.text);

if b=1 then begin z:=x+y;
edit4.Text:=floattostr(z);
end;
if b=2 then begin z:=x-y;
edit4.Text:=floattostr(z);
end;
if b=3 then begin z:=x*y;
edit4.Text:=floattostr(z);
end;
if b=4 then begin z:=x/y;
edit4.Text:=floattostr(z);
end;
end;
end.

 

 

вроде