Курсовая работа: Создание программы табуляции функций

double __fastcall TfrmTabulation::function2(double x)

{return tan(3 * x);}

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

double __fastcall TfrmTabulation::function3(double x)

{return cos(2 * x);}

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

double __fastcall TfrmTabulation::function4(double x)

{return (4 - x) / 2;}

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

double __fastcall TfrmTabulation::function5(double x)

{return (1 - tan(x)) / (1 + tan(x));}

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

double __fastcall TfrmTabulation::function6(double x)

{return cos(x) + sin(x);}

//----------------------------------------------------------__fastcall TfrmTabulation::TfrmTabulation(TComponent* Owner)

: TForm(Owner)

{sgrXY->Rows[0]->Strings[0] = "y";

sgrXY->Rows[0]->Strings[1] = "x";}

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

void __fastcall TfrmTabulation::btnExitClick(TObject *Sender)

{this->Close();}

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

void __fastcall TfrmTabulation::btnCalcClick(TObject *Sender)

{Series1->Clear();

sgrXY->Cells[0][1] = "";

sgrXY->Cells[1][1] = "";

sgrXY->RowCount = 2;

for(double i = htMin->Value, j=0; i < htMax->Value; i = i + htStep->Value, j++)

{sgrXY->RowCount++;