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

ShowMessage ("Ошибка! Есть пустые ячейки!");

fl1=true;

i=n;

break;

}

}

}

Memo1->Lines->Add (" МЕТОД ГАУССА: ");

Memo1->Lines->Add ("");

if (! fl1) {

Memo1->Lines->Add ("Матрица приводится к ступенчатому виду: ");

l=0;

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

{

for (int j=n-1; j>i; j--)

{

if (A [j-1] [l] <A [j] [l])

{

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

{

r=A [j] [k] ;

A [j] [k] =A [j-1] [k] ;

A [j-1] [k] =r;

}

l=0;

}

else

{

if (A [j-1] [l] ==A [j] [l])