已知在文件in.dat中存有若干个(个数＜200)四位非零整数，函数readdat(

题目：

已知在文件in.dat中存有若干个(个数＜200)四位非零整数，函数readdat()读取这若干个整数并存入数组xx中。请编制函数calvflue()，其功能要求：①求出该文件中共有多少个正整数totnum；②求这些数右移1～6位，产生的一系列新数中含至少一个完全平方数(某个整数的平方)的个数totcnt，以及满足此条件的这些数(右移前的值)的算术平均值totpjz，最后调用函数writedat()把所求的结果输出到文件out.dat中。
部分源程序已给出。
请勿改动主函数main()、读数据函数readdat()和输出数据函数writedat()的内容。
#include＜stdio.h＞
#include＜conio.h＞
#define MAXNUM 200
int xx[MAXNUM];
iht totnum=0;
iht totcnt=0;
double totpjz=0.0;
int readdat(void);
void writedat(void);
void calvalue(void)



void main ()

int i;
clrscr ();
for (i=0; i if (readdat ())

printf("Can’t open the data file in.dat!\007\n");
return;

calvalue ();
printf ( "totnum=%d\n", totnum);
printf ( "totcnt=%d\n" , totcnt );
printf ( "totpj z=%. 21f\n", totpj z);
writedat ();

int readdat (void)

FILE *fp;
int i=0;
if( (fp=fopen ("in.dar", "r") )==NULL) return 1;
while ( ! feof (fp))
fscanf (fp, "%d, ", &xx [i++] ;
fclose (fp);
return 0;

void writedat (void)

FILE *fp;
fp=fopen ( "out. dar", "w" )
fprint f ( fp, "%d\n%d\n%. 21 f\n", totnum, totcnt, totpjz);
fclose (fp);