Метод Итерраций - Pascal

Формулировка задачи:

Мне нужно решить уравнение методом

Итерраций

, с кодом вроде нет проблем, а вот с уравнением Помогите, как правильно написать его на языке

Pascal

[BIMG]http://forum.pascal.net.ru/index.php?act=Attach&type=post&id=8246[/BIMG] Нужно ввести

(на отрезке

[0-1]

) и вывести получившийся корень

Решение задачи: «Метод Итерраций»

Листинг программы

Program N20;
 uses crt;
 var
  x,x1,e:real;
  i:byte;
 begin
  textbackground(black);
 repeat
  clrscr;
  textbackground(red);
  window(5,5,40,15);
  clrscr;
  textcolor(white);
   writeln('vvod x na promezutke [0;1)=');
   readln(x);
  until(x>=0)and(x<1);
  i:=0;
  e:=0.001;
  x1:=Sqrt(1-x)-Cos(Sqrt(1-x))/(-1/2*sqrt(1-x)+sin(sqrt(1-x))*(-1/2)*(sqrt(1-x)));
  while abs(x1-x)>e do
                     begin
                      x:=x1;
                      x1:=Sqrt(1-x)-Cos(Sqrt(1-x))/(-1/2*sqrt(1-x)+sin(sqrt(1-x))*(-1/2)*(sqrt(1-x)));
                      i:=i+1;
                     end;
  textbackground(magenta);
  window(40,20,70,30);
  clrscr;
  textcolor(yellow);
   writeln('pechati x1=',x1:5:4);
   writeln('kolichestvo interachii=',i);
  readln;
 end.

Объяснение кода листинга программы

Список действий в коде:

Задаются начальные значения переменных: x, x1, e и i.
Устанавливается цикл, который выполняется до тех пор, пока значение x не будет введено в указанном диапазоне (от 0 до 1).
В первой итерации цикла выполняется вычисление значения x1 с помощью формулы из условия задачи.
Устанавливается цикл, который выполняется до тех пор, пока значение x1 не станет достаточно близким к значению x (с учетом погрешности e).
Значение x1 заменяется на новое значение, вычисленное по формуле из условия задачи.
Значение i увеличивается на 1.
Цикл повторяется до достижения критерия остановки.
Выполняется вывод результатов на экран: значение x1 и количество итераций.
Программа ожидает ввода пользователя для завершения работы.