Курсовая работа: Итерационные методы решения систем линейных алгебраических уравнений

Memo1->Lines->Add(«»);

String p=»»;

Memo1->Lines->Add («Промежуточная матрица:»);

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

{

p=»»;

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

{

p+=FloatToStr (B[i] [j])+»»;

}

Memo1->Lines->Add(p);

}

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;

}

}

Memo1->Lines->Add(«»);

Memo1->Lines->Add (« Количество итераций = «+FloatToStr(k));

}