проблема с программой. найти корень уравнения методом простых итераций

[aqaatron]

ошибка floating point overflow

var xo,x1,x:real;
n:integer;
begin
n:=0;
xo:=2;
e:=0.0001;
x:=xo; repeat n:=n+1;x1:=0.5*x*x*x*x-3*cos(x-1.5)-5; x:=x1; until (abs(x1-xo)<=e);
end.

[FPaul]

Метод простых итераций на Wikipedia.
Определи функцию f(x). А потом считай новое приближение x

repeat
  x1:=x;
  x:=x-f(x)/10; <--- ну или на 100, 1000. Знак - или +, тоже подбирается.
until abs(x-x1)<=e;

Всё.

[aqaatron]

Спасибо большое!!!!