Предыдущая страница реферата | 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 | Следующая страница реферата