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