全国计算机等级考试三级网络技术南开上机100题(91-100).doc
文本预览下载声明
题目91（整数统计运算题）
请编制程序prog1.c，从文件in.dat中读取200个整数至数组xx中，求出奇数的个数cnt1和偶数的个数cnt2以及数组xx下标为偶数的元素值的算术平均值pj（保留2位小数）。
????结果cnt1,cnt2,pj输出到out.dat中。
????部分程序、读数据函数read_dat(int xx[200])及输出格式已给出。
#include conio.h
#include stdio.h
#define N 200
void read_dat(int xx[N])
{
int i,j;
FILE *fp;
fp=fopen(in.dat,r);
for(i=0;i20;i++){
????? for(j=0;j10;j++){
???????? fscanf(fp,%d,,xx[i*10+j]);
???????? printf(%d ,xx[i*10+j]);
}
printf(\n);
}
fclose(fp);
}
void main()
{
int i,j,sum;
int cnt1,cnt2,xx[N];
float pj;
FILE *fw;
clrscr();
fw=fopen(out.dat,w);
read_dat(xx);
/**********************/
sum=0; pj=0.0; cnt1=cnt2=0;
for(i=0;iN;i++)
{ if(xx[i]%2) cnt1++;
???? else cnt2++;
???? if(i%2==0) {pj+=xx[i];sum++;}
}
pj/=sum;
/***********************/
printf(\n\ncnt1=%d,cnt2=%d,pj=%6.2f\n,cnt1,cnt2,pj);
fprintf(fw,%d\n%d\n%6.2f\n,cnt1,cnt2,pj);
fclose(fw);
}
*******************************************************************************
☆题目92（整数统计运算题）
请编制程序prog1.c，从文件IN.DAT中读取200个整数至数组xx中，求出最大数max及最大数的个数cnt和数组xx中能被3整除或能被7整除的算术平均值pj（保留2位小数）。
????结果max,cnt,pj输出到OUT.DAT中。
????部分程序、读数据函数read_dat(int xx[200])及输出格式已给出。
#include conio.h
#include stdio.h
#define N 200
void read_dat(int xx[N])
{
int i,j;
FILE *fp;
fp=fopen(in.dat,r);
for(i=0;i20;i++){
????? for(j=0;j10;j++){
???????? fscanf(fp,%d,,xx[i*10+j]);
???????? printf(%d,xx[i*10+j]);
}
printf(\n);
}
fclose(fp);
}
void main()
{
int m,temp,n,sum;
int cnt,xx[N],max ;
float pj;
FILE *fw;
clrscr();
fw=fopen(out.dat,w);
read_dat(xx);
/*********************/
cnt=0; max=xx[0]; pj=0.0; n=0;
for(m=0;mN;m++)
??? if(maxxx[m]) max=xx[m];
for(m=0;mN;m++)
??? {if(xx[m]==max) cnt++;
???? if(xx[m]%3==0||xx[m]%7==0)
??????? { pj+=xx[m]; n++; }
??? }
pj/=n;
/*********************/
printf(\n\nmax=%d,cnt=%d,pj=%6.2f\n,max,cnt,pj);
fprintf(fw,%d\n%d\n%6.2f\n,max,cnt,pj);
fclose(fw);
}
*****************************************************************************
☆题目93（方差运算题）
请编制函数ReadDat()实现从文件IN.DAT中读取1000个十进制整数到数组xx中；请编制函数Compute()，分别计算出xx中奇数的个数odd，偶数的个数even，平均值aver以
显示全部