Найти все целые корни уравнения

[KREGI]

помогите решить задачу, здесь вроде как 4 проверки, я уже запутался что к чему, программа на Делфи:

[Jean-Esther]

procedure DoIt(a,b,c,d:integer);
begin
for x:=1 to d do
    if d mod x = 0 then
    begin
          if (a+b)*x*x + c*x + d = 0 then Add(x);
          if (a+b)*x*x - c*x + d = 0 then Add(-x);
    end;
end;

Это по условию. Хотя я бы решал так:

procedure DoIt(a,b,c,d:integer);
var x,y:real;
begin
x:=c*c-4*d*(a+b);
if x>=0 then
begin
    y:=(-c+sqrt(x))/(2*(a+b));
    x:=d/y;
    if frac(y)<1e-5 then Add(round(y));
    if frac(x)<1e-5 then Add(round(x));
end;
end;

Это поиск двух корней по формуле и т-ме Виета и отпереления дробной их части (frac(x)==0)

[KREGI]

этоже, только проверка?как весь код выглядеть будет?

и что такое add?

Ребят, ОЧЕНЬ НАДО, помогите! Пожалуйста

[Stilet]

этоже, только проверка?

А тут проверка - основное.

и что такое add?

Это метод ListBox'а или Memo.
Растяни его на форму и напиши:

procedure TForm1.FormCreate(Sender: TObject);
var x,y:real;
begin
x:=c*c-4*d*(a+b);
if x>=0 then
begin
    y:=(-c+sqrt(x))/(2*(a+b));
    x:=d/y;
    if frac(y)<1e-5 then ListBox.Items.Add(round(y));
    if frac(x)<1e-5 then ListBox.Items.Add(round(x));
end;
end;

[KREGI]

Судя из условия задачи числа мы вводим сами...значит ваш код, не совсем верный..или я ошибаюсь?

Если и расматривать ваш код, вот так должно быть?

procedure TForm1.FormCreate(Sender: TObject);
var x,y:real;  b,a,d,C:integer;
begin
x:=c*c-4*d*(a+b);
if x>=0 then
begin
    y:=(-c+sqrt(x))/(2*(a+b));
    x:=d/y;
    if frac(y)<1e-5 then ListBox1.Items.Add(round(y));
    if frac(x)<1e-5 then ListBox1.Items.Add(round(x));
end;
end;

end;

не собирается прога, жалуется на эту часть Add(round(y));

[Stilet]

числа мы вводим сами

Это уж тебе решать.

жалуется на эту часть

На китайском?

[KREGI]

Я понимаю эту задачу так:

procedure TForm1.Button1Click(Sender: TObject);
var x,y:real;  b,a,d,C:integer;
begin
a:=strtoint(edit1.Text);
b:=strtoint(edit2.Text);
c:=strtoint(edit3.Text);
d:=strtoint(edit4.Text);
y:=0;
x:=0;
begin
x:=c*c-4*d*(a+b);
if x>=0 then
begin
    y:=(-c+sqrt(x))/(2*(a+b));
    x:=d/y;
    if frac(y)<1e-5 then
    Label1.Caption:=+floattostr(y);
    if frac(x)<1e-5 then
    Label1.Caption:=+floattostr(x);
end;
end;
end;

end.

Где тут ошибки? исправил, но все таки не конект((вот еще попытка, но ругается на вывод...

[Stilet]

Где тут ошибки?

Сколько можно обьяснять что ТЕКСТ ОШИБКИ НУЖНО ПРИВОДИТЬ!!!!!!

Label1.Caption:=+floattostr(y);

Плюс убери.

[KREGI]

Все работает, спасибо, на счет текста ошибки, извеняюсь, буду в следующий раз писать, еще раз ОГРОМНОЕ СПАСИБО!!!