Контрольная работа: Обусловленность матрицы

if (A[k][k]==0) //проверка на неноль

{

for (i=k;A[i][k]==0;i++); // находим ненулевой 1й элемент

for(j=k;j<sz;j++) // меняем строки в матрице

{

par=A[k][j]; //смена строк в матрице

A[k][j]=A[i][j]; //путем записи в par и извлечения из него

A[i][j]=par;

}

par=F[k]; // смена строк в ответе

F[k]=F[i];

F[i]=par;

}

// получаем 1й элемент единицу (делим всю первую строку на a1,1 )

par=A[k][k]; //пишем в par первый элемент

for(int i=k;i<sz;i++)

A[k][i]=A[k][i]/par;

F[k]=F[k]/par; // делимответна 1й

// нулевойстолбец

for(int j=k+1;j<sz;j++)

{

for(int i=k;i<sz;i++)

b[i]=A[k][i]*A[j][k];

b[sz]= F[k]*A[j][k];

for(int i=k;i<sz;i++)

A[j][i]-=b[i];

F[j]-=b[sz];

}

}