改错题（包含答案）

一、程序改错 第 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 1000m=0 s=for j=1 to i-1if i/j=int(i/j)m=m+j*FOUND*s=s+ , + jendif endfor if i=m?i*FOUND*?sendifendfor答案：=(答案 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）将下列程序输入到项目的程序文件 pcode 中，并对其中的* 2 条错误语句进行修改；* （2）在修改程序时，不允许修改程序的总体框架和算法，不允许* 增加或减少语句数目。*-clear for m=1 to 100000n=len(allt(str(m)x=0for y=1 to nc=substr(allt(str(m),y,1)*FOUND*x=x+val(c)*nendfor*FOUND*if n=x? Armstrong 数, mendif endfor答案：=(答案 1)=x =x +val(c) n=或=x =x +val(c) *n=(答案 2)=if m=x=或=if x=m第 3 题 （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),2)=1Mmin=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 20A(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)=