Сумма числового ряда

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include <math.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
//-------Основной button--------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 double s=0,a,h,y;
 double x,x2;
 int n;
  x=StrToFloat(Edit1->Text);     // вводим a
  x2=StrToFloat(Edit2->Text);    //вводим b
  n=StrToFloat(Edit3->Text);    // вводим N
  h=(x2-x)/10.0;
  a=1;
 
while(x<x2)
  {
  x+=h;
 
   for(int k=0;k<n;k++)
    {
     a=a*((-4*x*x)/((2*k+1)*(2*k+2)));  //S(x) 
     s=s+a;
     y=2*(cos(x)*cos(x)-1);                  // Y(x)  
    }
 
    Memo1->Lines->Add("При x= "+FloatToStr(x)+" Сумма= "+FloatToStr(s));  //вывод S(x)
    Memo1->Lines->Add("При x= "+FloatToStr(x)+" Y(x)= "+FloatToStr(y));    //вывод Y(x)
    Memo1->Lines->Add("");
  }
}