Сумма ряда [Delphi]

[StudeHt]

Доброго времени суток уважаемые эксперты! Вообщем нужно посчитать сумму и значение функции выбранной пользователем. Есть процедура:

procedure CalcTable(F:fun; Xn,Xk:extended; n:integer);
var x,y,h,a,Sum:extended;
    c,k:integer;
begin
  h:=abs((Xn-Xk)/10);
  c:=-1;
  x:=Xn;
  repeat
    a:=x; Sum:=x;
    y:=F(x);
    for k:=1 to n do
      begin
        case MainFormOfLab7.RadioGroupChooseFunction.ItemIndex of
          0:a:=c*a*sqr(x)/2*k*(2*k+1);
          1:a:=c*a*sqr(x)*(2*k-1)/2*k+1;
          2:a:=c*a*sqr(x); //это рекурентное соотношение не расчитано, написано просто для теста программы
        end;
        Sum:=Sum+a;
      end;
    MainFormOfLab7.FieldOfOutputResult.Lines.Add('При x='+FloatToStrF(x,fffixed,6,2)+
                                   '   Сумма '+FloatToStrF(Sum,fffixed,10,5)+
                                   '   Значение функции '+FloatToStrF(y,fffixed,10,5));
    x:=x+h;
  until x>Xk;
end;

Функции - sin(x), arctan(x) и sh(x), но, почему то сумма расчитывается неверно, хотя если набросать отдельную программу для расчета суммы одной функции то сумма sin(x) и arctan(x) сходятся.. Помогите исправить ошибку..


Все разобрался, просто неверно расставлены скобки в рекурентных соотношениях..