Вычисление суммы бесконечного ряда с заданной точностью - Pascal ABC - Ответ 13231112

const
  e = 0.005;
  x = 0.62;
var
  n: integer;
  b, z, s: real;
  a: array[2..201] of real;
 
begin
  n := 2; {номер первого члена ряда}
  s := 0; {сумма пока равна 0}
  z := 1; {(-1)^2}
  repeat
    b := n / (n * n - 1); {первый множитель}
    a[n] := z * b * sin(n * x); {член ряда целиком}
    writeln('a(', n, ') = ', a[n]:9:6); {печать члена ряда}
    s := s + a[n]; {складываем член ряда с суммой}
    inc(n); {следующий член ряда}
    z := -z {(-1)^n}
  until b < e; {вычисляем, пока первый множитель не станет меньше погрешности}
  writeln('s = ', s:0:6) {печатаем сумму}
end.

const
  e = 0.005;
  x = 0.62;
var
  n: integer;
  z, s: real;
  a: array[2..51] of real;
 
begin
  n := 2; {номер первого члена ряда}
  s := 0; {сумма пока равна 0}
  z := 1; {(-1)^2}
  repeat
    a[n] := z * n / (n * n - 1) * sin(n * x); {член ряда целиком}
    writeln('a(', n, ') = ', a[n]:9:6); {печать члена ряда}
    s := s + a[n]; {складываем член ряда с суммой}
    inc(n); {следующий член ряда}
    z := -z {(-1)^n}
  until abs(a[n - 1]) < e; {вычисляем, пока первый множитель не станет меньше погрешности}
  writeln('s = ', s:0:6) {печатаем сумму}
end.