三峡学院机械工程专业大二的基础考试及专业考试-全国计算机等级考试四级上机试题24

1、已知在文件 in.dat 中存有若干个（个数200）四位数字的正整数，函数 readdat()读取这若干个正整数并存入数组xx 中。请编制函数calvalue()，其功能要求：1、求出这文件中共有多少个正整数 totnum；2、求出这些数中的各位数字之和是偶数的数的个数totcnt，以及满足此条件的这些数的算术平均值 totpjz，最后调用函数 writedat()把所求的结果输出到文件 out.dat 中。部分源程序已给出。请勿改动主函数 main()、读数据函数 readdat()和输出数据函数 writedat()的内容。#include#include#define maxnum 20

2、0int xxmaxnum;int totnum=0;int totcnt=0;double totpjz=0.0;int readdat(void);void writedat(void);void calvalue(void)void main()int i;clrscr();for(i=0;imaxnum;i+) xxi=0;if(readdat()printf(cant open the data file in.dat!007n);return;calvalue();printf(totnum=%dn,totnum);printf(totcnt=%dn,totcnt);printf(

3、totpjz=%.2lfn,totpjz);writedat();int readdat(void)file *fp;int i=0;if(fp=fopen(in.dat,r)=null) return 1;while(!feof(fp)fscanf(fp,%d,&xxi+);fclose(fp);return 0;void writedat(void)file *fp;fp=fopen(out.dat,w);fprintf(fp,%dn%dn%.2lfn,totnum,totcnt,totpjz);fclose(fp);/* 注：该题的关键在于会不会取出一个数的个、十、百、千位上的数

4、。ai%10 对 10 求余结果为个位数，ai%100/10 先对 100 求余得出后两位数然后再除 10，由于为整数因此得出上一个后两位数的第一位。依此类推。*/void calvalue(void)int i;for(i=0;i0) totnum+;if(xxi/1000+xxi/100%10+xxi/10%10+xxi%10)/2=0)totcnt+;totpjz+=xxi;totpjz/=totcnt;请编制程序，从文件 in.dat 中读取 200 个整数至数组 xx 中，求出奇数的个数cnt1 和偶数的个数cnt2 以及数级xx 值为奇数的元素值的算术平均值 pj（保留 2 位小数

5、） 。结果cnt1,cnt2,pj 输出到 out.dat 中。部分程序、读数据函数 read_dat(int xx200)及输出格式已给出。#include#include#define n 200void read_dat(int xxn)int i,j;file *fp;fp=fopen(in.dat,r);for(i=0;i20;i+)for(j=0;j10;j+)fscanf(fp,%d,&xxi*10+j);printf(%d ,xxi*10+j);printf(n);fclose(fp);void main()int cnt1,cnt2,xxn;float pj;file

6、 *fw;clrscr();fw=fopen(out.dat,w);read_dat(xx);printf(nncnt1=%d,cnt2=%d,pj=%6.2fn,cnt1,cnt2,pj);fprintf(fw,%dn%dn%6.2fn,cnt1,cnt2,pj);fclose(fw);/* 注：void main()int cnt1,cnt2,xxn;float pj;file *fw;int i;clrscr();fw=fopen(out.dat,w);read_dat(xx);pj=0;cnt1=cnt2=0;for(i=0;in;i+)if(xxi%2) cnt1+;pj+=xxi;else cnt2+;pj=(float)(int)pj*100/cnt1)/100;p