开发工具:
文件大小: 28kb
下载次数: 0
上传时间: 2014-03-10
详细说明： 解决c语言解方程组的问题，代码如下： #include #define M 20 #define N 21 int k,l; void main() { int i,i1,i2,i3,j,j1,j2,m,n,n1,min,min1,imax,*p,(*q)[N],a[M][N]; char c; do { printf("请输入方程个数,不大于20个:"); scanf("%d",&k); if(k>M) printf("error!"); } while(k>M);//如果大于20则重新输入 do { printf("请输入未知数个数，不大于20个:"); scanf("%d",&l); if(l>N-1) printf("error!"); } while(l>N-1);//如果大于20则重新输入 for(i=0;im) { m=a[i1][0]; a[i1][0]=a[i][0]; a[i][0]=m; for(j=1;j<=l;j++)//交换其他系数 { n=a[i1][j]; a[i1][j]=a[i][j]; a[i][j]=n; } } } for(i2=0;i2l)//如果所有系数都为零 min=1; else { for(j2=0;j2<=l;j2++)//找到绝对值最小的系数(零除外) { if(a[i2][j2]<0) min1=-a[i2][j2]; else min1=a[i2][j2]; if(min1=min/2&&i3!=min)//减少循环次数 i3=min-1; } for(j2=0;j2<=l;j2++)//除以最大公约数 a[i2][j2]/=imax; } p=&a[0][0]; q=a; for(i=0;il)//如果所有系数都为零 min=1; else { for(j2=0;j2<=l;j2++)//找到绝对值最小的系数(零除外) { if(a[i2][j2]<0) min1=-a[i2][j2]; else min1=a[i2][j2]; if(min1=min/2&&i3!=min)//减少循环次数 i3=min-1; } for(j2=0;j2<=l;j2++)//除以最大公约数 a[i2][j2]/=imax; } } } p=&a[0][0]; q=a; for(i=0;i0;i--)//将非零行首非零元素上面的化为零 for(j=l-1;j>0;j--) if(a[i][j]!=0) for(i1=i-1;i1>=0;i1--) if(a[i1][j]!=0) { for(j1=0,m=a[i1][j],n=a[i][j];j1<=l;j1++) { a[i][j1]*=m; a[i1][j1]*=n; } for(j1=0;j1<=l;j1++) { a[i1][j1]-=a[i][j1]; } for(i2=0;i2l)//如果所有系数都为零 min=1; else { for(j2=0;j2<=l;j2++)//找到绝对值最小的系数(零除外) { if(a[i2][j2]<0) min1=-a[i2][j2]; else min1=a[i2][j2]; if(min1=min/2&&i3!=min)//减少循环次数 i3=min-1; } for(j2=0;j2<=l;j2++)//除以最大公约数 a[i2][j2]/=imax; } } p=&a[0][0]; q=a; for(i=0;i
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
