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

}

}

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

void __fastcall TForm1:: ButtonClearClick (TObject *Sender)

{

StringGrid1->Enabled=false;

StringGrid1->RowCount=0;

StringGrid1->ColCount=0;

ButtonClear->Enabled=false;

ButtonOk->Enabled=true;

StringGrid1->Color=clBtnFace;

ButtonGauss->Enabled=false;

}

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

void __fastcall TForm1:: ButtonGaussClick (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]);

}

}

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

{

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

{

if (A [i] [j] ==NULL)