09年计算机三级网络南开100题【3】

《09年计算机三级网络南开100题【3】》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、09年计算机三级网络南开100题【3】09年计算机三级网络南开100题【3】2009-03-2618:09题目51：已知数据文件IN.DAT中存有200个四位数,并已调用读函数readDat()把这些数存入数组a中,请考生编制一函数jsVal(),其功能是:把千位数字和十位数字重新组成一个新的十位数(新十位数的十位数字是原四位数的千位数字,新十位数的个位数字是原四位数的十位数字),以及把个位数字和百位数字组成另一个新的十位数(新十位数的十位数字是原四位数的个位数字,新十位数的个位数字是原四位数的百位数字),如果新

2、组成的两个十位数均是素数,同时两个新数的十位数字均不为零,则将满足此条件的四位数按从大到小的顺序存入数组b中,并要计算满足上述条件的四位数的个数cnt。最后main()函数调用写函数writeDat()把结果cnt以及数组b中符合条件的四位数输出到OUT.DAT文件中。注意:部分源程序存在文件PROG1.C文件中。程序中已定义数组:a[200],b[200],已定义变量:cnt请勿改动数据文件IN.DAT中的任何数据、主函数main()、读函数readDat()和写函数writeDat()的内容。--------

3、-----------------voidjsVal(){intI,thou,hun,ten,data,j;intab,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;ab=10*thou+ten;cd=10*data+hun;if(isprime(ab)&&isprime(cd)&&ab!=0&&cd!=0){b[cnt]=a[I];cnt++;}}for(I=0;I

4、r(j=I+1;j

5、数的十位数字),如果新组成的两个十位数均是奇数并且两个十位数中至少有一个能被5整除,同时两个新数的十位数字均不为零,则将满足此条件的四位数按从大到小的顺序存入数组b中,并要计算满足上述条件的四位数的个数cnt。最后main()函数调用写函数writeDat()把结果cnt以及数组b中符合条件的四位数输出到OUT.DAT文件中。注意:部分源程序存在文件PROG1.C文件中。程序中已定义数组:a[200],b[200],已定义变量:cnt请勿改动数据文件IN.DAT中的任何数据、主函数main()、读函数readDa

6、t()和写函数writeDat()的内容。-------------------------voidjsVal(){intI,thou,hun,ten,data,j;intab,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;ab=10*thou+data;cd=10*hun+ten;if(ab%2==1&&cd%2==1&&(ab%5==0

7、

8、cd%5==0)&&ab!=0&&cd!=0){b

9、[cnt]=a[I];cnt++;}}for(I=0;I

10、进行排序，最后调用写函数WRITEDAT()把数组b中的数输出到OUT.DAT文件.例如：1239，9-1-2-3>0，则该数满足条件存入数组b中，且个数cnt=cnt+1.8129，9-8-1-2<0，则该数不满足条件忽略。注意：部分源程序已给出。程序中已定义数组：a[300]，已定义变量：cnt请勿改动主函数main()、读函数ReadDat()和写函数writeDa