程序改错示例

1、.修复程序错误：修改程序时，不能修改程序的整体框架和算法，也不能增加或减少语句数。练习1:以下程序是将“China”编为密码。如果是大写，就用原字母代替原字母，然后是第四个字母，示例字母“a”后是第四个字母“e”，用“e”代替“a”。小写字母用原始文字后面的第二个字符替换原始文字。例如，字母“a”后的第二个字符为“c”，使用“c”代替“a”。因此，“China”密码是“Gjkpc”。SET COLLATE TO MACHINE LOCAL mSting、cString、chMString=SPACE(0)CString=China for I=1 to val(cstring)* * for

2、I=1 to len(cstring)Ch=substr (cstring，1，I) * * * ch=substr (cstring，I，1)IF BETWEEN(ch， a ， z )MString=mString CHR(ASC(ch) 2)ELSEMString=mString CHR(ASC(ch) 4)恩迪安ENDFORWAIT WINDOW cString密码为mString练习2:以下过程中的过程(名为ren的过程)用于生成n个a到b之间的随机整数，然后将其按从小到大的顺序保存在数组x中，并分别输出n=10、a=5、b=25和n=20、a=50和b=80的数组x值=ren(10

3、，5，25)=ren(20，50，80)PROC renPARA a、b、n *PARA n、a和bDIME x(n)X=0FOR I=1 TO nX(i)=INT(b-a)*RAND() a)ENDFORFOR j=1 TO n-1FOR k=j 1 TO nIF x(k) x(j)T=x(j)x(k)=x(j)* * x(j)=x(k)X(k)=t恩迪安ENDFORENDFORFOR I=1 TO n-嗯？X(i)ENDFOR日元proc练习3:以下过程生成10个30到50之间的随机整数，并将它们从大到小存储在数组x中。DIMENSION X(10)X=0FOR I=1 TO 10x(I)

4、=int(50-30)* rand()20)* * x(I)=int(50-30)* rand()30ENDFORFOR j=1 TO 9FOR k=j 1 TO 10IF x(k) x(j)T=x(j)X(j)=x(k)X(k)=t恩迪安ENDFORENDIF *ENDFORCLEARFOR I=1 TO 10-嗯？X(i)ENDFOR练习4:数组a具有n个徐璐的其他整数，a数组必须插入指定的整数x(x不是n个数字中的任何一个)，插入后，a数组仍保持顺序。假设这n个整数分别为10、20、30、40、50、60、70、80、90、100和X=55。N=10DIMENSION a(n 1)X=5

5、5FOR I=1 TO nA(I)=i*nENDFORFOR j=1 TO n-1IF a(j)xFOR k=n 1 TO j 1 STEP -1a(k)=a(j 1)* * a(k)=a(k-1)ENDFORA(j)=xLOOP *EXIT恩迪安A(n 1)=IIF(j=n-1，x，A(n 1)ENDFOR显示内存like a *练习5:要求数组a具有n个徐璐其他数据，按从小到大的顺序排列，从数组中删除与指定x相同的数字，然后将数字向前移动一个位置。假设此n的数量为10、20、30、40、50、60、70、80、90、100、x=60。要求：N=10DIMENSION A(n)X=60FOR

6、 I=1 TO nA(i)=i*nENDFORM=INT(n 1)/2)IF A(m) xT1=1T2=mENDIF *ELSET1=mT2=n恩迪安FOR j=t1 TO T2IF A(j)=xFOR k=j TO n-1A(k)=A(j 1) * A(k)=A(K 1)ENDFORA (n)=。F.EXIT恩迪安ENDFOR显示内存like a *练习6:查找1-2000内的所有阿姆斯特朗数(阿姆斯特朗数)。如果数字等于1位数立方的和，则此数字称为阿姆斯特朗。例如，407是阿姆斯特朗的数量。407=43 03 73。要求：-嗯？阿姆斯特朗的数量是1到2000。NCount=0FOR I=1

7、 TO 2000N=LEN(ALLT(STR(i)M=0FOR j=1 TO nM=m val (right (allt (str (I) j，1 (3)* * * m=m val (substr (allt (str (I) j，1 (3)ENDFORIF I=n*IF i=mNCount=nCount 1-嗯？I恩迪安ENDFOR-嗯？1个“总计”ALLT(STR(nCount)练习7:使用以下过程查找1000内同时满足以下条件的数量：1)一位和十位之和除以10的余数是一百位。2)这个数字是小数(只能被1和它本身整除的数字称为“小数”)。例如，211，239，367等。CLEARFOR I

8、=1 TO 1000Yn=。tFOR j=3 TO i-1IF MOD(i，j)=0Yn=。fEXIT恩迪安ENDFORIF ynS=ALLT(STR(i)S1=RIGHT(s，1)S2=LEFT(RIGHT(s，2)，1)S3=LEFT(RIGHT(s，3)，1)Ifmod (s1s2，10)=S3 * * if mod (S1) val (S2)，10)=val (S3)-嗯？I恩迪安恩迪安ENDIF *ENDFOR练习8:以下程序用于计算1！(1！3！(1！3！5！)(1！3！5！11！)。CLEARM=0FOR I=1 TO 6FOR j=I TO 2*i -1 STEP 2M=m j

9、c(j)ENDFORENDFOR-嗯？1！(1！3！(1！3！5！)(1！3！5！11！)值为：STR(m)FUNCTION JCPARAMETERS nS=1FOR k=1 TO nS=s*kNEXT *ENDFORRETURN *RETURN S练习9:以下程序的功能是找出1000内的所有完整性，并计算其数量(完成是与这些数字之和完全相同的数字)。例如，6的系数为1，2，3，1 2 3=6，因此6是完成。)要求：CLEARNCount=0FOR n1=1 TO 1000M=0FOR N2=1 TO n1-1If n1/N2=mod (n1，N2) * * * if n1/N2=int (n

10、1，N2)M=m N2恩迪安ENDIF *ENFFORIF n1=m-嗯？N1NCount=nCount 1恩迪安ENDFORWaitwawindows 完整度计数为 STR(nCount)练习10:以下过程的功能是确定1000内的所有完整性的数量(完整性表示与该数量之和完全相同的数量)。例如，6的系数为1，2，3，1 2 3=6，因此6是完成。)要求：CLEARN1=1NCount=0DO WHILE n1=1000M=0for N2=int(n1/N2)to 1 step-1 * * * N2=int(n1/2)IF n1/n2=INT(n1/n2)M=m N2恩迪安ENDFORIF n1

11、=mNCount=nCount 1-嗯？N1ENDDO *ENDIFN1=n1 1恩多Waitwawindows 完整度计数为 STR(nCount)练习11:以下过程的功能是找出两个正整数的最大公约数。用除法可以得出最大公约数。例如，27和6，27除以6，剩下的为3，剩下的为0，所以6除以除数，3除以除数，剩下的为0，那么3就是27和6的最大公约数。要求：CLEARM=27N=6IF m0M=nN=t *n=rR=MOD(m，n)恩多WAIT WINDOWS最大公约数为STR(r) * STR(n)练习12:以下程序的功能是找出从1992年到2010年的闰年。判断闰年的条件是(1) 4可除以

12、100，但不能除以100的年份；(2)可分为100和400的一年。1989年，1900年不是闰年，1992年，2000年是闰年。要求：N=1992Y=1DO WHILE n=2010IF INT(n/4)=n/4IF INT(n/100) n/100Y=1ELSEIF INT(n/400)=n/400Y=1ELSEY=0恩迪安恩迪安ENDIF *ELSEY=0恩迪安WAIT WINDOWS STR(n)是IIF(y=1 1 ，不是闰年)*y=1N=n 1恩多练习13:以下过程的功能是查找函数f(x)的值，并分别提供x=-2、x=2和x=6的值。函数表达式如下：CLEAR-嗯？F(-2)-嗯？F(2)-嗯？F(6)FUNCTION fPARAMETERS xIF x 2Y=2 * x 2 3 * x 4ELSEIF x=2Y=0ENDIF *ELSEY=-2 * x 2 3 * x-4恩迪安恩迪安RETURN x * RETURN Y练习14:以下过程用于生成20个随机数，从大小开始按顺序存储在数组x中。要求：DIMENSION X(20)X=0FOR I=1 TO 20X(i)=RAND()ENDFORFOR j=1 TO 19FOR k=2 TO 20 * * * * FOR k=j 1