Проверьте правильность задачи..., на сумму ряда Опции

[Crash_Devil]

Условие:
Вычислить сумму ряда с точностью ε=10(в -5 степени)
Ряд представлен в прикрепленном файле.
Текст программы:
program z1;
const e=0.00001;
var
s{Сумма ряда},n{член ряда},x,x1{Переменная}:real;
i,k:integer;{счетчик}
begin
s:=0;
i:=2;
Write('VVedite x(<=1.01): ');Read(x);
n:=((i*sqr(x))+1)/(sqr(i+1));
s:=s+n;
REPEAT
i:=i+1;
x1:=Power(x,i);n:=((x1*i)+1)/(sqr(i));
if odd(i)=false{чет} then begin
s:=s+n;
i:=i+1;end
else
s:=s-n;
i:=i+1;
until n<e;
writeln(s:20:12);
end.

[volvo]

Во-первых, ты не привел свою реализацию функции Power. А во-вторых я переписал программку по-другому, и вот что получилось (в твою программу добавил вычисление Power через exp(i * ln(x))):

Твоя программа:

VVedite x(<=1.01): 1
-4.907396669029
VVedite x(<=1.01): 0.7
-0.179428755969
VVedite x(<=1.01): 0.5
-0.114767705942
VVedite x(<=1.01): 0.3
-0.110536721367

Моя программа:

X = 1
0.484380786041
X = 0.7
0.346899755541
X = 0.5
0.272062898495
X = 0.3
0.215163742135

Смотри сам, но почему-то у меня вызывает сомнение результат работы твоей программы. Откуда такая отрицательная сумма при X = 1?

(собственно код пока не смотрел)