Метод Итерраций, поправить код Опции

[geforse]

Мне нужно решить уравнение методом Итерраций
http://s42.radikal.ru/i098/0910/b5/0ea8b8a0c902.gif
(на отрезке [0-1])

program iterr;
 uses crt;
 var
  x1,x2,e:real;
  i:byte;
 begin
  textbackground(black);
 repeat
  clrscr;
  textbackground(red);
  window(5,5,40,15);
  textcolor(white);
  clrscr;
   writeln('Enter [0-1]');
   readln(x1)
  until(x1>0)and(x1<=1);
   i:=0;
   e:=0.0001;
   x2:=sqrt(exp(ln(1)*(-0.4)*sqr(X1)))-arctan(X1/sqrt(1-X1*X1));
   while abs(x2-x1)>e do
                      begin
                      x1:=x2;

{ВОТ ТУТ ОШИБКА} x2:=sqrt(exp(ln(1)*(-0.4)*sqr(X1)))-arctan(X1/sqrt(1-X1*X1));
                      
                      end;
   textbackground(white);
   window(40,20,70,30);
   textcolor(red);
   clrscr;
    writeln('pechat x2=',x2:3:3);
    writeln('Iterasii i=',i);
   readln;
  end.

Выдаёт ошибку Error 207: Invalid floating point opration

Помогите разобраться...

Сообщение отредактировано: geforse - 10.10.2009 14:45

[geforse]

Помогите с этой прогой...уже нежелю сижу, всё никак ... кучу вариантов перепробовал

узнал вот ещё что, приближённое значение корня (что в ответе должно получиться) 0.7672

[Lapp]

значение корня (что в ответе должно получиться) 0.7672

Ладно, я сегодня добрый..
Забирай свое решение, и лучше больше не приходи, если не можешь правильно написать условие.

const
  Eps=0.0001;
var
  k: integer;
  a,b,x,y,y1: double;

function f(x: double): double;
begin
  f:=Sqrt(1-0.4*x*x)-arctan(x/Sqrt(1-x*x))
end;

function f1(x: double): double;
begin
  f1:=0.5/Sqrt(1-0.4*x*x)*(-0.8*x)-1/Sqrt(1-x*x)
end;

begin
  a:=0;
  b:=1;
  x:=(a+b)/2;
  y:=f(x);
  while abs(y)>Eps do begin
    y:=f(x);
    x:=x-y/f1(x);
    k:=k+1
  end;
  writeln('root is: x=',x:5:8,'   iterarions: ',k);
  readln
end.

Твое уравнение вот:

Sqrt(1-0.4*x²) - arcsin(x) = 0