nit3.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)
{
В
}
// --------------------------------------------- ------------------------------
Додаток Б
В
Результати тестування програми.
В
Рисунок 4 - Результат тестування
В
Додаток В.
Тестування даних в математичному пакеті.
В
Додаток Г
В
Гіпертекстовий варіант документа
xmlns: o = "urn: schemas-microsoft-com: office: office"
xmlns: w = "urn: schemas-microsoft-com: office: word"
xmlns = "