Вычисление бесконечной суммы в delphi

[Hegel]

Задание.

Вычислить приближенное значение бесконечной суммы с точностью e=0,0001
Дана бесконечная сумма

L- Обозначение квадрата чегото

1+2x+3xL2 + 4xL3+....+ nxL(n-1)

Для Abs(x)<1 s= 1/(1+x)L2


Рекурентная формула для данного выражния
S(n+1) = Sn +(n+1)xLn
S(n+1) = Sn + an+1

Как сделать такое вычисление в консоле дельфи



nxL(n-1) ---Общий член

[Hegel]

S(n+1) это порядковый номер,я не знаю как его реализовать в дельфи

Теоретически можно массивом только,тогда я совсем запутался с программой...

[Hegel]

======Up=====

[Hegel]

Прошу помочь,очень нужно сделать к завтрашнему дню..


S:= s+(n+1)*epx(ln(x)*n)) была такая догадка но не уверен в ее правильности при этом я все равно не понимаю как сделать цикл с n увеличивающимся.....

[puporev]

Задание у Вас с ошибками написано и мало понятно, потому что Вы сами не знаете что точно надо.

[Hegel]

Задание: ВЫчислить приближенное значение бесконечной суммы с точностью Е=0,0001

1+2x+3x*x +4x*x*x +...+ nx(В степени n-1)

[Hegel]

[alex_fcsm]

Если 0<x<1

const eps=0.000001;
var n:integer;
    x,sum,temp:real;
function power1(a:real;b:integer):real;
var res:real;
    i:integer;
begin
 res:=1;
 for i:=1 to b do
  res:=res*a;
  power1:=res;
end;
    
begin
readln(x);
sum:=1;n:=2;
repeat
temp:=n*power1(x,n-1);
sum:=sum+temp;
inc(n);
until temp<=eps;
writeln(sum);
end.

[maladoy]

function power (Z: real; k : integer) : real;
begin
power2:=exp(ln(Z)*k)
end;

READLN(X);
S:=1;
I:=1;
EPS:=0;
WHILE EPS>0,0001 DO
BEGIN

EPS:=(I+1)* POWER2(X,I);
S:=S+EPS;
I:=I+1;
END;

[alex_fcsm]

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

S:=1;
I:=1;
WHILE EPS <0,0001 DO
BEGIN
S:=S+(I+1)* POWER(X,I);
I:=I+1;
END;

Как изменяется eps?