DELPHI, составить программу для вычисления значения выражения

DELPHI, составить программу для вычисления значения выражения.

Ребята, подскажите правильно я написал или нет? (а то у меня постоянно выходит NO)

procedure TForm1.Button1Click(Sender: TObject);
var a,b,x,f,d:integer;
begin
a:=strtoint(edit1.Text);
b:=strtoint(edit2.Text);
x:=strtoint(edit3.Text);
if (abs(a-abs(b-x)))=0 then d:=a div (abs(a-abs(b-x))) else ShowMessage('NO');
edit4.text:=inttostr(d);
end;

  • Неправильно.
    Во-первых, условие обратное - знаменатель должен быть НЕ равен 0, тогда надо считать.
    Во-вторых, в противном случае надо не сообщения показывать, а единицу возвращать.
    А в-третьих, почему ты решил, что при делении получится обязательно целое число?
  • значит нет