三级C语言程序设计上机考试习题集（51-60）

*****************************************************************************************

题目51（无忧id 134 整数各位打散组合运算题）

没有提供求素数函数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++)