метод простых итераций

[хаскер]

Uses CRT;
 
Function F(x:real):real;
begin
  F:=sqrt(1-x)+cos(sqrt(1-x))   end;
Var Eps,fl,f2,x,xl,x2,
A,B:Real;
    N,i:Integer;
Begin
     ClrScr;
     Repeat
           WriteLn(' Введите границы интервала :');
           Write('A=  '); ReadLn (A);
           Write('B=  '); ReadLn (b);
           if  A>=B  then  WriteLn('Границы интервала заданы некорректно!');
     Until  A  <  B;
     WriteLn;
 
Repeat
      WriteLn('Укажите необходимую точность вычислений:') ;
      Write ('Eps= ');  ReadLn (Eps);
      if Eps<= 0 then WriteLn('Eps может иметь только положительные значения! ');
Until Eps > 0;
WriteLn;
 
WriteLn ( 'Метод простых интераций: ' ) ;
N:=Round((B-A)/eps  +  0.5); xl:=A; fl:=F(xl);
for  i:=  1 to N  do  begin
     x2:= xl+(B - A) / N;
     f2:= F(x2);
     if  fl*f2  <= 0 then  WriteLn('Нуль функции на x=  ',(x2  +  xl)/2 :12 :8);
     xl:= x2;   fl:= f2 ;
end;
WriteLn (' Выполнено  ' ,   N,   ' шагов.');  WriteLn;
ReadLn;
End.

Само мое решение, но препод сказал что метод не реализован и в таком методе не используется FOR, гуглил довольно долго, и не нашел ни одной темы, где была бы полностью описана программа.
Прошу написать код метода простых итераций для паскаля

[Mad_Cat]

конечно не используется вы ж точность вводите

[хаскер]

не могли бы написать код цикла?
чтобы находил х0 и подставлял его в функцию и это будет х1
потом х1 в исходную функцию и это будет х2
и т.д.

[Mad_Cat]

Все уже давно написано

[хаскер]

значит я плохо искал
благодарю

[tsar_]

хаскер, не мешало бы разобраться с самим алгоритмом метода простых итераций (желетельно еще до кодирования, на бумажке - так много вещей проясняется).
Вот код для паскаля, правда функция здесь другая, но ничего, свою вставите, а еще дооформите по вкусу и т.д.

uses crt;
var a,b,x1,x2,eps: real;
begin
 clrscr;
 writeln('Vvedite levuyu granitsu interala');
 readln(a);
 writeln('Vvedite pravuyu granitsu interala');
 readln(b);
 writeln('Vvedite tochnost');
 readln(eps);
 x1:=(b+a)/2;
 repeat
  x2:=x1;
  x1:=ln(exp(-x1)+2);   { <---- Siuda vstavliat svoyu functciyu }
 until abs((x1-x2)/x2)<=eps;
 writeln('KOPEHb= ',x1:8:4);
 readln;
end.

З.Ы. И потом Mad_Cat прав - тема избитая.

[wolfkb]

Сообщение от tsar_

хаскер, не мешало бы разобраться с самим алгоритмом метода простых итераций (желетельно еще до кодирования, на бумажке - так много вещей проясняется).
Вот код для паскаля, правда функция здесь другая, но ничего, свою вставите, а еще дооформите по вкусу и т.д.

uses crt;
var a,b,x1,x2,eps: real;
begin
 clrscr;
 writeln('Vvedite levuyu granitsu interala');
 readln(a);
 writeln('Vvedite pravuyu granitsu interala');
 readln(b);
 writeln('Vvedite tochnost');
 readln(eps);
 x1:=(b+a)/2;
 repeat
  x2:=x1;
  x1:=ln(exp(-x1)+2);   { <---- Siuda vstavliat svoyu functciyu }
 until abs((x1-x2)/x2)<=eps;
 writeln('KOPEHb= ',x1:8:4);
 readln;
end.

З.Ы. И потом Mad_Cat прав - тема избитая.

Это не метод итераций, это метод половинного деления? Или я ошибаюсь?