永发信息网

C语言线性方程组求解,很急!

答案:1  悬赏:20  手机版
解决时间 2021-07-26 10:16
C语言线性方程组求解,很急!

最佳答案


#include <iostream.h>
#include <math.h>
#define N 100

int main() {
\x05int n,k,i,j,m;
\x05double A[N][N + 1],eps,temp;
\x05cout << "方程组维数 : ";
\x05cin >> n;
\x05cout << "控制精度 : ";
\x05cin >> eps;
\x05for(i = 0;i < n;i++) {
\x05\x05cout << "增广矩阵第" << i + 1 << "行(空格隔开):";
\x05\x05for(j = 0;j < n + 1;j++) cin >> A[i][j];
\x05}
\x05for(k = 0; k < n; ++k) {
\x05\x05m = k;
\x05\x05for(i = k + 1; i < n; ++i) {
\x05\x05\x05if(fabs(A[i][k]) > fabs(A[m][k]))
\x05\x05\x05\x05m = i;
\x05\x05}
\x05\x05if(fabs(A[m][k]) <= eps) return 0;
\x05\x05if(m != k) {
\x05\x05\x05for(i = k;i < n + 1;i++) {
\x05\x05\x05\x05temp = A[k][i];
\x05\x05\x05\x05A[k][i] = A[m][i];
\x05\x05\x05\x05A[m][i] = temp;
\x05\x05\x05}
\x05\x05}
\x05\x05temp = A[k][k];
\x05\x05for(i = k; i < n + 1; ++i) A[k][i] /= temp; // 主元系数“归一”划
\x05\x05for(i = k + 1;i < n;i++) { // 消元
\x05\x05\x05temp = A[i][k];
\x05\x05\x05for(j = k; j < n + 1; ++j) {
\x05\x05\x05\x05A[i][j] -= A[k][j] * temp;
\x05\x05\x05}
\x05\x05}
\x05}
\x05cout << "整理完毕,此时方程组为 :" << endl;
\x05for(i = 0;i < n;i++) {
\x05\x05for(j = 0;j < n + 1;j++)
\x05\x05\x05cout << A[i][j] << " ";
\x05\x05cout << endl;
\x05}
\x05for(i = n - 2;i >= 0;i--) {
\x05\x05for(j = i + 1;j < n;j++)
\x05\x05\x05A[i][n] -= A[i][j] * A[j][n];
\x05}
\x05cout << "方程的解为 :" << endl;
\x05for(i = 0; i < n;i++) cout << A[i][n] << " ";
\x05cout << endl;
\x05return 0;
}
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
把2:7的比的前项后项都缩小到原来的2分之一
为什我经验值会为负
在美国买烟有年龄规定吗
QQ牧场的两个问题~
急求八年级数学题今天之内
咖啡色适合什么肤色,咖啡虹吸壶:什么咖啡虹
谁知道这个网站的是不是港行手机
高考结束祝福的话,急求高考祝福赠言
联通新势力卡怎样去绑赠送的QQ业务?要短信代
原始基督教复活指的是启蒙运动还是宗教改革?
关于中国宇航员
沙比天天有,今天特别多。是吗?
GDP与人民生活水平的关系
为什么我用数据线下载或在电脑上充电后,我的
开中国移动收费点要什么条件
推荐资讯
如何彻底卸载网卡驱动,如何卸载win10无线网卡
怎么给自己取英文名我是女生 叫陈美珍不要这
杜甫的所有的诗(绝句)
题目(学琵琶的经历)
表示很喜欢东西的句子,栀子花香的,好词好句
谦卑的向有识之士请教?用什么成语或词语比较
常远地铁故事台词,形容在地铁站迷路的句子
兄弟跟钱```不知道你们的选择是什么?
建筑一般什么朝向好!理由是什么?南北方对朝
丝路英雄里面要怎么结婚?
求几款类似血战缅甸的这类的单机游戏
怎么办公软件中的的艺术字不能粘贴到日志上呢
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?