题目23 
已知在文件in.dat中存有n个（个数<200）实数，函数readdat()读取这n个实数并存入数组xx中。请编制函数calvalue()，其功能要求：
1、求出这n个实数的平均值aver；
2、分别求出这n个实数的整数部分之和sumint以及小数部分之和sumdec，最后调用函数writedat()把所求的结果输出到文件out.dat中。
 注意：部分源程序已给出。
 请勿改动主函数main()、读数据函数readdat()和输出数据函数writedat()的内容。
#include 
#include 
#define maxnum 200

float xx[maxnum] ;
int n= 0 ; /* 文件in.dat中共有多少个实数 */
double aver=0.0;/*平均值*/
double sumint=0.0;/*整数部分之和*/
double sumdec=0.0;/*小数部分之和*/

int readdat(void) ;
void writedat(void) ;

void calvalue(void) 
{int i;
 for (i=0;i {sumint+=(long)xx[i];
 sumdec+=xx[i]-(long)xx[i];
 aver+=xx[i];
 }
 aver/=n;
}

void main()
{ int i ;
 clrscr() ;
 for(i = 0 ; i < maxnum ; i++) xx[i] = 0 ;
 if(readdat()) {
 printf("数据文件in.dat不能打开!07 ") ;
 return ;
 }
 calvalue() ;
 printf("文件in.dat中共有实数=%d个 ", n) ;
 printf("平均值=%.2lf ", aver) ;
 printf("整数部分之和=%.2lf ", sumint) ;
 printf("小数部分之和=%.2lf ", sumdec) ;
 writedat() ;
system("pause");
}

int readdat(void)
{
 file *fp ;
 int i = 0 ;

 if((fp = fopen("in.dat", "r")) == null) return 1 ;
 while(!feof(fp)) {
 fscanf(fp, "%d,", &xx[i++]) ;
 }
 fclose(fp) ;
 return 0 ;
}

void writedat(void)
{
 file *fp