已知在文件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);

}