2005年4月2日上机试题(网友回顾)

编者：一位网友在论坛中发帖，称是自己刚刚考过得上机题。

已知数据文件IN.DAT中存有200个四位数，并已调用读函数readDat()把这些数存入数组a中，请考生编制一函数 jsVal () ，其功能是：把千位数字和十位数字重新组成一个新的十位数ab（新十位数的十位数字是原四位数的千位数字，新十位数的个位数字是原四位数的十位数字），以及把个位数字和百位数字组成另一个新的十位数cd（新十位数的十位数字是原四位数的个位数字，新十位数的个位数字是原四位数的百位数字），如果新组成的 **两个十位数ab-cd >=10且ab-cd<=20且两个数均是偶数，同时两个新数的十位数字均不为零， ** 则将满足此条件的四位数 按从大到小的顺序 存入数组b中，并要计算满足上述条件的四位数的个数cnt。

最后main()函数调用写函数writeDat( )把结果cnt以及数组b中符合条件的四位数输出到OUT.DAT文件中。

注意：部分源程序存在文件prog1.c中。

程序中已定义数组：a[200]，b[200]，已定义变量：cnt

请勿改动数据文件IN.DAT中的任何数据、主函数main()、读函数readDat()和写函数writeDat()的内容。

#include

 1<stdio.h>
 2
 3#define MAX 200 
 4
 5int a[MAX], b[MAX], cnt = 0 ; 
 6
 7**void** **jsVal()
 8
 9**
10
11**{ int i,j,qw,bw,sw,gw,ab,cd;
12
13**
14
15**for(i=0;i <max;i++) **="" **ab="qw*10+sw;" **if(ab-cd="" **sw="a[i]%100/10;" **{="" bw="a[i]/100%10;" cd="gw*10+bw;" gw="a[i]%10;" qw="a[i]/1000;">=10&amp;&amp;ab-cd&lt;=20&amp;&amp;ab%2==0&amp;&amp;cd%2==0&amp;&amp;qw!=0&amp;&amp;gw!=0) 
16
17**
18
19**b[cnt++]=a[i];
20
21**
22
23**}
24
25**
26
27**for(i=0;i &lt;cnt-1;i++) 
28
29**
30
31**for(j=i+1;j &lt;cnt;j++) 
32
33**
34
35**if(b[i] &lt;b[j]) {qw=b[i];b[i]=b[j];b[j]=qw;} 
36
37**
38
39**}**
40
41void readDat() 
42
43{ 
44
45int i ; 
46
47FILE *fp ; 
48
49fp = fopen("in.dat", "r") ; 
50
51for(i = 0 ; i &lt; MAX ; i++) fscanf(fp, "%d", &amp;a[i]) ; 
52
53fclose(fp) ; 
54
55} 
56
57void main() 
58
59{ 
60
61int i ; 
62
63readDat() ; 
64
65jsVal() ; 
66
67printf("满足条件的数=%d\n", cnt) ; 
68
69for(i = 0 ; i &lt; cnt ; i++) printf("%d ", b[i]) ; 
70
71printf("\n") ; 
72
73writeDat() ; 
74
75} 
76
77writeDat() 
78
79{ 
80
81FILE *fp ; 
82
83int i ; 
84
85fp = fopen("out.dat", "w") ; 
86
87fprintf(fp, "%d\n", cnt) ; 
88
89for(i = 0 ; i &lt; cnt ; i++) fprintf(fp, "%d\n", b[i]) ; 
90
91fclose(fp) ; 
92
93}</max;i++)></stdio.h>