метод итераций по образцу с форума, выдает ошибку Опции

[Ven]

нужно решить уравнение методом простых итераций. Задачу нашла на форуме в FAQ


сделала по образцу, в итоге ошибка 205: Floating Point Overlow

program ITERAT;
uses crt;

const max_iter=100; {maksimal'noe chislo iteraciy}

var

i: integer;
x,x0,eps,M: real;

function F(x:real):real; {funkciya}

begin

F:= x*x + x + 0.09;
end;

begin {osnovnaya programma}
clrscr;
write('Vvedite priblijennoe znachenie x='); readln(x);
write('Vvedite tochnost vichisleniy eps='); readln(eps);

i:=0;
repeat
x0:=x;
x:=x0+F(x0);
inc(i);
writeln('---Iteraciya  ' , i:3,'  x=',x);
writeln('F(x)=' , F(x),' tochnost=' , abs(x-x0));
until (abs(x-x0)<=eps) or (i>max_iter);

if (abs(x-x0)<=eps) then writeln ('Otvet: X=' , x)
else writeln('OTVET NE NAYDEN!!! za ',max_iter:0,' shagov iteraciya ne soshlas');

end.

Про метод итераций читала, в принципе поняла, но если кто сможет рассказать доходчиво- буду очень благодарна.

Добавлено через 15 мин.
кстати,когда выдает ошибку - возращает меня на строку

F:= x*x + x + 0.09;

Сообщение отредактировано: Ven - 9.10.2011 22:21

[Ven]

и еще. мне дали вот такую программу, но я в ней особо не смогла разобраться. задание то же.
Она в ответ выводит нормальное число.. В моей программе как нибудь можно это сделать?
Пы.Сы. Извиняюсь конечно за такие вопросы,просто я не особо опытная в написании программ) пытаюсь разобраться)

var xj , xi : Real;

var precision : Integer;

var solution : String;

{ f(x) = exp(x) + x = 0 }
Function f(x: Real): Real;

 begin

      f:= exp(x) + x;

 end; {f}


{ Df(x) - derivative of f(x) }
Function Df(x: Real): Real;

 begin

      Df:= exp(x) + 1;

 end; {Df}


begin

xj := 0;

writeln('Enter precision of solution... ');

readln(precision);

   repeat

   xi := xj ;

   xj := xi - f(xi)/Df(xi) ;

   until abs( xi - xj ) < exp( ln( 10 ) * ( -precision ) ); {|xi-xj|<10^(-precision)}

   Str(xj: 20: precision ,solution);

   writeln('the solution is ' + solution);

   readln;


end.

нормальное- в смысле "-0,6" и т.п.

Сообщение отредактировано: Ven - 10.10.2011 13:44