Организация циклов While, Do-While

Петр Сидоров

Как правильно записать это уравнение ? Программа есть , я только не знаю как уравнение записать
void __fastcall TForm1::Button1Click(TObject *Sender)
{   
  ****** x=0.5; 
  ****** S=0;   
  int k=1;  
  memo1->Lines->Clear; 
  while (fabs(S)<E) 
    {
      y=pow(x-1,k)/k;
      s+=y;  
      k++; 
      memo1->Lines->Add(FloatToStr(s));
    end;
end;
Само уравнение
1 ответ

Петр Сидоров

#include <Math.hpp>
...
****** y = (Power(-1, k - 1) * Power(x, 3 * k - 1)) / k;