Разработка программы расчета определенного интеграла по формуле Буля по схеме двойного пересчета с заданной точностью
Категория реферата: Рефераты по информатике, программированию
Теги реферата: медицинские рефераты, реферат группы
Добавил(а) на сайт: Bugaev.
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 9 10 11 | Следующая страница реферата
Application->CreateForm(__classid(TForm1), &Form1);
Application->CreateForm(__classid(TForm2), &Form2);
Application->CreateForm(__classid(TForm3), &Form3);
Application->Run();
} catch (Exception &exception)
{
Application->ShowException(&exception);
} return 0;
}
//-----------------------------------------------------------------------
-
Unit1.cpp
//-----------------------------------------------------------------------
-
#include
#include
#include
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include
//-----------------------------------------------------------------------
-
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
float a=0,b=10,e=0.01,I[2];
float f(float x)
{ return 5*pow(x,5)-pow(x,3);
}
//-------------------------------------
void Bool()
{ float h,s,x[5],N=2; int i,l; do
{ for(l=0;lSimpleText="Выход";
}
//-----------------------------------------------------------------------
-
void __fastcall TForm1::N1Click(TObject *Sender)
{
Form2->Show();
SB1->SimpleText="Ввод данных закончен";
}
//-----------------------------------------------------------------------
-
void __fastcall TForm1::N2Click(TObject *Sender)
{
Bool();
Form3->Show();
SB1->SimpleText="Произведен расчет";
}
//-----------------------------------------------------------------------
-
Unit2.cpp
//-----------------------------------------------------------------------
-
#include
#include
#pragma hdrstop
#include "Unit2.h"
//-----------------------------------------------------------------------
-
#pragma package(smart_init)
#pragma link "ibctrls"
#pragma link "ibreg"
#pragma link "CSPIN"
#pragma resource "*.dfm"
TForm2 *Form2;
extern float a,b,e;
//-----------------------------------------------------------------------
-
__fastcall TForm2::TForm2(TComponent* Owner)
: TForm(Owner)
{
}
//------------------------------------------
//-----------------------------------------------------------------------
-
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;
Рекомендуем скачать другие рефераты по теме: документ реферат, культура скачать реферат.
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 9 10 11 | Следующая страница реферата