решить уравнение методом итераций

[Evgeniya666777]

Помогите пожалуйста!!! Нужно решить в паскале методом итераций уравнение (e^x)-(e^-x)-2=0. Область корня 0;1.

[tsar_]

У меня получилось примерно 0,8814.
Правильно?

[Evgeniya666777]

я не знаю), мне нужна сама программа, решение само короче.

[tsar_]

uses crt;
var x1,x2,eps: real;
begin
clrscr;
x1:=0.5;
repeat
x2:=x1;
x1:=ln(exp(-x1)+2);
eps:=abs((x1-x2)/x2);
until eps<=0.001;
writeln('KOPEHb= ',x1:8:4);
end.

З.Ы. Пойми, что "помогите пожалуйста" в твоем случае значат "сделай за меня". В следующий раз такой "помощи" можешь и не получить...