Реферат: Разработка программы расчета определенного интеграла по формуле Буля по схеме двойного пересчета с заданной точностью
{
}
//------------------------------------------
//---------------------------------------------------------------------------
void __fastcall TForm2::Button2Click(TObject *Sender)
{
Form2->Close();
}
//---------------------------------------------------------------------------
float __fastcall TForm2::checkf(TObject *Sender,TEdit *e1,float w)
{
float buf;
do{
try
{
if(e1->Text!="")
buf=StrToFloat(e1->Text);else buf=w;
}
catch(const EConvertError &e)
{
int j=Application->MessageBox("Неверные данные", NULL, MB_OK);
buf=-1;
e1->Text=FloatToStr(w);
}}while((buf==-1));
return buf;
}
//----------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{