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

for (int i=n-2; i>=0; i--)

{

r=A [i] [n] ;

for (int j=i+1; j<=n-1; j++)

r=r-A [i] [j] *X [j] ;

X [i] =r/A [i] [i] ;

}

String s="";

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

{

s="";

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

{

s+=FloatToStr (A [i] [j]) +" ";

}

Memo1->Lines->Add (s);

}

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

Memo1->Lines->Add ("Корни СЛАУ равны: ");

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

{

if (X [i] ! =NULL)

{

Memo1->Lines->Add ("x"+IntToStr (i+1) +" = "+FloatToStr (X [i]));

}

else

{

Memo1->Lines->Add ("Нет корней!");

break;