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