Написать реализацию заданной функции

    const float eps = 0.0001;
    float x = 0.4, f, s = 0;
    float xval = x;
    int i = 1;
    do
    {
        i += 1;
        s += (f = i * (i + 1) * (i + 2) * xval);
        xval *= x;
    }
    while(f > eps);
    s = s / 6.0 + 1;
 
    ShowMessage(FloatToStr(s) + " vs " + FloatToStr(1 / Power(1 - x, 4))); // для сравнения

double memb(double x, long int n)
{
  return (n+1.)*(n+2)*(n+3)*Power(x,n)/6;  // "волшебная точка" после 1
}
//---------------------------------------------------------------------------
void res(double x, double dif)
{
  double sum = 1.0, temp;
  long int n = 1;
  temp = memb(x, n);
  if (fabs(x) < 1)
  {
    while (fabs(temp) >= dif)
    {
      sum += temp;
      n++;
      temp = memb(x, n);
    }
    MessageBox(Application->Handle, ("x = " + FloatToStr(x) + "\ndif = " + FloatToStr(dif) + "\nf(x) = " + FloatToStr(RoundTo(sum, -6)))\
    .c_str(), "Результат", MB_ICONASTERISK+MB_TOPMOST);
//  ShowMessage(RoundTo(Power(1-x,-4), -6));  // для сравнения
  }
  else
    MessageBox(Application->Handle, "Должно выполняться условие: |x| < 1", "Неверное значение х", MB_ICONASTERISK+MB_TOPMOST);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  res(0.5, 0.000001);
}

        s += (f = xval * i * (i + 1) * (i + 2));