//---------------------------------------------------------------------------

#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="0,9";
        Edit3->Text="1,e-5";
        Memo1->Clear();
        Memo1->Lines->Add("Ðåçóëüòàò ãð 942791 Áåëüêî È.Â");
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
        double a, b, h, s, y, e;
        a=StrToFloat(Edit1->Text);
        Memo1->Lines->Add("A="+Edit1->Text);
        b=StrToFloat(Edit2->Text);
        Memo1->Lines->Add("B="+Edit2->Text);
        e=StrToFloat(Edit3->Text);
        Memo1->Lines->Add("e="+Edit3->Text);
        h=(b-a)/10.;
        double x =a;
        while(x<=b)
        {
                s=0;
                y=sin(x)/x;
                int n=0;
                do
                {
                        double f=1 ;
                        for (int i = 1; i <= 2*n+1; i++)
                        {
                                f*=i;
                        }
                        s+= pow(-1, n)*pow(x, 2*n)/f;
                        n++;
                }
                while (fabs(y-s)>=e);
                n--;
                 Memo1->Lines->Add("Ïðè x="+FloatToStrF(x,ffFixed,8,2)
                 + " S(x)="+FloatToStrF(s,ffFixed,8,2)
                 + " Y(x)="+FloatToStrF(y,ffFixed,8,2)
                 + " n="+IntToStr(n));
                x += h;

        }


}
//---------------------------------------------------------------------------