★☆题目 51

（整数各位打散组合运算题）

没有提供求素数函数 isprime() ,可自己编制

已知数据文件 IN.DAT 中存有 200 个四位数，并已调用读函数 readDat()把

这些数存入数组 a 中，请考生编制一函数

jsVal()

，其功能是：

把千位数字和

十位数字重新组成一个新的十位数（

新十位数的十位数字是原四位数的千位数字，

新十位数的个位数字是原四位数的十位数字

），以及把个位数字和百位数字组成另

一个新的十位数（

新十位数的十位数字是原四位数的个位数字，新十位数的个位数

字是原四位数的百位数字

），如果新组成的两个十位数均是素数且新数的十位数字

均不为零，则将满足此条件的四位数按从大到小的顺序存入数组 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 ;

int isprime(int m)
{int i;
for(i=2;i<=m/2;i++)
     if(m%i==0) return 0;
return 1;
}
void jsVal()
{int i,j,qw,bw,sw,gw;
int ab,cd;
for(i=0;i<200;i++)
     {qw=a[i]/1000;      bw=a[i]%1000/100;
      sw=a[i]%100/10; gw=a[i]%10;
      ab=10*qw+sw;     cd=10*gw+bw;
      if(isprime(ab)&&isprime(cd)&&ab>=10&&cd>=10) 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() ;
jsVal() ;