.Пишем функцию, вычисляющую ряд до заданного члена n в точке x.
Код
function f(x:real; n: integer): real;
var
s: real;
i: integer;
begin
s:=0;
for i:=1 to n do
s:=s+(exp((2*n-1)*ln(x)))/(2*n-1);
f:=s;
end;
Функция вычисляющая при каком n погрешность станет меньше eps.
Если, например, fn(0.2, 0.001) вернет 2, то уже при 2 членах ряда погрешность менее 0.001 в точке 0.2.
Код
function fn(x: real; eps: real): integer;
var
y: real;
n: integer;
s: real;
begin
y:=(1/2)*ln((1+x)/(1-x));
n:=1;
s:=x;
while abs(y-s) > eps do
begin
n:=n+1;
s:=s:=s+(exp((2*n-1)*ln(x)))/(2*n-1);
end;
fn:=n;
end;
Думаю теперь Вы сможете составить программу
.