Вычислить бесконечную сумму с заданной точностью

[Aestetik]

Вычислить бесконечную сумму с заданной точностью

Вычислить бесконечную сумму с заданной точностью eps (eps>0). Считать, что точность достигнута, если очередное слагаемое по модулю меньше eps – все последующие слагаемые можно не учитывать.

 

[Aestetik]

Язык программирования Паскаль АВС

 

[Vladimir_S]

Да пожалуйста. Язык программирования - Free Pascal:

Var
 k:Integer;
 S,a,eps:Real;

BEGIN
 Write('Eps= ');
 Readln(eps);
 WriteLn('      Result      Number of items     Accurate value');
 k:=1;
 a:=-1;
 S:=a;
 Repeat
  Inc(k);
  a:=-a/k;
  S:=S+a;
 Until Abs(a)<Eps;
 WriteLn(S:12:6,k:12,(Exp(-1)-1):24:6);
 Readln;
END.

И модераторское замечание: прекратите уделывание форума дубликатами!!! У нас подобное наказуемо, вплоть до бана.
Тема-дубликат удалена.