- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
2009年计算机网络技术三级上机试题练习144
2009年计算机网络技术三级上机试题练习144
已知数据文件IN.DAT中存有200个四位数,并已调用读函数readDat()把这些数存入数组a中,请考生编制一函数jsVal(),其功能是:把一个四位数的千位数字上的值减去百位数字上的值再减去十位数字上的值最后减去个位数字上的值,如果得出的值大于等于零且原四位数是奇数,则统计出满足此条件的个数cnt并把这些四位数按从小到大的顺序存入数组b中,最后调用写函数writeDat()把结果cnt以及数组b中符合条件的四位数输出到OUT.DAT文件中。注意:部分源程序存在文件prog1.c中。程序中已定义数组:a[200],b[200],已定义变量:cnt请勿改动数据文件IN.DAT中的任何数据、主函数main()、读函数readDat()和写函数writeDat()的内容。/*参考答案*/
#include stdio.h#define MAX 200int a[MAX], b[MAX], cnt = 0 ;
void jsVal(){int i,j,k;int i1,i2,i3;cnt=0;for(i=0;iMAX;i++){if(a[i]%2) /*是奇数才检查*/{i1=a[i]/1000;i2=a[i]/100-i1*10;i3=a[i]/10-i1*100-i2*10;if(i1-i2-i3=a[i]%10){b[cnt++]=a[i]; /* 放在最后,cnt递增 */for(j=0;jcnt-1;j++){if(b[j]a[i]){for(k=cnt-1;kj;k--) /* 如果找到比a[i]还大的数,开始冒泡 */b[k]=b[k-1];b[j]=a[i];break;}}}}}return;}
void readDat(){int i ;FILE *fp ;fp = fopen(in.dat, r) ;for(i = 0 ; i MAX ; i++) fscanf(fp, %d, a[i]) ;fclose(fp) ;}
void main(){int i ;readDat() ;jsVal() ;printf(满足条件的数=%d\n, cnt) ;for(i = 0 ; i cnt ; i++) printf(%d , b[i]) ;printf(\n) ;writeDat() ;}
writeDat(){FILE *fp ;int i ;fp = fopen(out.dat, w) ;fprintf(fp, %d\n, cnt) ;for(i = 0 ; i cnt ; i++) fprintf(fp, %d\n, b[i]) ;fclose(fp) ;}
************************************************
您可能关注的文档
最近下载
- 中国染料化工项目经营分析报告.docx
- 专题04:论证结构与思路-备战2025年中考语文一轮复习现代文阅读讲与练(江苏通用)(解析版).docx VIP
- 初中英语读写结合模式促进写作教学的探讨.pptx VIP
- 2025年中国DBE项目创业投资方案.docx
- 堤顶混凝土路面施工方案堤顶混凝土路面施工方案.doc VIP
- 筑牢金融数字防线:商业银行信息安全风险管理体系的构建与革新.docx
- 《人力资源管理师三级》第五章薪酬管理.ppt
- 《让子弹飞》剧本.doc VIP
- 2025年水环境服务项目可行性分析报告.docx
- DB4201T 620-2020 液化石油气供气场站设置技术规定.docx VIP
文档评论(0)