★83.函数ReadDat( )实现从文件IN83.DA T中读取1000个十进制整数到数组xx中。
请编制函数Compute( )分别计算出xx中偶数的个数even、奇数的平均值ave1、偶数的平均值ave2及所有偶数的方差totfc的值，最后调用函数WriteDat( )把结果输出到OUT83.DAT文件中。
计算方差的公式如下：totfc=----(--ave2)-/N设N为偶数的个数，xx[i]为偶数，ave2为偶数的平均值。
原始数据的存放格式是：每行存放10个数，并用逗号隔开（每个数均大于0且小于等于2000）。
注意：部分源程序已给出。
请勿改动主函数main()、读函数ReadDat()和写函数WriteDat()的内容。
试题程序：#include<stdio.h>#include<stdlib.h>#include<string.h>#define MAX 1000int xx[MAX],odd=0,even=0;double ave1=0.0,ave2=0.0,totfc=0.0;void WriteDat(void);int ReadDat(void){FILE *fp;int i,j;if((fp=fopen("IN83.DAT","r"))==NULL)return 1;for(i=0;i<100;i++){for(j=0;j<10;j++)fscanf(fp,"%d,",&xx[i*10+j]);fscanf(fp,"\n");if(feof(fp)) break;}fclose(fp);return 0;}void Compute(void){int i,tt[MAX]; /*定义数组tt计算总和*/for(i=0;i<1000;i++)if(xx[i]%2!=0) /*判断当前数的奇偶性*/{odd++; /*统计奇数的个数*/ave1+=xx[i]; /*求奇数的总和*/}else{even++; /*统计偶数的个数*/ave2+=xx[i]; /*求偶数的总和*/tt[even-1]=xx[i]; /*将偶数存入数组tt中*/}ave1/=odd; /*求奇数的平均数*/ave2/=even; /*求偶数的平均数*/for(i=0;i<even;i++) /*求所有偶数的方差*/totfc+=(tt[i]-ave2)*(tt[i]-ave2)/even;}void main( ){int i;for(i=0;i<MAX;i++)xx[i]=0;if(ReadDat()){printf("数据文件IN83.DAT不能打开!\007\n");return;}Compute();printf( "EVEN=%d\nA VE1=%f\nA VE2=%f\nTOTFC=%f\n",even,ave1,ave2,totfc);WriteDat();}void WriteDat(void){FILE *fp;fp=fopen("OUT83.DA T","w");fprintf(fp,"%d\n%lf\n%lf\n%lf\n",even,ave1,ave2,totfc);fclose(fp);}*********************************************************************★84.请编制函数ReadDat( )实现从文件IN84.DAT中读取1000个十进制整数到数组xx中。
请编制函数Compute( )分别计算出xx中奇数的个数odd、奇数的平均值ave1、偶数的平均值ave2及所有奇数的方差totfc的值。
最后调用函数WriteDat( )把结果输出到OUT84.DA T 文件中。
计算方差的公式如下：totfc=----(--ave1)-/N设N为奇数的个数，xx[i]为奇数，ave1为奇数的平均值。
原始数据的存放格式是：每行存放10个数，并用逗号隔开（每个数均大于0且小于等于2000）。
注意：部分源程序已给出。
请勿改动主函数main()和输写函数WriteDat()的内容。
试题程序：#include<stdio.h>#include<stdlib.h>#include<string.h>#define MAX 1000int xx[MAX],odd=0,even=0;double ave1=0.0,ave2=0.0,totfc=0.0;void WriteDat(void);int ReadDat(void){FILE *fp;int i,j; /*计数器变量*/if((fp=fopen("IN84.DA T","r"))==NULL) return 1;for(i=0;i<100;i++) /*依次读取整型数据放入数组xx中*/{for(j=0;j<10;j++)fscanf(fp,"%d,",&xx[i*10+j]);fscanf(fp,"\n");if(feof(fp)) break; /*文件读取结束，则退出*/}fclose(fp);return 0;}void Compute(void){int i; /*定义循环控制变量*/int tt[MAX]; /*定义数组保存奇数*/for(i=0;i<1000;i++)if(xx[i]%2!=0){odd++; /*计算出xx中奇数的个数odd*/ave1+=xx[i]; /*求奇数的和*/tt[odd-1]=xx[i]; /*将奇数存入数组tt中*/}else{even++; /*计算出xx中偶数的个数even*/ave2+=xx[i]; /*求偶数的和*/}ave1/=odd; /*求奇数的平均值*/ave2/=even; /*求偶数的平均值*/for(i=0;i<odd;i++)totfc+=(tt[i]-ave1)*(tt[i]-ave1)/odd; /*求所有奇数的方差*/}void main( ){int i;for(i=0;i<MAX;i++)xx[i]=0;if(ReadDat()){printf("数据文件IN84.DA T不能打开!\007\n");return;}Compute();printf( "ODD=%d\nA VE1=%f\nA VE2=%f\nTOTFC=%f\n",odd,ave1,ave2,totfc);WriteDat();}void WriteDat(void){FILE *fp;fp=fopen("OUT84.DA T","w");fprintf(fp,"%d\n%lf\n%lf\n%lf\n",odd,ave1,ave2,totfc);fclose(fp);}*********************************************************************★85.请编制函数ReadDat( )实现从文件IN85.DAT中读取1000个十进制整数到数组xx中。
请编制函数Compute( )分别计算出xx中奇数的个数odd、偶数的个数even、平均值aver及方差totfc的值，最后调用函数WriteDat( )把结果输出到OUT85.DAT文件中。
计算方差的公式如下：totfc=----(--aver)-/N原始数据的存放格式是：每行存放10个数，并用逗号隔开（每个数均大于0且小于等于2000）。
注意：部分源程序已给出。
请勿改动主函数main()和写函数WriteDat()的内容。
试题程序：#include<stdio.h>#include<stdlib.h>#include<string.h>#define MAX 1000int xx[MAX],odd=0,even=0;double aver=0.0,totfc=0.0;void WriteDat(void);int ReadDat(void){FILE *fp;int i,j; /*计数器变量*/if((fp=fopen("IN85.DA T","r"))==NULL)return 1;for(i=0;i<100;i++) /*依次读取整型数据放入数组xx中*/ {for(j=0;j<10;j++)fscanf(fp,"%d,",&xx[i*10+j]);fscanf(fp,"\n");if(feof(fp)) break; /*文件读取结束，则退出*/}fclose(fp);return 0;}void Compute(void){int i; /*循环控制变量*/for(i=0;i<1000;i++) /*依次取每个数*/{if(xx[i]%2!=0)odd++; /*求出xx中奇数的个数odd*/elseeven++; /*求出xx中偶数的个数even*/aver+=xx[i]; /*求出xx中元素的总和*/}aver/=MAX; /*求出xx中元素的平均值*/for(i=0;i<1000;i++)totfc+=(xx[i]-aver)*(xx[i]-aver)/MAX;}void main( ){int i;for(i=0;i<MAX;i++)xx[i]=0;if(ReadDat()){printf("数据文件IN85.DAT不能打开!\007\n");return;}Compute();printf( "ODD=%d\nEVEN=%d\nA VER=%lf\nTOTFC=%lf\n",odd,even,aver,totfc);WriteDat();}void WriteDat(void){FILE *fp;fp=fopen("OUT85.DA T","w");fprintf(fp,"%d\n%d\n%lf\n%lf\n",odd,even,aver,totfc);fclose(fp);}**********************************************************************<PIXTEL_ MMI_EBOOK_2005>12</PIXTEL_MMI_EBOOK_2005>。
