vfp程序题(含结果)

一、程序改错题（在参考程序文件夹中从gc1—gc7）1.下面的程序是求3+9+27+81+243+...这样的数之和.若累加数大于500时,则结束累加.程序中有一处错误。改正后运行程序，将程序执行结果填入答案框内。SETTALKOFFCLEARX=3Y=0DOWHILE.F.Y=Y+XIFY500EXITENDIFSTORE3*XTOXENDDO?YSETTALKONRETURN修改后的程序执行结果为：10922.已知S1=1,S2=1+2,S3=1+2+3,…,SN=1+2+…+N,下面的程序求S20到S80有多少数能被17或35整除。改正后运行程序，将程序执行结果填入答案框内。SETTALKOFFI=20N=0DOWHILEI=80STORE0TOSJ=1DOWHILEJ=IS=S+JJ=J+1ENDDOIFMOD(S,17)=0N=N+1ENDIFI=I+1ENDDO?NSETTALKONRETURN修改后的程序执行结果为：123.计算S=1*5*9*13*...*k，直到累乘数k=25中止。程序中有错误。改正后运行程序，将程序执行结果填入答案框内。SETTALKOFFCLEARs=0k=1DOWHILE.T.s=s*kIFk=25EXITENDIFk=k+4ENDDO?sRETURN修改后的程序执行结果为：52211254.下面的程序是求1到500的偶数立方和与奇数立方和之差。程序中有一处错。更正程序中的错误,运行更正后的程序,记录运行结果,将结果填入答题窗口内。SETTALKOFFSTORE0TOI,S1,S2DOWHILEI=500I=I+1IFMOD(I,2)=0S1=S1+I*I*IELSES2=S2+I*I*IENDIFENDDO?S1-S2SETTALKONRETURN修改后的程序执行结果为：626875005.程序求能被3整除且至少有一位数字为5的三位数的个数。程序中有一行有错误。更正程序中的错误，运行更正后的程序，记录运行结果，将结果填入答题窗口。SETTALKOFFCLEARS=0X=100DOWHILEX=999IFMOD(X,3)0A=INT(X/100)B=INT(X/10)-A*10C=X-A*100-B*10IFA=5.OR.B=5.OR.C=5S=S+1ENDIFENDIFX=X+1ENDDO?SRETURN修改后的程序执行结果为：856.下面的程序是求在1,2,3,4,...,10这10个数中,任意选两个不同的数,求它们的和能被2整除的数的总对数.(注意:象3+5和5+3认为是同一对数).程序中有一处错误。改正程序中的错误后运行程序，将程序执行结果填入答案框内。SETTALKOFFCLEARN=0I=1DOWHILEI=10J=1DOWHILEJIIFINT((I+J)/2)(I+J)/2N=N+1ENDIFJ=J+1ENDDOI=I+1ENDDO?NSETTALKONRETURN修改后的程序执行结果为：207.已知一个数列的前三个数是1,2,3,从第四个数起,每个数都是前三个数之和。下面的程序是求出该数列的第15个数。改正程序中的错误后运行程序，将程序执行结果填入答案框内。SETTALKOFFDIMEA(15)A(1)=1A(2)=2A(3)=3I=4DOWHILEI=15A(I)=A(I-1)+A(I-2)+A(I-3)I=I+1ENDDO?A(15)SETTALKONRETURN修改后的程序执行结果为：4841二、程序填空题（在参考程序文件夹中从tk1—tk12）1.下列的程序是求S=8!+9!+10!的程序.在下列程序中填上缺少的语句或另外编写程序，(程序名由考生自定）运行程序，将结果填入答题窗口。SETTALKOFFCLEARS=0I=8DOWHILEI=10STORE1TOT,JDOWHILEJ=IT=T*JJ=J+1ENDDO_________s=s+tI=I+1ENDDO?SSETTALKONRETURN程序的执行结果为：40320002.设S=1+1/2+1/3+...+1/N，N为正整数。编程求使S不超过10的最大的N.(程序名由考生自定)。在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答题窗口。settalkoffclears=0i=1dowhiles=10s=s+1/i________i=i+1enddo?i-2settalkonreturn程序的执行结果为：123663.输出[10,100]中除以17的余数和除以5的商相等的整数的个数。SETTALKOFFN=0FORK=10TO100IF________k%17=int(k/5)?KN=N+1ENDIFENDFOR?NRETURN程序的执行结果为：44.统计区间[1000，9999]内所有能被3整除，且千位数字与个位数字之和为8的整数的个数。Settalkofft=0I=1000dowhileI=9999if_________i%3=0andint(i/1000)+i%10=8t=t+1endifI=I+1enddo?treturn程序的执行结果为：2645.求在四位数的奇数中，所有各位数字之和是25的倍数的数的和。CLEARS=0FORI=1001TO9999STEP2A=INT(I/1000)B=INT(I/100)%10C=INT(I/10)%10D=I%10IF_________(a+b+c+d)%25=0S=S+IENDIFNEXT?S=,SRETURN程序的执行结果为：12985156.求出1到5000之间的能被5整除的前若干个偶数之和，当和大于500时程序退出。CLEARS=0FORI=1TO5000IF_________i%5=0andi%2=0S=S+IIFS500EXITENDIFENDIFNEXT?S=,SRETURN程序的执行结果为：5507.程求S=1*3+2*4+3*5+...+198*200。在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答题窗口。SETTALKOFFS=0N=1DOWHILEN=198________s=s+n*(n+2)N=N+1ENDDO?SSETTALKONRETURN程序的执行结果为：26465018.求出所有能被17整除且不含重复数字的三位数的和。(程序名由考生自定)。在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答题窗口。settalkoffi=100store0totdowhilei=999a=int(i/100)b=int((i-a*100)/10)c=mod(i,10)if___________i%17=0andabandbcandcat=t+iendifi=i+1enddo?treturn程序的执行结果为：212679.数列xi各元素的值是：x1＝1，x2＝1＋2,x3＝1＋2＋3,.....xn＝1＋2＋3＋......＋n。对数列求和：S=x1+x2+x3....，直到S3000止，求此时数列中最大的元素值。(程序名由考生自定)。在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答题窗口。SETTALKOFFCLEARs=0p=0i=1DOWHILE.t.p=p+iS=S+PIFs3000______exitENDIFi=i+1enddo?pRETURN程序的执行结果为：35110.求出[100，500]以内同时满足除以7余1，除以5余3,除以3余1的所有整数的个数。(程序名由考生自定)。在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答题窗口。Settalkoffclearn=0sum=0forI=100to500if_____________i%7=1andi%5=3andi%3=1n=n+1endifendfor?Nsettalkonreturn程序的执行结果为：411.求[200，600]间奇数之和。(程序名由考生自定)。在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答题窗口。Settalkoffs=0forI=200to600if________i%2=0loopendifs=s+Iendfor?Sreturn程序的执行结果为：8000012.编程求区间[5000，9999]中所有素数的个数.(程序名由考生自定)。在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答题窗口.SettalkoffI=9999t=0dowhileI=5000j=2dowhilej=I-1ifint(I/j)=I/jexitendifj=j+1enddoifj=It=t+1endif_________i=i-1enddo?t程序的执行结果为：560三、程序设计题（在参考程序文件夹中从bc1—bc17）1.求1+3+5+7+9+11+...这样的奇数之和.若累加数大于500时,则结束累加。程序执行结果为：5292.编程序求出100到800之间同时满足除4余1和除5余3条件的数的个数。程序执行结果为：353.求能被3整除且至少有一位数字为5的三位数的个数。程序执行结果为：854.编写程序，求8!+9!+10!程序执行结果为：40320005.编写程序，求s=1+1/2+1/3+…+1/99，保留两位小数。程序执行结果为：5.186.求s=1-1/2+1/3-1/4+1/5-…..+1/49+1/50的和(保留2位小数)。程序执行结果为：0.687.求出只要能被2，7，9之一整除的1000以内（不含1000）的正整数的个数。程序执行结果为：6188.编程序求出1到100之间同时满足除3余2和除4余2条件的数的和。程序执行结果为：4509.求[105，625]间能同时被7和11整除的自然数之和以及平方和。程序执行结果为：2695120358710.编写程序，求200到800之间素数的个数与素数的和。程序执行结果为：个数：93和：4585111.计算S=3!+5!+7!+...+N!，求直到S=680000为止的奇数N。程序执行结果为：1112.编写程序，求在四位数的奇数中，所有各位数字之和是25的倍数的数的和。程序执行结果为：129851513.编写程序，计算在0至50的范围内有多少个数，其每位数的乘积大于每位数的和。程序执行结果为：2314.编写程序，统计200~400之间的所有满足三个数字之积为42，三个数字之和为12的数的个数。程序执行结果为：415.编写程序，统计1000~9999之间的所有满足以下条件的四位数的个数。该四位数是一个完全平方数，其第1位（千位）与第3位（十位）数字之和为10，第2位（百位）与第4位（个位）数字之积为12。程序执行结果为：216.编程序求出1到5000之间的能被5整除的前若干个偶数之和，当和大于500时程序退出。（求出2+4+8+16+32+…这样的数之和。如果累加数大于500时，则程序终止并输出结果。）程序执行结果为：55017.已知一个数列的前3个数为0，0，1，以后每个数为前3个数的和，编程序求此数列的第36个数。程序执行结果为：334745777