93：请编制函数ReadDat()实现从文件IN.DAT中读取1000个十进制整数到数组xx中；再编制函数COMPUTE()分别计算出XX中奇数的个数ODD,偶数的个数EVEN,平均值AVER以及方差TOTFE的值,最后调用函数WriteDat()把结果输出到OUT.DAT文件中。计算方差的公式如下：totfc=1/N∑(xx[i]-ave1)2
设N为奇数的个数,xx[i]为奇数,ave1为奇数的平均值。
原始数据文件存放的格式是：每行存放10个数,并用逗号隔开。(每个数均大于0且小于等于2000)
注意：部分源程序已给出。
请勿改动主函数main()和输出数据函数writeDat()的内容。
------------------------------
int ReadDat(void) /*标准答案*/
int ReadDat(void)
{FILE *fp;
int I,j;
if((fp=fopen(""IN.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;
for(I=0;I<1000;I++)
{if(xx[I]%2) odd++; }
else {even++;
aver=aver+xx[I];}}
aver/=even;
for(I=0;I<1000;I++)
totfc+=(xx[I]-aver)*(xx[I]-aver)/MAX;
}
或者：
int ReadDat(void)
{ int i;FILE *fp;
if((fp=fopen("IN.DAT","r"))==NULL) return 1;
for(i=0;i<MAX;i++)
{ fscanf(fp,"%d,",&xx[i]);
if((i+1)%10==0)
fscanf(fp,"\n"); }

fclose(fp);return 0;
}

void Compute(void)
{ int i;
for(i=0;i<MAX;i++)
if(xx[i]%2) odd++;
else even++;
for(i=0;i<MAX;i++) aver+=xx[i];
aver/=MAX;
for(i=0;i<MAX;i++)
totfc+=(xx[i]-aver)*(xx[i]-aver);
totfc/=MAX;
}

原程序如下：
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#define MAX 1000

int xx[MAX],odd=0,even=0;
double aver=0.0,totfc=0.0;
void WriteDat(void);

int ReadDat(void)
{ int i;
FILE *fp;
if((fp=fopen("IN.DAT","r"))==NULL) return 1;
/* */
fclose(fp);
return 0;
}

void Compute(void)
{
}

void main()
{
int i;

for(i=0;i<MAX;i++)xx[i]=0;
if(ReadDat()){
printf("数2据文件IN.DAT不能打开!\007\n");
return;
}
Compute();
printf("ODD=%d\nOVEN=%d\nAVER=%1f\nTOTFC=%lf\n",odd,even,aver,totfc);
WriteDat();
}

void WriteDat(void)
{FILE *fp;
int i;

fp=fopen("OUT.DAT","w");
fprintf(fp,"%d\n%lf\n%lf\n%lf\n",odd,even,aver,totfc);
fclose(fp);
}