Реферат: Точные методы решения систем линейных алгебраических уравнений (СЛАУ)
}
Memo1->Lines->Add ("Верхняя треугольная матрица: ");
for (int i=0; i<n; i++)
{
s="";
for (int j=0; j<n+1; j++)
{
s+=FloatToStr (Ver [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;
}
}
}
}
// ---------------------------------------------------------------------------
Результаты расчета:
|
К-во Просмотров: 432
Бесплатно скачать Реферат: Точные методы решения систем линейных алгебраических уравнений (СЛАУ)
|