三级上机题资料1

运行结果：

30

5782.87 5633.46

49. 已知数据文件in.dat中存有300个四位数，并已调用读函数ReadDat()把这些数存入数组a中，请编制一函数jsValue()，其功能是：求出千位数上的数加个位数上的数等于百位数上的数加十位数上的数的个数cnt，再把所有满足此条件的四位数依次存入数组b中，然后对数组b的四位数按从小到大的顺序进行排序，最后调用写函数writeDat()把结果输出到out.dat文件。

例如：6712，6+2=7+1，则该数满足条件存入数组b中，且个数cnt=cnt+1。该数不满足条件忽略。

部分源程序存在文件prog1.c中。

程序中已定义数组：a[300]，b[300]，已定义变量：cnt

请勿改动主函数main()、读函数ReadDat()和写函数writeDat()的内容。 /*参考答案*/

int i,j,t;

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

if(a[i]/1000+a[i]==a[i]/100+a[i]/10) b[cnt++]=a[i]; for(i=0;ib[j+1])

{t=b[j];b[j]=b[j+1];b[j+1]=t;} 运行结果：

18 1155 1368 1504 3131 5555 5803 5825 6712 6767 7586 8473 8495 9270 9461 9562 9832 9876 9887

8129，8+9!=1+2，则

50．下列程序prog1.c的功能是：利用以下所示的简单迭代方法求方程：cos(x)-x=0的一个实根。 Xn+1=cos(Xn) 迭代步骤如下： (1)取X1初值为0.0；

(2)X0=X1，把X1的值赋给X0；(3)X1=cos(X0)，求出一个新的X1； (4)若X0-X1的绝对值小于0.000001，执行步骤(5)，否则执行步骤(2)； (5)所求X1就是方程cos(X)-X=0的一个实根，作为函数值返回。

请编写函数countValue()实现程序的要求，最后main()函数调用函数writeDat()把结果输出到文件OUT.DAT中。

部分源程序已给出。

请勿改动主函数main()和输出数据函数writeDat()的内容。 /*参考答案*/

float x0,x1;

x1=0.0; x0=x1;x1=cos(x0); while(fabs(x0-x1)>=0.000001) {x0=x1; x1=cos(x0); } return x1; 运行结果： 0.739085

51． 已知数据文件IN.DAT中存有200个四位数，并已调用读函数readDat()把这些数存入数组a中，请考生编制一函数jsVal()，其功能是：把一个四位数的千位数字上的值加上个位数字上的值恰好等于百位数字上的值加上十位数字上的值，并且原四位数是奇数，则统计出满足此条件的个数cnt并把这些四位数按从小到大的顺序存入数组b中，最后调用写函数writeDat( )把结果cnt以及数组b中符合条件的四位数输出到OUT.DAT文件中。

注意：部分源程序存在文件prog1.c中。

程序中已定义数组：a[200]，b[200]，已定义变量：cnt 请勿改动数据文件IN.DAT中的任何数据、主函数main()、读函数readDat()和写函数writeDat()的内容。 /*参考答案*/

int i,j,t;

for(i=0;i

if(a[i]/1000+a[i]==a[i]/100+a[i]/10&&a[i]%2) b[cnt++]=a[i]; for(i=0;ib[j+1])

{t=b[j];b[j]=b[j+1];b[j+1]=t;} 运行结果：

52. 已知数据文件IN.DAT中存有200个四位数，并已调用读函数readDat()把这些数存入数组a中，请考生编制一函数jsVal()，其功能是：依次从数组a中取出一个四位数，如果该四位数连续大于该四位数以后的五个数且该数是奇数（该四位数以后不满五个数，则不统计），则统计出满足此条件的个数cnt并把这些四位数按从小到大的顺序存入数组b中，最后调用写函数writeDat( )把结果cnt以及数组b中符合条件的四位数输

出到OUT.DAT文件中。

注意：部分源程序存在文件prog1.c中。

程序中已定义数组：a[200]，b[200]，已定义变量：cnt 请勿改动数据文件IN.DAT中的任何数据、主函数main()、读函数readDat()和写函数writeDat()的内容。 /*参考答案*/ int i,j,t;

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

if(a[i]>a[i+1]&&a[i]>a[i+2]&&a[i]>a[i+3]&&a[i]>a[i+4]&&a[i]>a[i+5]&&a[i]%2) b[cnt++]=a[i]; for(i=0;ib[j+1])

{t=b[j];b[j]=b[j+1];b[j+1]=t;} 运行结果： 17

5163 5425 6323 7093 7569 7683 7711 7807 8041 8843 9107 9403 9709 9805 9809 9925 9971

54. 下列程序prog1.c的功能是：计算500-800区间内素数的个数cnt，并按所求素数的值从大到小的顺序，再计算其间隔加、减之和，即第1个素数-第2个素数+第3个素数-第4个素数+第5个素数...的值sum。请编写函数countValue()实现程序的要求，最后调用函数writeDat()把结果cnt和sum，输出到文件OUT11.DAT中。

部分源程序已给出。

请勿改动主函数main()和输出数据函数writeDat()的内容。 /*参考答案*/

int i,j,tag,s=1;

for(i=800;i>=500;i--) { tag=1;

for(j=2;j

if(i%j == 0){tag=0; break;} if(tag==1)

{sum+=i*s; cnt++; s=-s; } } 运行结果：

44 130

55 下列程序的功能是：选出100以上1000以内所有个位数字与十位数字之和被10除所得余数恰是百位数字的素数(如293)。计算并输出上述这些素数的个数cnt以及这些素数值的和sum。请编写函数countValue实现程序要求，最后调用函数writeDat()把结果cnt和sum输出到文件out.dat中。 部分源程序存在文件prog1.c中。

请勿改动主函数main()和输出数据函数writeDat()的内容。 /*参考答案*/

int i,j,tag;

for(i=100;i<1000;i++) {

tag=1;

for(j=2;j

if(i%j == 0) {tag=0;break;}

if(tag==1&&(i+i/10)==i/100) {cnt++;sum+=i;} }

运行结果： 15 6825

56．已知数据文件IN.DAT中存有200个四位数，并已调用读函数readDat()把这些数存入数组a中，请考生编制一函数jsVal()，其功能是：依次从数组a中取出一个四位数，如果该四位数连续大于该四位数以前的五个数且该数是奇数，且该数必须能被7整除（该四位数以前不满五个数，则不统计），则统计出满足此条件的个数cnt并把这些四位数按从大到小的顺序存入数组b中，最后调用写函数writeDat( )把结果cnt以及数组b中符合条件的四位数输出到OUT.DAT文件中。 注意：部分源程序存在文件prog1.c中。

程序中已定义数组：a[200]，b[200]，已定义变量：cnt 请勿改动数据文件IN.DAT中的任何数据、主函数main()、读函数readDat()和写函数writeDat()的内容。 /*参考答案*/ int i,j,t;

for(i=5;i<200;i++)

if(a[i-5]

{t=b[j];b[j]=b[j+1];b[j+1]=t;} 运行结果： 3

7511 5481 4627

58． 已知在文件IN.DAT中存有100个产品销售记录，每个产品销售记录由产品代码dm(字符型4位)，产品名称mc(字符型10位)，单价dj(整型)，数量sl(整型)，金额je(长整型)五部分组成。其中：金额=单价*数量计算得出。函数ReadDat()是读取这100个销售记录并存入结构数组sell中。请编制函数SortDat()，其功能要求：按产品名称从大到小进行排列，若产品名称相等，则按金额从小到大进行排列，最终排列结果仍存入结构数组sell中，最后调用函数WriteDat()把结果输出到文件OUT7.DAT中。 部分源程序存在文件prog1.c中。

请勿改动主函数main()、读数据函数ReadDat()和输出数据函数WriteDat()的内容。 /*参考答案*/

int i,j; PRO cell; for(i=0;i<99;i++) for(j=0;j<99;j++)

if(strcmp(sell[j].mc,sell[j+1].mc)<0||strcmp(sell[j].mc,sell[j+1].mc)==0&& sell[j].je>sell[j+1].je) {cell=sell[j];

sell[j]=sell[j+1]; sell[j+1]=cell; }

运行结果前几行：

1009 中文WORD97 68 10 680 1009 中文WORD97 68 10 680