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

: TForm (Owner)

{

}

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

void __fastcall TForm1:: ButtonOkClick (TObject *Sender)

{

TryStrToInt (Edit1->Text,n);

if (n>1)

{

StringGrid1->Enabled=true;

StringGrid1->RowCount=n;

StringGrid1->ColCount=n+1;

ButtonClear->Enabled=true;

ButtonOk->Enabled=false;

StringGrid1->Color=clWindow;

ButtonGauss->Enabled=true;

ButtonHolec->Enabled=true;

X=new float [n] ;

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

{

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

{

A [i] [j] =NULL;

}

X [i] =NULL;

}

}

else

{