程序设计题答案呼呼.docVIP

三、程序改错题 1.下列程序为求s=1-1/3+1/5-1/7+...-1/99之值,(精确到小数后两位), 程序中有错误。 改正后运行程序，将程序执行结果填入答案框内。 set talk off s=0 n=1 do while n=99 s=s+1/n n=n+1 enddo ?s return set talk off s=0 n=1 i=1 do while n=99 s=s+i/n n=n+2 i=-i enddo ?s return 2.下面的程序是求3+9+27+81+243+...这样的数之和. 若累加数大于500时,则结束累加.程序中有一处错误。改正后运行程序，将程序执行结果填入答案框内。 SET TALK OFF CLEAR X=3 Y=0 DO WHILE .F. Y=Y+X IF Y500 EXIT ENDIF STORE 3*X TO X ENDDO ?Y SET TALK ON RETURN Do while .f. 改为 Do while .t. 3.已知S1=1,S2=1+2,S3=1+2+3,…,SN=1+2+…+N,下面的程序求S20到S80有多少数能被17或35整除。改正后运行程序，将程序执行结果填入答案框内。 SET TALK OFF I=20 N=0 DO WHILE I=80 STORE 1 TO S 改为 s=0 J=1 DO WHILE J=I S=S+J J=J+1 ENDDO IF MOD(S,17)=0 or mod(s,35)=0 N=N+1 ENDIF I=I+1 ENDDO ? N SET TALK ON RETURN 4.下列程序为求满足s=1^3+2^3+3^3+...+N^3,当s=100000的最小的整数N。 程序中有错误。 改正后运行程序，将程序执行结果填入答案框内。 set talk off s=0 n=1 do while s=100000 改为 s10000 s=s+n^3 n=n+1 enddo ?n return 5.计算S=1*5*9*13*...*k，直到累乘数k=25中止。程序中有错误。改正后运行程序，将程序执行结果填入答案框内。 SET TALK OFF CLEAR s=0 改为 s=1 k=1 DO WHILE .T. s=s*k IF k=25 EXIT ENDIF k=k+4 ENDDO ?s RETURN 6.下面的程序是求1到500的偶数立方和与奇数立方和之差。程序中有一处错。 更正程序中的错误,运行更正后的程序,记录运行结果,将结果填入答题窗口内。 SET TALK OFF STORE 0 TO I,S1,S2 DO WHILE I=500 I=I+1 IF MOD(I,2)=0 S1=S1+I*I*I ELSE S2=S2+I*I*I ENDIF ENDDO ? S1-S2 SET TALK ON RETURN 7.下面的程序是计算1*2*3*4*5...的积，要求其积大于10000后结束程序运行，输出乘积的值。程序有一处错误。更正程序中的错误,运行更正后的程序,记录运行结果,将结果填入答题窗口内。 SET TALK OFF STORE 1 TO X,Y DO WHILE X0 Y=Y*X X=X+1 IF Y10000 LOOP改为exit ENDIF ENDDO ? Y SET TALK ON RETURN 8. 已知一个数列的前三个数是1,2,3,从第四个数起,每个数都是前三个数之和。下面的程序是求出该数列的第35个数。改正程序中的错误后运行程序，将程序执行结果填入答案框内。 SE