Найти сумму знакопеременного ряда

[vbchristy46]

Найти сумму знакопеременного ряда Y=1+X2/2!-X4/3!+X6/4!-... при |Х|<=1. Расчет продолжать до тех пор, пока приращение |y| будет больше заданной точности e, e<=|x|.

delphi
X2,X4 и X6-это X в квадрате, в четвёртой и в шестой степени....

[Snejnaya]

Расчет продолжать до тех пор, пока приращение |y| будет больше заданной точности e

может меньше заданной точности?

Отдельно пишутся функции для вычисления факториала и степени (назовем их factorial, stepen)

потом

y:=1;
x:=x*x;
i:=1;
while abs(slag)<=e do
begin
if (i mod 2) = 0 then slag:=(-1)*stepen(x,i)/factorial(i+1) 
else slag:=stepen(x,i)/factorial(i+1);
y:=y+slag;
i:=i+1;
end;

[Grag]

Скорее всего "пока модуль члена ряда будет больше заданной точности". Если очередное слагаемое по модулю станет меньше/равно эпсилон, то расчет останавливается.... И все, что писала сНежная можно вот так оформить

y:=0;
i:=0;
slag:=1+e;
while slag>e do
begin
  slag:=stepen(x,2*i)/factorial(i+1);
  if odd(i)
    then y:=y+slag
    else y:=y-slag
  Inc(i)
end;

А если цикл переписать для Repeat....until, то вот этого извращения slag:=1+e; не надо будет...