Решалка кубических уравнений, Задача-то детская, но я не понимаю что не так. Помогите, вразумите. Опции

[lizhen]

Программа для вычисления корней кубического уравнения:

reshalka kubicheskyh uravneniy;
var n,y,z,f:integer;
x,k:longint;
begin
clrscr;
writeln('Vvedite koeffichyenty uravneniya chiala:n,y,z,f');
readln(n,y,z,f);
k:=0;
for x:=-1000000 to 1000000 do
if n*x*x*x+y*x*x+z*x+f=0 then
begin
k:=k+1;
writeln('x',k,'=',x);
end;
if k=0 then write('Chelyh korney net');
readln;
end.

Заранее спасибо, за потраченное на мой вопрос время.

Сообщение отредактировано: Lapp - 31.03.2012 3:34

[Krjuger]

Дело не в паскале,для начала нужно найти методы для полноценного решения кубического уравнения,а потом попытаться их реализовать.Например
Формула Кардано
Согласисть, ничего сложного нет, сначала вычисляешь 2 величины,через них находишь третью,дальше смотри условие, больше нюля,меньше или равно,ну или конкретно одно условие, например, тебе нужны только вещественные корни тогда Q=0, а остальные вообще не рассматриваешь.