2011年9月计算机等考三级上机实训100题(12)

　　★☆题目34(整数各位打散组合运算题)

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

　　已知数据文件IN.DAT中存有200个四位数，并已调用读函数readDat()把这些数存入数组a中，请考生编制一函数jsVal()，其功能是：把千位数字和十位数字重新组成一个新的十位数(新十位数的十位数字是原四位数的千位数字，新十位数的个位数字是原四位数的十位数字)，以及把个位数字和百位数字组成另一个新的十位数(新十位数的十位数字是原四位数的个位数字，新十位数的个位数字是原四位数的百位数字)，如果新组成的两个十位数均是素数且新数的十位数字均不为零，则将满足此条件的四位数按从大到小的顺序存入数组b中，并要计算满足上述条件的四位数的个数cnt。最后main()函数调用写函数writeDat()把结果cnt以及数组b中符合条件的四位数输出到OUT.DAT文件中。

　　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

　　for(j=i+1;j

　　if(b[i]

　　}

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

　　题目35(整数各位打散组合运算题)

　　已知数据文件IN.DAT中存有200个四位数，并已调用读函数readDat()把这些数存入数组a中，请考生编制一函数jsVal()，其功能是：把千位数字和个位数字重新组成一个新的十位数(新十位数的十位数字是原四位数的千位数字，新十位数的个位数字是原四位数的个位数字)，以及把百位数字和十位数字组成另一个新的十位数(新十位数的十位数字是原四位数的百位数字，新十位数的个位数字是原四位数的十位数字)，如果新组成的两个十位数均是奇数并且两个十位数中至少有一个数能被5整除，同时两个新数的十位数字均不为零，则将满足此条件的四位数按从大到小的顺序存入数组b中，并要计算满足上述条件的四位数的个数cnt。最后main()函数调用写函数writeDat( )把结果cnt以及数组b中符合条件的四位数输出到OUT.DAT文件中。

　　void jsVal()

　　{int i,thou,hun,ten,data,j;

　　int ab,cd;

　　for(i=0;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&&cd%2&&(ab%5==0||cd%5==0)&&ab>=10&&cd>=10) b[cnt++]=a[i];

　　}

　　for(i=0;i

　　for(j=i+1;j

　　if(b[i]

　　}

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

　　★题目36(整数各位打散组合运算题题)

　　已知数据文件IN.DAT中存有200个四位数，并已调用读函数readDat()把这些数存入数组a中，请考生编制一函数jsVal()，其功能是：把千位数字和十位数字重新组成一个新的十位数ab(新十位数的十位数字是原四位数的千位数字，新十位数的个位数字是原四位数的十位数字)，以及把个位数字和百位数字组成另一个新的十位数cd(新十位数的十位数字是原四位数的个位数字，新十位数的个位数字是原四位数的百位数字)，如果新组成的两个十位数ab

　　void jsVal()

　　{int i,thou,hun,ten,data,j;

　　int ab,cd;

　　for(i=0;i

　　{thou=a[i]/1000; hun=a[i]/100%10;

　　ten=a[i]%100/10; data=a[i]%10;

　　ab=10*thou+ten; cd=10*data+hun;

　　if(((ab-cd)<0&&ab%2==1&&ab%5!=0)&&cd%2!=1&&ab>=10&&cd>=10)

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

　　}

　　for(i=0;i

　　for(j=i+1;j

　　if(b[i]

　　}

　　2011计算机等级三级数据库上机题及答案汇总

　　2011计算机等级三级信息管理复习笔记汇总

　　2011年计算机等级三级PC技术上机100题汇总

　　2011年计算机等级三级网络技术学习要点汇总