Отделить корни уравнения графически и уточнить один из них методом Ньютона

2*sqr(sqr(x))+3*x*x*x+5*x*x-18;
end;
 
var
  x0, y0, x, y, n: integer;
  x1, y1, a, b, f1, f2, mx, my, h, dy, num: real;
  i: byte;
  s: string;
 
begin
  MaximizeWindow;
  //интервал по Х:
  a := -3; b := 2; h := 0.2;
  //Интервал по Y:
  f1 := -20; f2 := 5; dy := 1;
  //Устанавливаем масштаб:
  mx := (WindowWidth - 100) / (b - a); //масштаб по Х
  my := (WindowHeight - 100) / (f2 - f1); //масштаб по Y
  //начало координат:
  x0 := trunc(abs(a) * mx) + 50;
  y0 := WindowHeight - 50 - trunc(abs(f1) * my);
  //Рисуем оси координат:
  line(50, y0, WindowWidth - 40, y0); //ось ОХ
  line(x0, 40, x0, WindowHeight - 50); //ось ОY
  SetFontSize(12); //Размер шрифта
  SetFontColor(clRed); //Цвет шрифта
  TextOut(WindowWidth - 30, y0 - 15, 'X'); //Подписываем ось OX
  TextOut(x0 - 10, 20, 'Y'); //Подписываем ось OY
  SetFontSize(8); //Размер шрифта
  SetFontColor(clBlue); //Цвет шрифта
  { Засечки по оси OX: }
  n := round((b - a) / h) + 1; //количество засечек по ОХ
  for i := 0 to n do begin
    num := a + i * h; //Координата на оси ОХ
    x := 50 + trunc(mx * (num - a)); //Координата num в окне
    Line(x, y0 - 3, x, y0 + 3);
    s := FloatToStr(num);
    if abs(num) > 1E-15 then //Исключаем 0 на оси OX
      TextOut(x - TextWidth(s) div 2, y0 + 10, s)
  end;
  { Засечки на оси OY: }
  n := round((f2 - f1) / dy) + 1; //количество засечек по ОY
  for i := 1 to n do begin
    num := f1 + (i - 1) * dy; //Координата на оси ОY
    y := WindowHeight - 50 - trunc(my * (num - f1));
    Line(x0 - 3, y, x0 + 3, y); //рисуем засечки на оси Oy
    str(num:0:0, s);
    if abs(num) > 1E-15 then //Исключаем 0 на оси OY
      TextOut(x0 + 7, y - TextHeight(s) div 2, s)
  end;
  TextOut(x0 - 10, y0 + 10, '0'); //Нулевая точка
  { График функции: }
  h := 0.001;
  x1 := a;
  while x1 <= b + h / 2 do
  begin
    y1 := F(x1);
    x := x0 + round(x1 * mx); //Координата Х в графическом окне
    y := y0 - round(y1 * my); //Координата Y в графическом окне
    if (y >= 50) and (y <= WindowHeight - 50) then
      SetPixel(x, y, clRed);
    x1 := x1 + h
  end
end.

const
  e = 0.001;
 
//Функция
function F(x: real): real;
begin
  f := 2*sqr(sqr(x))+3*x*x*x+5*x*x-18
end;
 
//Производная
function F1(x: real): real;
begin
  f1 := 8*x*x*x+9*x*x+10*x
end;
 
var
  x, x1, dx: real;
  i: byte;
 
begin
  cls;
  for i := 1 to 2 do begin
    if i = 1 then x := -2 //начальное значение
    else x := 1; //начальное значение
    repeat
      x1 := x - f(x) / f1(x);
      dx := abs(x - x1);
      x := x1
    until dx < e;
    writeln('x', i, ' = ', x:0:3)
  end
end.