отладка программы

[honest]

Нужно дополнить и исправить программу.

Вычислить сумму S = (((x-1)/(x+1))^(2i+1)) / (2i+1) , где i меняется от 1 до бесконечности, прекращая суммирование, когда очередной член ряда по абсолютной величине станет меньше E=0.0001, при изменении аргумента x в диапазоне [0.1,1] с шагом h=0.01
Для сравнения в каждой точке x вычислять также функцию y=ln(x)/2, являющуюся аналитическим выражением ряда.
Блок программы по выводу данных дописать самостоятельно



var
S, y, x, a,b, h, t,eps,st, F, nevyazka:real; sgn, i:integer;
begin
readln(eps)
a:=0.1;
b:=1;
h:=0.01;
x:=b;
repeat
s:=0;
i:=1;
st:=1;
t:=st/(2*i+1);
while abs(t)>eps do
begin
st:=st*(x-1)/(x+1);
t:=st/(2*i+1);
s:=s+t;
i:=i*2;
end;
y:=ln(x)/2;
nevyazka:=y-s;
x:=x+h;
… // вывод данных
until x< b;
end.

[Simply-Art]

Если всё правильно записано, то вот посмотри, у меня так вышло, на калькуляторе все так же, но [S = (((x-1)/(x+1))^(2i+1)) / (2i+1)] <> [y=ln(x)/2] получается:

var
 S,S2,x,y,a,b,h,e:Real;
 i,j:integer;
begin
a:=0.1;
b:=1;
h:=0.01;
i:=1;
e:=0.0001;
x:=a;
S:=0;
S2:=1;
for j:=1 to (2*i+1) do S2:=S2*(x-1)/(x+1);
while (abs(S2/(2*i+1)) > e) and (x<=b) do
 begin
  S2:=1;
  for j:=1 to (2*i+1) do S2:=S2*(x-1)/(x+1);
  S:=S+S2/(2*i+1);
  writeln('S=',S:10:10);
  y:=ln(x)/2;
  writeln('Y=',y:10:10);
  writeln('');
  i:=i+1;
  x:=x+h;
 end;
readln;
end.