Разработка программы расчета определенного интеграла по формуле Буля по схеме двойного пересчета с заданной точностью
Категория реферата: Рефераты по информатике, программированию
Теги реферата: медицинские рефераты, реферат группы
Добавил(а) на сайт: Bugaev.
Предыдущая страница реферата | 2 3 4 5 6 7 8 9 10 11 12 | Следующая страница реферата
} 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)
{ e=checkf(Sender,Edit4,e); a=checkf(Sender,Edit1,a); b=checkf(Sender,Edit2,b);
Form2->Close();
}
//-----------------------------------------------------------------------
-
void __fastcall TForm2::FormCreate(TObject *Sender)
{
Edit1->Text=FloatToStr(a);
Edit2->Text=FloatToStr(b);
Edit4->Text=FloatToStr(e);
}
//-----------------------------------------------------------------------
-
void __fastcall TForm2::GroupBox1Click(TObject *Sender)
{
}
//-----------------------------------------------------------------------
-
Unit3.cpp
//-----------------------------------------------------------------------
-
#include
#pragma hdrstop
#include "Unit3.h"
//-----------------------------------------------------------------------
-
#pragma package(smart_init)
#pragma link "PERFGRAP"
#pragma resource "*.dfm"
TForm3 *Form3;
extern float I[2];
//-----------------------------------------------------------------------
-
__fastcall TForm3::TForm3(TComponent* Owner)
: TForm(Owner)
{
}
//-----------------------------------------------------------------------
-
void __fastcall TForm3::BitBtn1Click(TObject *Sender)
{
Form3->Close();
}
//-----------------------------------------------------------------------
-
void __fastcall TForm3::FormCreate(TObject *Sender)
{
SaveDialog1->InitialDir= GetCurrentDir();
Edit1->Text=FloatToStr(I[1]);
}
//-----------------------------------------------------------------------
-
void __fastcall TForm3::Button1Click(TObject *Sender)
{
TStringList *s; s= new TStringList;
SaveDialog1->Execute(); s->Add(" Значение интеграла равно"+FloatToStr(I[1])); s->SaveToFile(SaveDialog1->FileName); delete s;
}
//-----------------------------------------------------------------------
-
void __fastcall TForm3::Label1Click(TObject *Sender)
{
}
//-----------------------------------------------------------------------
-
Приложение Б
Результаты тестирования программы.
[pic]
Рисунок 4 - Результат тестирования
Приложение В.
Тестирование данных в математическом пакете.
[pic]
Приложение Г
Рекомендуем скачать другие рефераты по теме: документ реферат, культура скачать реферат.
Предыдущая страница реферата | 2 3 4 5 6 7 8 9 10 11 12 | Следующая страница реферата