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

    已知数据文件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 <stdio.h>

#define MAX  200

int a[MAX], b[MAX], cnt = 0 ;

void jsVal()

{ int i,j,qw,bw,sw,gw,ab,cd;

for(i=0;i<MAX;i++)

  { qw=a[i]/1000;   bw=a[i]/100%10;

    sw=a[i]%100/10; gw=a[i]%10;

    ab=qw*10+sw;    cd=gw*10+bw;

    if(ab-cd>=10&&ab-cd<=20&&ab%2==0&&cd%2==0&&qw!=0&&gw!=0)

       b[cnt++]=a[i];

  }

for(i=0;i<cnt-1;i++)

  for(j=i+1;j<cnt;j++)

   if(b[i]<b[j]) {qw=b[i];b[i]=b[j];b[j]=qw;}

}

void readDat()

{

  int i ;

  FILE *fp ;

  fp = fopen("in.dat", "r") ;

  for(i = 0 ; i < MAX ; i++) fscanf(fp, "%d", &a[i]) ;

  fclose(fp) ;

}

void main()

{

  int i ;

  readDat() ;

……