Частичная сумма ряда

[ssavi]

Правильна ли моя программа для нахождения частичной суммы ряда с заданной точностью e?

сам ряд:
http://saveimg.ru/pictures/19-12-12/...bd2853fc13.JPG

var
  eps,summ,a0,a1,x,b:real;
  k:integer;
begin
  writeln('vvedi x,epsilon');
  readln(x,eps);
  a0:=-1;
  k:=1;
  summ:=0;
  repeat
    b:=-(sqr(sqr(x/3)))/((2*k+1)*(2*k+2));
    a1:=a0*b;
    summ:=summ+a1;
    inc(k);
    a0:=a1;
  until abs(a1)<eps;
  writeln(summ:1:8);
end.

помогите пожалуйста всё сдал это не могу сообразить, крайне важно, задача для зачёта!

[Abstraction]

Нет, это первый член либо сумма первых двух членов.
Если поставить в условии выхода из цикла модуль, будет частичная сумма слагаемых до первого слагаемого меньше e.
Условия на точность суммы или хотя бы оценки хвоста суммы я не вижу.

[ssavi]

спасибо увидел ошибку, мне нужно суммировать до тех пор пока новый член не станет меньше по модулю епсилон, и вывести полученную сумму, не подскажете как проверить задачу?

[Abstraction]

мне нужно суммировать до тех пор пока новый член не станет меньше по модулю епсилон, и вывести полученную сумму

Это не будет суммой ряда с точностью эпсилон (если думаете иначе - найдите сумму 1+1/2+1/3+... с точностью 1/5).

[ssavi]

abs(Sn+1-Sn)<e это то же что и abs(an+1)<e так же?

[Abstraction]

Да. А abs(S_{n+20}-S_n)>abs(a_{n+1}). А abs(S-S_n), если S - существующая сумма ряда, - ещё больше.