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

[AssAssIN'KO]

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

[AssAssIN'KO]

точнее вот,выдаёт ошибку 207 Invalid floating operation

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.

Сообщение отредактировано: AssAssIN'KO - 6.10.2009 23:40

[Lapp]

точнее вот,выдаёт ошибку 207 Invalid floating operation

Потому что производную надо правильно записывать. Чем тебе не понравились мои функции? Зачем все валить в одну кучу? Чтобы потом ошибки выискивать часами и сутками? Вы что ли функции не проходили?

Sqrt должен быть в знаменателе, а у тебя в числителе..