циклы.вычестьь сумму ряда с нарастающим итогом[delphi]

[MariaD]

нужно составить программу для вычисления суммы бесконечного ряда с точностью до e = 0,0001.суммирование осуществлять пока абсолютное значение текущего ряда не станет меньше e).вычислять с нарастающим итогом

правильно ли написала программу, как сделать с нарастающим итогом?

program Z5;
{$APPTYPE CONSOLE}
uses
SysUtils;
const e=0.0001;
var
z,s,x,ch,k:real;
n:integer;
begin
writeln('Vvedite x');
readln(x);
s:=0; z:=0; n:=0;t:=2*n;

while abs(ch) > e do begin
inc(n); 
f:=f*t*(t-1);
ch:=exp(x*ln(t))/f;
s:=s+ch;

end;
z:=1+s*exp(-1*ln(n);
writeln('z = ',z:2:5);
readln;
end.

__________
Код нужно оформлять тегами!

Модератор

[Mad_Cat]

программа написано неверно потому что
[Warning]такие программы обычно пишутся с использованием реккурентных соотношений
[Error] не изменяются ни степень ни факториал, точнее изменяются, но не так как нужно

uses
  SysUtils;
const e = 0.0001;
var s,st,f:real;
sl,x:real;
n:integer;
begin
write('x=');
readln(x);
s:=1;
f:=2;
st:=x*x;
sl:=-st/f;
n:=1;
while abs(sl)>e do
begin
s:=s+sl;
n:=n+1;
f:=f*(2*n-1)*2*n;
st:=st*x*x;
sl:=-st/f;
end;
writeln('S=',s:6:4,' n=',n:5);
readln;
end.