Метод Ньютона

[MagicCity]

Определить корень нелинейного алгебраического уравнения методом Ньютона на интервале [1,10]
6x^4+15x^3-7x^2-10x-19138=0
В Паскале!

[digitalis]

Ну и кто мешает определить? Открыл конспект, за неимением - Вики -- и вперед.
Хотя бы так :

var x,x1,y,y1,eps : extended ;
Begin
  eps := 0.001 ;
  x := 1.0 ;
  y := -19138 + x*(-10 + x*(-7 + x * (15 + 4 *x))) ;
  y1 := 24*x*x*x + 45*x*x -14*x - 10 ;
  x1 := x-y/y1 ;
  while (abs(x-x1)>eps) do
  begin
    x := x1 ;
    y := -19138 + x*(-10 + x*(-7 + x * (15 + 4 *x))) ;
    y1 := 24*x*x*x + 45*x*x -14*x - 10 ;
    x1 := x-y/y1 ;
  end ;
  Writeln  ('Root is ' ,x1) ;
End.

y := -19138 + x*(-10 + x*(-7 + x * (15 + 4 *x))) ; // Тут многочлен вычислям по схеме Горнера
y1 := 24*x*x*x + 45*x*x -14*x - 10 ; // А тут просто, без затей - первую производную

И - тишина...