Задача на сумму ряда (за маленькое вознаграждение)

[stinger-42]

Помогите, пожалуйста!

Составить программу для вычисления суммы ряда с точностью до ε = 2⋅10^(-4)
Какое число членов ряда необходимо?
S = 1− 1/(3)^3 + 1/(5)^3 − 1/(7)^3 + ...
Полученный результат сравнить с точным S = (π)^(3)/32

Если поможете, могу немного денег на телефон скинуть за помощь (много не обещаю)

[BDA]

uses
  crt;

const
  eps = 0.0002;
  s0 = 0.968946146;{(pi^3) / 32}

var
  s, last, cur: real;
  count: integer;

function to3(a: integer): real;
begin
  to3 := a * a * a;
end;

begin
  count := 1;
  s := 1;
  last := 1;
  cur := 1;
  writeln('Step ', count, ') ', cur:0:5);
  repeat
    inc(count);
    last := cur;
    cur := (1 - 2 * ((count + 1) mod 2)) / to3(2 * (count - 1) + 1);
    writeln('Step ', count, ') ', cur:0:5);
    s := s + cur;
  until abs(last - cur) < eps;
  writeln('Program calculation: ', s:0:5, ' Steps: ', count, ' Delta: ', abs(s0 - s):0:5);
  readln;
end.

Или так:

uses
  crt;

const
  eps = 0.0002;
  s0 = 0.968946146;{(pi^3) / 32}

var
  s, last, cur: real;
  count, a: integer;

function to3(a: integer): real;
begin
  to3 := a * a * a;
end;

begin
  count := 1;
  s := 1;
  last := 1;
  cur := 1;
  a := 1;
  writeln('Step ', count, ') ', cur:0:5);
  repeat
    inc(count);
    last := cur;
    a := -a;
    cur := a / to3(2 * (count - 1) + 1);
    writeln('Step ', count, ') ', cur:0:5);
    s := s + cur;
  until abs(last - cur) < eps;
  writeln('Program calculation: ', s:0:5, ' Steps: ', count, ' Delta: ', abs(s0 - s):0:5);
  readln;
end.