28.已知在文件IN.dat中存有若干个(<200)四位数字的正整数，函数RData()读取这若干个正整数并存入数组original中。请编写函数CalValue()，其功能要求是：①求出这个文件中共有多少个正整数totNum;②求这些数右移1位后，产生的新数是偶数的数的个数toteven，以及满足此条件的这些数(右移前的值)的算术平均值totavg。最后调用函数WData()把所求的结果输出到OUT.dat文件中。
【答案】
void CalValue(void)
{ int i, data;
for (i=0; i { if (!original[i]) break; if (original[i] > 0) totNum++; data = original[i]>>1; if (data%2 == 0) { toteven++; totavg += original[i]; } } totavg /= toteven; } 29.已知数据文件IN.dat中存有200个四位数，并已调用读函数RData()把这些数存入数组a中，请编写函数spellVal()，其功能是：把千位数字和十位数字重新组成一个新的二位数ab(新二位数的十位数字是原四位数的千位数字，新二位数的个位数字是原四位数的十位数字)，以及把个位数字和百位数字组成另一个新的二位数cd(新二位数的十位数字是原四位数的个位数字，新二位数的个位数字是原四位数的百位数字)，如果新组成的两个二位数ab-cd≥0且ab-cd≤10且两个数均是奇数，同时两个新数的十位数字均不为0，则将满足此条件的四位数按从大到小的顺序存入数组b中，并要计算满足上述条件的四位数的个数count。最后main()函数调用写函数WData()，把结果count以及数组b中符合条件的四位数输出到OUT.dat文件中。 【答案】 void spellVal() { int i, thou, hun, ten, data, j; int ab, cd; for (i=0; i<200; i++) { thou = a[i]/1000; hun = a[i]%1000/100; ten = a[i]%100/10; data = a[i]%10; if (thou==0 || data==0) continue; ab = 10*thou+ten; cd = 10*data+hun; if ((ab-cd)>=0 && (ab-cd)<=10 && ab%2==1 && cd%2==1) { b[cnt] = a[i]; cnt++; } } for (i=0; i for (j=i+1; j if (b[i] < b[j]) { data = b[i]; b[i] = b[j]; b[j] = data; } } 已知数据文件IN.dat中存有200个四位数，并已调用读函数RData()把这些数存入数组a中，请编写函数seVal()，其功能是：依次从数组a中取出一个四位数，如果该四位数连续小于该四位数以后的5个数且该数是偶数(该四位数以后不满4个数，则不统计)，则统计出满足此条件的个数count并把这些四位数按从小到大的顺序存入数组b中。最后调用写函数WData()，把结果count以及数组b中符合条件的四位数输出到OUT.dat文件中。 注意：部分程序已经给出。程序中已定义数组a[200]、b[200]，已定义变量count。请勿改动数据文件 【答案】 void seVal() { int i, j, flag = 0; for (i=0; i { for (j=i+1; j<=i+5; j++) if (a[i] < a[j]) { flag = 1; } else { flag = 0; break; } if (flag==1 && a[i]%2==0) { b[count] = a[i]; count++; } } for (i=0; i for (j=i+1; j if (b[i] > b[j]) { flag = b[i]; b[i] = b[j]; b[j] = flag; } }