Метод интераций (не врубаю)

[Айдар]

Добрый день, кто может написать пример решения уравнения вида (f(x)=x - я чето такое уравнение не могу придумать), методом интераций?

[MacOSUser]

Да тут легко:

Есть уравнение f(x) = x. Берём начальную точку x0.
x1 = f( x0 ), x2 = f( x1 ), ...
до тех пор, пока | xn - x[n-1] | < eps заданного малого значения eps, например 0.0001.

Это если x0 попадёт в область сходимости, а если нет, то метод не сойдётся.

[Vago]

http://programmersforum.ru/showthread.php?t=84437

Буквы н там нет.

[Айдар]

а в качестве примера что можно взять?

[MacOSUser]

sin(x) = x

[Айдар]

вот что-то типо этого?

var
n,i:integer;
x0,x1,x2,n,e,itog,:real;
function F(x:real):real;
begin
f:=sin(x) = x
end;

procedure inеr (var x0,n,e:real);
begin
repeat
x1:=f(x0);
x2:=f(x1);
until | xn - x[n-1] |<e 
readln;
end;

begin
write ('x0=');
readln (x0);
write ('N=');
readln (n);
e:=0.001;
writeln ('e=0.001');
int1 (x0,n,e);
readln;
end.

[MacOSUser]

Это точно код?

[Айдар]

я блокноте набрасал, как у вас получилось?

[MacOSUser]

я ничего не писал.

[Айдар]

чё-то не получается профи помогите, пожалуйста