改错题包含答案
《改错题包含答案》由会员分享,可在线阅读,更多相关《改错题包含答案(4页珍藏版)》请在装配图网上搜索。
1、一、程序改错 第1题 (10.0分) 题号:20*-*【程序改错】*-*题目:完数是指数n的各因子(1视为因子,n不视为因子)之和正好* 等于该数本身。例如:6为完数(因子为1、2、3,且1+2+3=6)。* 下列程序的功能是:找出1000 以内的所有完数,并将找出的* 完数及该数的所有因子输出。输出结果形式为:* 6,1,2,3* 28,1,2,4,7,14* 要求:* (1)将下列程序输入到项目的程序文件pcode中,并对其中的* 2条错误语句进行修改;* (2)在修改程序时,不允许修改程序的总体框架和算法,不允许* 增加或减少语句数目。*-clearfor i=1 to 1000 m=0
2、 s= for j=1 to i-1 if i/j=int(i/j) m=m+j*FOUND* s=s+ , + j endif endfor if i=m ?i*FOUND* ?s endifendfor答案:=(答案1)=s= s+ ,+ str(j )=或=s= s+ ,+ allt (str(j)=(答案2)=? s第2题 (10.0分) 题号:14*-*【程序改错】*-*题目:下列的程序功能是:求出不超过6位数的Armstrong数。所谓* Armstrong数是指一个n位数的正整数,它的每位数字的n次方* 之和等于该数本身。例如:153=13+53+33 要求:* (1)将下列程序
3、输入到项目的程序文件pcode中,并对其中的* 2条错误语句进行修改;* (2)在修改程序时,不允许修改程序的总体框架和算法,不允许* 增加或减少语句数目。*-clear for m=1 to 100000 n=len(allt(str(m) x=0 for y=1 to n c=substr(allt(str(m),y,1)*FOUND* x=x+val(c)*n endfor*FOUND* if n=x ? Armstrong数, m endif endfor答案:=(答案1)=x =x +val(c) n=或=x =x +val(c) *n=(答案2)=if m=x=或=if x=m第3
4、题 (10.0分) 题号:18*-*【程序改错】*-*题目:下列的程序用来产生30个0100之间的随机整数,并且找出* 其中的最大偶数和最小奇数* 要求:* (1)将下列程序输入到项目的程序文件pcode中,并对其中的* 2条错误语句进行修改;* (2)在修改程序时,不允许修改程序的总体框架和算法,不允许* 增加或减少语句数目。*-cleardimension a(30)for i=1 to 30*FOUND* a(i)=int(rand()*200)endforMmax=-1Mmin=100for i=1 to 30 ?str(a(i),3) if Mmaxa(i) and mod(a(i)
5、,2)=1 Mmin=a(i) endifendfor?最大偶数:,iif(Mmax=-1,无,Mmax)?最小奇数:,iif(Mmin=100,无,Mmin)答案:=(答案1)=a(i) =int (rand() * 100)=(答案2)=endif第4题 (10.0分) 题号:11*-*【程序改错】*-*题目:下列程序用来产生20个0100之间的随机整数,* 并找出其中的最大数和最小数,输出时20个随机* 整数*均在一行显示,下一行显示最大数和最小数。*要求:* (1)将下列程序输入到项目中的程序文件pcode中,并* 对其中的2条错误语句进行修改。* (2)在修改程序时不允许修改程序的总体框架和算法,* 不允许增加或减少语句的数目。*-DIMENSION A(20)FOR I=1 TO 20 A(I)=INT(RAND()*100)ENDFORMmax=A(1)Mmin=A(1)?A(1)FOR i=2 to 20*FOUND* ?STR(A(I),3) IF MmaxA(i) Mmin=A(i) ENDIFENDFOR*FOUND*?最大数是: + Mmax + 最小数是: ,Mmin答案:=(答案1)=?str(a(i) ,3)=(答案2)=?最大数是: + str(Mmax) + 最小数是: , Mmin=或=?最大数是: ,Mmax , 最小数是: , Mmin
- 温馨提示:
1: 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 装配图网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 中移动绩效管理系统1课件
- 第五节维生素D缺乏性佝偻病ppt课件
- 登革热主题班会ppt课件
- 新生儿持续肺动脉高压诊治进展课件
- 新湘少版三年级英语上册Unit2goodmorning课件
- 新生儿呼吸窘迫综合症(Neonatal-Respiratory-Distress-Syndrome)课件
- 中移动滚动规划中关于流量经营的考虑课件
- 电气排故高级证ppt课件
- 新浙教版-九年级科学上-第一章复习课件
- 把握新高考的难得机遇做一位成功的高考考生ppt课件
- 新生儿缺氧缺血性脑病课件
- 中科院讲义-分布式操作系统-Peterson和Dekker算法证明教学课件
- 新生儿巨细胞病毒感染课件
- 大学生恋爱观及恋爱问题的应对策略ppt课件
- 新生儿惊厥ppt课件