| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1206 人关注过本帖
标题:列主元消去法,换行没有成功,也可以帮忙修改一个简单完美的程序出来
只看楼主 加入收藏
梁朝斌
Rank: 4
等 级:业余侠客
帖 子:192
专家分:288
注 册:2012-10-21
结帖率:100%
收藏
已结贴  问题点数:100 回复次数:26 
列主元消去法,换行没有成功,也可以帮忙修改一个简单完美的程序出来
#include<stdio.h>
#include<math.h>
    int main(void)
    {
        double a[50][50],x[50],temp,sum,s;
        int i,j,k,r,n;
        printf("请输入线性方程组的系数:\n");
        scanf("%d",&n);
        printf("请输入线性方程组的元素值:\n");
        for(i=0;i<n;i++)
        {
            for(j=0;j<=n;j++)
                scanf("%lf",&a[i][j]);
        }
        printf("刚才输入的矩阵为:\n");
        for(i=0;i<n;i++)
        {
            for(j=0;j<=n;j++)
            {
                printf("%10lf",a[i][j]);
            }
            printf("\n");
        }
        k=0;
        do
        {
            r=k;
            for(i=k;i<n;i++)
            {
                if(fabs(a[r][k])<fabs(a[i][k]))
                    r=i;
                if(r>k)
                    for(j=k;j<=n;j++)
                    {
                        temp=a[r][j];
                        a[r][j]=a[k][j];
                        a[k][j]=temp;
                    }
            }/*交换成功,接下来进行计算*/
            for(i=k+1;i<n;i++)
            {
                s=a[i][k]/a[k][k];
                for(j=k;j<=n;j++)
                {
                    a[i][j]=a[i][j]-s*a[k][j];
                }
            }
            k++;
        }
            while(k<n-1);/*循环结束条件*/
                printf("输出计算后的矩阵为:\n");
            for(i=0;i<n;i++)
            {
                for(j=0;j<=n;j++)
                {
                    printf("%10lf",a[i][j]);
                }
                printf("\n");
            }
            for(k=n-1;k>=0;k--)
            {
                sum=0;
                for(j=k+1;j<n;j++)
                    sum+=a[k][j]*x[j];
                x[k]=(a[k][n]-sum)/a[k][k];
            }
            for(k=0;k<n;k++)
            printf("x[%d]=%lf\n",k,x[k]);
            return 0;
    }
书上的例子正确答案应该是:
请输入线性方程组的系数:
3
请输入线性方程组的元素值:
2 1 2 5
5 -1 1 8
1 -3 -4 -4
刚才输入的矩阵为:
2 1 2 5
5 -1 1 8
1 -3 -4 -4
输出计算后的矩阵为:
5 -1 1 8
0 -2.8 -4.2 -5.6
0 0 -0.5 -1



搜索更多相关主题的帖子: 成功 include double 元素 
2013-01-10 11:13
w527705090
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:11
帖 子:441
专家分:1882
注 册:2011-6-28
收藏
得分:7 
楼主威武 ~~

有心者,千方百计;无心者,千难万难。
2013-01-10 13:18
青春无限
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
来 自:江苏
等 级:贵宾
威 望:24
帖 子:3452
专家分:19340
注 册:2012-3-31
收藏
得分:7 
支持

学 会看代码…学习写程序…学会搞开发…我的目标!呵呵是不是说大话啊!!一切皆可能
2013-01-10 14:12
wp231957
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:神界
等 级:贵宾
威 望:423
帖 子:13688
专家分:53332
注 册:2012-10-18
收藏
得分:7 
线代不懂  混分

DO IT YOURSELF !
2013-01-10 14:35
yaobao
Rank: 13Rank: 13Rank: 13Rank: 13
等 级:蒙面侠
威 望:4
帖 子:1854
专家分:4121
注 册:2012-10-25
收藏
得分:0 
以下是引用wp231957在2013-1-10 14:35:20的发言:

线代不懂  混分
啥代都不懂,抢分

认认真真的学习,踏踏实实的走路:戒骄戒躁!!!
2013-01-10 14:41
wp231957
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:神界
等 级:贵宾
威 望:423
帖 子:13688
专家分:53332
注 册:2012-10-18
收藏
得分:0 
以下是引用yaobao在2013-1-10 14:41:12的发言:

啥代都不懂,抢分
我不懂线代  是因为我没读过大学

你老人家呢

DO IT YOURSELF !
2013-01-10 14:42
yaobao
Rank: 13Rank: 13Rank: 13Rank: 13
等 级:蒙面侠
威 望:4
帖 子:1854
专家分:4121
注 册:2012-10-25
收藏
得分:7 
以下是引用wp231957在2013-1-10 14:42:24的发言:

我不懂线代  是因为我没读过大学

你老人家呢
我啥代不懂是因为我高中被校长请出了学校。
他当时很客气的非要请我,我也不好为难他。

认认真真的学习,踏踏实实的走路:戒骄戒躁!!!
2013-01-10 14:54
wp231957
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:神界
等 级:贵宾
威 望:423
帖 子:13688
专家分:53332
注 册:2012-10-18
收藏
得分:0 
回复 7楼 yaobao
哦 我以为你也是大学学子呢


DO IT YOURSELF !
2013-01-10 15:00
yaobao
Rank: 13Rank: 13Rank: 13Rank: 13
等 级:蒙面侠
威 望:4
帖 子:1854
专家分:4121
注 册:2012-10-25
收藏
得分:0 
我就是一社会闲杂人等

认认真真的学习,踏踏实实的走路:戒骄戒躁!!!
2013-01-10 15:15
azzbcc
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
来 自:江西财经大学
等 级:贵宾
威 望:81
帖 子:3293
专家分:12919
注 册:2012-11-4
收藏
得分:7 
e,蹭分


[fly]存在即是合理[/fly]
2013-01-10 16:21
快速回复:列主元消去法,换行没有成功,也可以帮忙修改一个简单完美的程序出来
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.019962 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved