资源描述：
《vfp程序设计题答案》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、三、程序改错题1.下列程序为求s=1-1/3+1/5-1/7+...-1/99之值,(精确到小数后两位),程序中有错误。改正后运行程序，将程序执行结果填入答案框内。settalkoffs=0n=1dowhilen<=99s=s+1/nn=n+1enddo?sreturnsettalkoffs=0n=1i=1dowhilen<=99s=s+i/nn=n+2i=-ienddo?sreturn2.下面的程序是求3+9+27+81+243+...这样的数之和.若累加数大于500时,则结束累加.程序中有一处错误。改正后
2、运行程序，将程序执行结果填入答案框内。SETTALKOFFCLEARX=3Y=0DOWHILE.F.Y=Y+XIFY>500EXITENDIFSTORE3*XTOXENDDO?YSETTALKONRETURNDowhile.f.改为Dowhile.t.3.已知S1=1,S2=1+2,S3=1+2+3,…,SN=1+2+…+N,下面的程序求S20到S80有多少数能被17或35整除。改正后运行程序，将程序执行结果填入答案框内。SETTALKOFFI=20N=0DOWHILEI<=80STORE1TOS改为s=0J
3、=1DOWHILEJ<=IS=S+JJ=J+1ENDDOIFMOD(S,17)=0ormod(s,35)=0N=N+1ENDIFI=I+1ENDDO?NSETTALKONRETURN4.下列程序为求满足s=1^3+2^3+3^3+...+N^3,当s>=100000的最小的整数N。程序中有错误。改正后运行程序，将程序执行结果填入答案框内。settalkoffs=0n=1dowhiles>=100000改为s<10000s=s+n^3n=n+1enddo?nreturn5.计算S=1*5*9*13*...*k，
4、直到累乘数k>=25中止。程序中有错误。改正后运行程序，将程序执行结果填入答案框内。SETTALKOFFCLEARs=0改为s=1k=1DOWHILE.T.s=s*kIFk>=25EXITENDIFk=k+4ENDDO?sRETURN6.下面的程序是求1到500的偶数立方和与奇数立方和之差。程序中有一处错。更正程序中的错误,运行更正后的程序,记录运行结果,将结果填入答题窗口内。SETTALKOFFSTORE0TOI,S1,S2DOWHILEI<=500改为I<500I=I+1IFMOD(I,2)=0S1=S1
5、+I*I*IELSES2=S2+I*I*IENDIFENDDO?S1-S2SETTALKONRETURN7.下面的程序是计算1*2*3*4*5...的积，要求其积大于10000后结束程序运行，输出乘积的值。程序有一处错误。更正程序中的错误,运行更正后的程序,记录运行结果,将结果填入答题窗口内。SETTALKOFFSTORE1TOX,YDOWHILEX<30Y=Y*XX=X+1IFY>10000LOOP改为EXITENDIFENDDO?YSETTALKONRETURN8.已知一个数列的前三个数是1,2,3,从第
6、四个数起,每个数都是前三个数之和。下面的程序是求出该数列的第35个数。改正程序中的错误后运行程序，将程序执行结果填入答案框内。SETTALKOFFDIMEA(35)A(1)=1A(2)=2A(3)=3I=4DOWHILEI=35改为I<=35A(I)=A(I-1)+A(I-2)+A(I-3)I=I+1ENDDO?A(35)SETTALKONRETURN9.下面的程序是求在1,2,3,4,...,10这10个数中,任意选两个不同的数,求它们的和能被2整除的数的总对数.(注意:象3+5和5+3认为是同一对数).程
7、序中有一处错误。改正程序中的错误后运行程序，将程序执行结果填入答案框内。SETTALKOFFCLEARN=0I=1DOWHILEI<=10J=1DOWHILEJ(I+J)/2<>改为=N=N+1ENDIFJ=J+1ENDDOI=I+1ENDDO?NSETTALKONRETURN四、程序填空题1.下列的程序是求S=8!+9!+10!的程序.在下列程序中填上缺少的语句或另外编写程序，(程序名由考生自定)运行程序，将结果填入答题窗口。SETTALKOFFCLEARS=0I=8DO
8、WHILEI<=10STORE1TOT,JDOWHILEJ<=IT=T*JJ=J+1ENDDOS=s+tI=I+1ENDDO?SSETTALKONRETURN其它方法:SettalkoffClearS=0T=1Fori=1to10T=t*iIfi>=8S=s+tEndifEndfor?sSettalkoffClearS=0Fori=8to10T=1Forj=1toiT=t*jEndforS=s+tE
