Решения интеграла по методу Боде

//---------------------------------------------------------------------------
 
#include <vcl.h>
#include <math.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "Unit3.h"
#include "Unit7.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
float a,b;
 int m=100;
 int main();
 float f( float x){
 return (1/(sqrt(2+0.5*pow(x,2))));
}
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm3::Edit1Change(TObject *Sender)
{
Edit1->Text;
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Edit2Change(TObject *Sender)
{
Edit2->Text;
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Panel1Click(TObject *Sender)
{
int kol=Edit1->Text.Pos(".");
int kol1=Edit2->Text.Pos(".");
if(Edit1->Text>="0" && Edit1->Text<="9" && kol==0 &&
Edit2->Text>="0" && Edit2->Text<="9" && kol1==0){
a=StrToFloat(Edit1->Text);
b=StrToFloat(Edit2->Text);
float x,h,n,i,e;
h=(b-a)/m;
e=h/4;
x = a;
i=7*f(x);
for(i=0;i<=m;i+=h){
x=x+e;
i = i + 32*f(x);
x = x+e;
i=i+12*f(x);
x=x+e;
i=i+32*f(x);
x=x+e;
i=i+14*f(x);
}
i=i-7*f(x);
i=i*2*e/45;
Label3->Caption=FloatToStrF(i, ffFixed, 6/*äî çàïÿòîé*/, 4/*ïîñëå çàïÿòîé*/);}
else
Form7->ShowModal();
 
}
//---------------------------------------------------------------------------