Даны два действительных числа х и у. Вычислить их сумму, разность, произведение и частное

[Raina97]

Никак не могу разобраться что не так,или вообще не запускает программу,или запускает но ничего не считает..что не так?

procedure TForm1.Button3Click(Sender: TObject);
var p,p2,r:integer;
begin
edit2.Text:=inttostr(p);
edit3.Text:=inttostr(p2);
if RadioButton1.Checked=true then
r:=p+p2;
if RadioButton2.Checked=true then
r:=p-p2;
if RadioButton3.Checked=true then
r:=p*p2;
if RadioButton1.Checked=true then
r:=p/p2;
edit4.Text:=inttostr(r);
end;

end.

Еще делала так:

procedure TForm1.Button3Click(Sender: TObject);
var p,p2,r:Extended;
begin
p:= strtoint(edit2.Text);
p2:= strtoint(edit3.Text);
if RadioButton1.Checked=true then
r:=p+p2;
if RadioButton2.Checked=true then
r:=p-p2;
if RadioButton3.Checked=true then
r:=p*p2;
if RadioButton1.Checked=true then
r:=p/p2;
edit4.Text:=floattostr(r);
end;

Но тогда не работает сложение и деление..
прошу помощи)

[Serge_Bliznykov]

потому что вы перепутали и в случае деления проверяете опять RadioButton1, а нужно, судя по всему RadioButton4!!

ну и я бы так примерно написал:

procedure TForm1.Button3Click(Sender: TObject);
var x,y,r:Extended;
begin
  r := 0;
  x  := StrToFloat(edit2.Text);
  y  := StrToFloat(edit3.Text);
  if RadioButton1.Checked then
    r := x + y;
  if RadioButton2.Checked then
    r := x - y;
  if RadioButton3.Checked then
    r := x * y;
  if RadioButton4.Checked then
    r:= x/y;
  edit4.Text:=floattostr(r);
end;

p.s. ещё неплохо добавить:
1) проверку на то, что полях Edit2, Edit3 запись вещественного числа (иначе будет ошибка)
2) проверять, что y не равно нулю при выборе операции деления

[Stilet]

Второй вариант правильнее. Только strtoint нужно заменить на strtofloat.

а нужно, судя по всему RadioButton4!!

И это тоже.

[Алексей_2012]

Stilet)

Даны два действительных

procedure TForm1.Button3Click(Sender: TObject);
var x,y,r:Integer;
begin
  r := 0;
  Edit2.Text:=Trim(Edit2.Text);
  Edit3.Text:=Trim(Edit3.Text);
  try
  x  := StrToint(edit2.Text);
  except
    ShowMessage('Число должно быть дробным! Вы ввели: '+edit2.text);
    exit

  end;
   try
  y  := StrToint(edit3.Text);
    except
    ShowMessage('Число должно быть дробным! Вы ввели: '+edit3.text);
    exit

  end;

  if RadioButton1.Checked then
    r := x + y;
  if RadioButton2.Checked then
    r := x - y;
  if RadioButton3.Checked then
    r := x * y;
  if RadioButton4.Checked then
    r:= x div y;
  edit4.Text:=IntToStr(r);
end;

[Аватар]

Алексей_2012

Ну и че? Код для целых, да еще сообщения левые. А действительные куда убежали?