Вычисление по итеративной схеме и рекуррентной схеме

Question

Вычисление по итеративной схеме и рекуррентной схеме

---

Answer 1

Var x,xn,a,s,eps:real; n:integer;
begin
readln(x,eps);
xn:=x;
n:=1;
a:=x;
s:=a;
while abs(a)>eps do
 begin
 xn:=xn*x*x;
 n:=n+2;
 a:=xn/n;
 s:=s+a;
 end;
s:=2*s;
writeln('ln[(1+x)/(1-x)] = ',ln((1+x)/(1-x)):7:5,'  s = ',s:7:5);
end.

Пример:
0.8 0.00001
ln[(1+x)/(1-x)] = 2.19722 s = 2.19720