Составить структурированную программу для нахождения корня уравнения ( pic.ipicture.ru/uploads/090927/CfJIsq1Rp8.png ) на отрезке [0-1] с абсолютной погрешностью методом Итерраций. В программе предусмотреть подсчёт и выдачу на печать количество итерраций необходимых для вычисления значения корня с заданной точностью.

Основываясь на данную статью получил вот это:

program Z2N17;
uses graph,crt;
 var
 a,b,x1,x,f1,f2,e:real;
 i,n:integer;

 function ArcSin ( X : Real ): Real;
  begin
   if X = 1.0 then
    ArcSin := Pi / 2.0
   else
   ArcSin := ArcTan ( X / Sqrt ( 1 - X * X ) );
   end;

 function f(tmpX:real):real;
  begin
   f:=sqrt(1*tmpX*tmpX)-ArcSin(tmpX);
  end;

{ ЭТО БЛОК ДЛЯ ПРОВЕРКИ ВВЕДЁННОГО ЗНАЧЕНИЯ НА ОТРЕЗКЕ [0-1] }
 begin
  clrscr;
   repeat
     writeln('Enter X');
     read(b);
     clrscr;
   until ((b > 0) and (b < 1));

 a:=0;
 x1:=a;
 f1:=f(x1);
 e:=0.001;   {Eps}
 n:=round((b-a)/e);
 writeln('Method iterazii');
  for i:=1 to n do begin
   x:=x1+(b-a)/n;
   f2:=f(x);
  if f1*f2<=0 then begin
   writeln('Done. X = ',(X+x1)/2:6:4);
   writeln('Kolichectvo iterasii = ',i);
  end;
 x1:=x;
 f1:=f2;
 end;

readln(x);
end.

Но проблема в том, что программа при заданных значениях от 0 до 1 выдаёт одинаковый ответ =(
Пример:

Ввод х=1.1
Результат:
Х=0.0005
Количество итераций = 1

Ввод х=1.7
Результат:
Х=0.0005
Количество итераций = 1



Может я формулы не так написал ?

удалил

Добавлено через 4 мин.
Эх совсем уже забыл это...
Так, Х же не надо вводить, надо ввести границы (они у тебя уже есть). На этом отрезке 1 корень, поэтому значения одинаковы

Нет Х 100% надо вводить...я просто в уравнении не уверен

Если ты вводишь Х то что искать то надо? Твоя прога и должна найти значение Х, а ты его вводишь.
Зачем так усложнять код, когда можно в примере по ссылке просто заменить функцию на свою