Delphi. Написать программу которая вычисляет сумму ряда 1/a+1/a^2+1/a^3... с точностью 0.01

[<O_O>]

можете объяснить как это реализовать?
у меня есть псевдокод, хотя я думаю он в корне не верен....
я так понимаю:
repeat
вычисление и сравнение с результатом на предыдущем шаге - разницу занести в Е
until E > 0.01

[Stilet]

Было уже...

w:=1;q:=1;
repeat
 q:=w;
 w:=w+1/a;
 a:=a*a;
until abs(q-w)<E;

Примерно так...

[<O_O>]

В поиске не нашел, но спасибо, попробую А то уже запарился.

[Mad_Cat]

Примерно так...

неа

1/a+1/a^2+1/a^3

а у вас буит 1/a +1/a^2+1/a^4+1/a^8....

w:=0;q:=a;
repeat
 w:=w+1/q;
 q:=q*a;
until abs((1-a)/q)<E;

[Stilet]

О! Да. Писал с потолка, так что пардонте

[CaTsoon]

Спасибо Вам я присвоил e 0.01 надеюсь правильно сделал