Задачка!, Задачка на метод Ньютона Опции

[AssAssIN'KO]

Помогите пожалуйста составить программу к этой задаче:
Составить структурированную программу для нахождения корня уравнения: (корень(1-х))-cos(корень(1-х))=0 на отрезке [0;1) с абсолютной погрешностью Эпсила=10в -3 степени,методом Ньютона.В программе предусмотреть подсчёт и выдачу на печать колличество итераций,необходимых для вычисления значения с заданной точностью.(как я понял точность самому надо задать)
Кто знает как решить помогите плииз...очень надо

[AssAssIN'KO]

ну у меня получилось чтото вроде этого

program Nuton;
uses crt;
const
 Eps=0.0001;
var
a,b,c,z,f1,f2:real;
 begin
 clrscr;
 a:=0;
 b:=1;
 f1:=sqr(1-a)-cos(sqrt(1-a));
 f2:=(-1)/(2*(sqrt(1-a)))+(1/(2*(sqrt(1-a))))*(sin(sqrt(1-a)));
 if f1*f2>0 then c:=a
             else c:=b;
  repeat
  z:=((sqrt(1-c))-(cos(sqrt(1-a)))/((-1)/(2*(sqrt(1-a))))+(1/(2*(sqrt(1-a))))*(sin(sqrt(1-a))));
  c:=c-z;
  k:k+1;
  until abs f(z)<Eps;
  writeln c,k;
  readln
 end

[Lapp]

ну у меня получилось чтото вроде этого

Хотьбы довел до компилирующегося состояния..
Вот, лови, разбирайся..

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

function f(x: double): double;
begin
  f:=Sqrt(1-x)-Cos(Sqrt(1-x))
end;

function f1(x: double): double;
var
  s: double;
begin
  s:=Sqrt(x);
  f1:=-0.5/s-0.5*Sin(s)/s
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.

[Гость]

Хотьбы довел до компилирующегося состояния..
Вот, лови, разбирайся..

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

function f(x: double): double;
begin
  f:=Sqrt(1-x)-Cos(Sqrt(1-x))
end;

function f1(x: double): double;
var
  s: double;
begin
  s:=Sqrt(x);
  f1:=-0.5/s-0.5*Sin(s)/s
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.

я попробовал сделать программу из этого,но почитав методички у меня получилось вот это.....
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));
while abs(x1-x)>e do
begin
x:=x1;
x1:=Sqrt(1-x)-Cos(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.
но он выдаёт 207 ошибку при вооде значений