Продолжение приложения а

}

//---------------------------------------------------------------------------

FormGraphUnit:

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "FormGraphUnit.h"

#pragma package(smart_init)

#pragma resource "*.dfm"

TFormGraph *FormGraph;

extern float X[100], Y[100], H;

extern int Num;

//---------------------------------------------------------------------------

__fastcall TFormGraph::TFormGraph(TComponent* Owner)

: TForm(Owner){}

//---------------------------------------------------------------------------

void __fastcall TFormGraph::ButtonCloseClick(TObject *Sender){

Close();

}

//---------------------------------------------------------------------------

void __fastcall TFormGraph::ButtonSaveClick(TObject *Sender){

if (SaveDialog->Execute()) Chart->SaveToBitmapFile(SaveDialog->FileName);

}

//---------------------------------------------------------------------------

void __fastcall TFormGraph::ButtonPrintClick(TObject *Sender){

if (PrinterSetupDialog->Execute()) Chart->PrintLandscape();

}

//---------------------------------------------------------------------------

void __fastcall TFormGraph::FormShow(TObject *Sender){

int i;

Series1->Clear();

for (i=0; i<Num; i++) Series1->AddXY(X[i],Y[i],"",2);

}

FormResultUnit:

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "FormResultUnit.h"

#include "function.h"

#include "stdio.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TFormResult *FormResult;

extern float X[100], Y[100], H;

extern int Num;

//---------------------------------------------------------------------------

__fastcall TFormResult::TFormResult(TComponent* Owner)

: TForm(Owner){}

//---------------------------------------------------------------------------

void __fastcall TFormResult::ButtonSaveClick(TObject *Sender){

FILE* fr;

char* Name;

int i;

if (SaveDialog->Execute()){

Продолжение приложения а

Name = SaveDialog->FileName.c_str();

if ((fr=fopen(Name,"w+t"))==NULL) ShowMessage("Невозможно создать файл!!!");

else {

fprintf(fr,"Таблица значений функции решения уравнения dy/dx=%s", fID());

for(i=0; i<Num; i++)

fprintf(fr,"\n%i X = %s Y = %s", i, FloatToStr(X[i]), FloatToStr(Y[i]));

fclose(fr);

}

}

}

//---------------------------------------------------------------------------

void __fastcall TFormResult::ButtonCloseClick(TObject *Sender){

Close();

}

//---------------------------------------------------------------------------

void __fastcall TFormResult::FormShow(TObject *Sender){

StringGrid->Cells[0][0] = "№";

StringGrid->Cells[1][0] = "X";

StringGrid->Cells[2][0] = "Y";

StringGrid->RowCount = Num+1;

for (int i=0; i<Num; i++){

StringGrid->Cells[0][i+1] = IntToStr(i+1);

StringGrid->Cells[1][i+1] = FloatToStr(X[i]);

StringGrid->Cells[2][i+1] = FloatToStr(Y[i]);

}

}

//--------------------------------------------------------------------------

FormHelpUnit:

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "FormHelpUnit.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TFormHelp *FormHelp;

//---------------------------------------------------------------------------

__fastcall TFormHelp::TFormHelp(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

FormHelp2Unit:

/---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "FormHelp2Unit.h"

//---------------------------------------------------------------------------