метод половинного деления, решение уравнения Опции

[Гость]

здарвствуйте, мне нужно решить ур-е х^3 + 2x^2 - 11 = 0 методом половинного деления

[Shmanich]

Мой вариант решения:

program Dihotomia;

uses crt;

var a, b, c, eps, a1, b1: real;
    k: integer;
    ch: char;

 function f(x:real): real;
 begin
  f:=2*x*x*x-3*x*x-12*x; {Вводим выражение для вычисления функции}
 end;

 begin
  clrscr;
  {Вывести условие задачи}
  writeln('Решение уравнения "2x^3-3x^2-12x=0" методом дихотомии.');
  writeln;
  {Ввод исходных данных}
  write ('Введите левую границу:'); read(a); {Введите левую границу интервала}
  write ('Введите правую границу:'); read(b); {Введите правую границу интервала}
  write ('Введите требуемую точность:'); read(eps); {Введите требуемую точность}
  writeln;
  writeln ('a=', a:3:7); {Вывод значения левой границы интервала}
  writeln ('b=', b:3:7); {Вывод значения правой границы интервала}
  writeln ('eps=', eps:3:7); {Вывод значения требуемой точности}
  writeln;

  a1:=a; b1:=b; {Запоминать исходные данные}
  k:=0; {Счетчик повторений}

  {Проверка введеных значений}
  if (a1=b1) then
  writeln('Ошибка! Левая часть интервала не должна равняться правой.');
  if (a1>b1) then
  writeln('Ошибка! Левая часть интервала не должна быть больше правой.');

 {Цикл}
 while abs(b-a) > eps {Пока условие больше точности...}
  do {...выполять}
  begin
   k:=k+1; {Увел. счетчик на 1}
   c:=(a+b)/2; {Узнаем середину интервала}
    if f©=0 then {Если функция равно 0, то..}
    begin
    {... вывести точный корень}
     writeln ('Уравнение на интервале (',a1:4:3, '; ',b1:4:3,') имеет точный корень x=', c:4:5);
     break; {Прервать вывод, чтобы ответ не повторялся бесконечно}
    end;
    if f(a)*f©<0 then b:=c; {Если функция а умноженная на функцию с меньше 0, тогда c это b}
    if f(a)*f©>0 then a:=c; {Если функция а умноженная на функцию с больше 0, тогда c это a}
  end;

 {Проверка и вывод значений}
 begin
  if (f©<>0) and (a1<=b1) then {Если функция c не равна 0 и
                                 левая часть инт-ла меньше или равно правой,
                                 тогда вывести результат, иначе сообщить точный корень}
   begin
    {Вывод корня на интервале}
    writeln ('Уравнение на интервале (',a1:4:7, '; ',b1:4:7,') имеет корень x=', c:4:5);
    writeln;
    writeln ('Точность ',eps:4:7, ' достигнута за ' ,k, ' шага(ов)', '.');
   end;
 end;

readkey;

end.

Итак, если я введу диапазон от -10 до -1 и точность, например, 0,001, то примерный корень будет = -1,81134, что верно!
Если от 1 до 10, то корень будет равен 3,31262, что тоже верно!
Если от -1 до 1, то корень будет равен 0, что тоже верно!
Но если я задам диапазон от -10 до 10, то выведится только один корень = 0, что недостаточно для полного ответа, т.к. уравнение 2x^3-3x^2-12x=0 имеет 3 корня! Как сделать так, чтобы программа хотя бы сообщала, что «в данном интервале найдено более одного корня, рекомендуется сузить границы интервала», или выводила все три??? Помогите, пожалуйста