Реферат: Точные методы решения систем линейных алгебраических уравнений (СЛАУ)

}

}

}

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

void __fastcall TForm1:: ButtonExitClick (TObject *Sender)

{

Close ();

}

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

void __fastcall TForm1:: RadioButton2Click (TObject *Sender)

{

ButtonGauss->Visible=false;

ButtonHolec->Visible=true;

}

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

void __fastcall TForm1:: RadioButton1Click (TObject *Sender)

{

ButtonGauss->Visible=true;

ButtonHolec->Visible=false;

}

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

void __fastcall TForm1:: ButtonHolecClick (TObject *Sender)

{

Memo1->Lines->Clear ();

for (int i=0; i<n; i++)

{

for (int j=0; j<n+1; j++)

{

TryStrToFloat (StringGrid1->Cells [j] [i],A [i] [j]);