Циклические алгоритмы

#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)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Edit1->Text="0,1";
Edit2->Text="1,0";
Edit3->Text="10";
Edit4->Text="0,1";
Memo1->Lines->Clear();
Memo1->Lines->Add("Лабораторная работа №3");
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
double a,b,x,h,r,s,y,m;
int n,zn=-1,k;
a = StrToFloat(Edit1->Text);
b = StrToFloat(Edit2->Text);
n = StrToInt(Edit3->Text);
h = StrToFloat(Edit4->Text);
      r=s=1;
        for(x=a; x<=b; x+=h)
           {
           y=cos(x);
              for(k=1; k<=n; k++)
               {
               s+=zn*(pow(x,(2*k))/(2*k));//Здесь мне непонятно что и как сделать
               }
           m=fabs(s-y);
Memo1->Lines->Add("");
Memo1->Lines->Add("При х="+FloatToStrF(x,ffFixed,3,1)+"\t"" S="+FloatToStrF(s,ffFixed,4,5)+" Y= "+FloatToStrF(y,ffFixed,4,5)+"\t"" Разность(S-Y)="+FloatToStrF(m,ffFixed,4,4));
}
}
//---------------------------------------------------------------------------

  double a = 0.1, b = 1, h = 0.1, x, y, s, r;
  int n = 10, k;
  for(x = a; x <= b; x += h)
  {
    s = r = 1;
    y = cos(x);
    for(k = 1; k <= n; k++)
    {
      r *= - x * x / (2 * k) / (2 * k - 1);  // член ряда
      s += r;  // сумма
    }
    Memo1->Lines->Add("при х = " + FloatToStrF(x, ffFixed, 3, 1) +
                      "\tY(x) = " + FloatToStrF(y, ffFixed, 4, 4) +
                      "\tS(x) = " + FloatToStrF(s, ffFixed, 4, 4) +
                      "\t|Y(x) - S(x)| = " + FloatToStrF(fabs(y - s), ffFixed, 4, 4));
  }