第3章:线性方程组求解 2/5 return. 2.求解上三角形线性方程组c语言代码: for(k=M-1; k>0; k-) for(i=0; i<k;i ++) A[][N-1]-=A[i][k]*A[kIN-1 A[i]k]=0.0; 3约当消去法C语言代码: for(k=0 K<M; K++) [X=A[K[K: for(j=k<N;j++)A[K][]/=X for(i=0; i<M; i ++ 讦f(i==K) continue; X=AOKI第 3 章：线性方程组求解 2/5 } return; } 2． 求解上三角形线性方程组 c 语言代码： for(k=M-1;k>0;k--) for(i=0;i<k;i++) { A[i][N-1] -= A[i][k]*A[k][N-1]; A[i][k]=0.0; } 3.约当消去法 C 语言代码： for(K=0;K<M;K++) { x=A[K][K]; for(j=K;j<N;j++) A[K][j] /= x; for(i=0;i<M;i++) { if(i==K) continue; x=A[i][K];