Сумма бесконечного ряда (Pascal)

[spinogryz_ua]

нужно вычислить суму бесконечного ряда с заданой точностью. С использованием цыкла repeat..until или while
тоесть
1. Определить начальные даные при i=1.
2. Накапливать суму до тех пор пока не будет достигнута заданая точность.
3 Вывести результат.

точность: 10 в степени -5
х = 0.27


никак не могу понять алгоритм.

[AlexDark]

нечерта не помню паскаль =)
но суть в том, что вычисления до заданной точности бесконечных рядов производятся пока разница между последним вычисленным и текущим значением не будет меньше собственно заданной точности

грубо говоря как то так :

sum:=0; lastSum:=0;i:=1;
repeat 
begin
sum:=lastsum;
lastsum=sum + pow (-1,i+1) * ( i + pow( x,i+1) / ((i + sqrt(i) +1)* (i+1)));
i:=i+1;
end;
until ( abs(sum-lastsum) > pow(10,-5))

[spinogryz_ua]

а с цыклом while for как?

[spinogryz_ua]

Сообщение от AlexDark

sum:=0; lastSum:=0;i:=1;
repeat 
begin
sum:=lastsum;
lastsum=sum + pow (-1,i+1) * ( i + pow( x,i+1) / ((i + sqrt(i) +1)* (i+1)));
i:=i+1;
end;
until ( abs(sum-lastsum) > pow(10,-5))

что такое lastsum?