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

}

}

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

{

p=0;

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

{

p=p+Nig [i] [j] *Y [j] ;

}

Y [i] = (A [i] [n] -p) /Nig [i] [i] ;

}

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

{

p=0;

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

{

p=p+Ver [i] [j] *X [j] ;

}

X [i] = (Y [i] -p) /Ver [i] [i] ;

}

String s="";

Memo1->Lines->Add ("Нижняя треугольная матрица: ");

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

{

s="";

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

{

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

}