1、1求在1,30之间有多少个整数,其平方等于两整数的平方和 ?程序中有一处错.(1)输入原程序,记录运行结果,将结果填入答题窗口处( 程序名由考生自定)。(2)更正程序中的错误,运行更正后的程序,记录运行结果,将结果填入答题窗口内的处。SET TALK OFFA=1B=30N=0I=A DO WHILE I500EXITOTHERWISEY=Y+XENDCASEENDDO?YSET TALK ONRETURN下面的程序是求 1 到 1000 的偶数平方和与奇数平方和之差。程序中有一处错.(1)输入原程序,记录运行结果,将结果填入答题窗口处( 程序名由考生自定)。(2)更正程序中的错误,运行更正后
2、的程序,记录运行结果,将结果填入答题窗口内的处。SET TALK OFFSTORE 0 TO I,S1,S2DO WHILE I=680000 为止的最大阶乘数 n。(程序名由考生自定)。在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答题窗口。SET TALK OFFCLEARs=03n=3DO WHILE .T.t=1FOR i=1 TO nt=t*iNEXTs=s+tIF s=680000EXITENDIF_ ENDDO?nRETURN已知 S1=1,S2=1+2,S3=1+2+3,.,SN=1+2+.+N,下面的程序是求 S20 到S80 有多少能被 17 或 35 整除
3、。程序有一处错误。(1)输入原程序,记录运行结果,将结果填入答题窗口处( 程序名由考生自定)。(2)更正程序中的错误,运行更正后的程序,记录运行结果,将结果填入答题窗口内的处。SET TALK OFFI=20 N=0DO WHILE I=60000 为止。(程序名由考生自定)。在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答题窗口。SET TALK OFFCLEARs=0x=2DO WHILE .T.s0=0FOR _ s0=s0+iNEXTs=s+s0IF s=60000EXITENDIFx=x+2ENDDO?sRETURN下面的程序是计算 1*2*3*4*5.的积，要求其积
4、大于 10000 后结束程序运行，并给出程序的运行结果。程序序有一处错误。(1)输入原程序,记录运行结果,将结果填入答题窗口处( 程序名由考生定)。(2)更正程序中的错误,运行更正后的程序,记录运行结果,将结果填入答题窗口内的处。SET TALK OFFSTORE 1 TO X,YDO WHILE X10000LOOPENDIFENDDO? Y5SET TALK ONRETURN求 s=3!+5!+7!+.，直到 s=28000 为止。( 程序名由考生自定)。在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答题窗口。SET TALK OFFCLEARs=0x=3DO WHILE
5、.T.t=1FOR _t=t*iNEXTs=s+tIF s=28000EXITENDIFx=x+2ENDDO?sRETURN已知三角形最长边是 50，其它两边的长度都是正整数，求可以有多少个不同的三角形。注意：在各种可能中，两长边的长短交换成的三角形算作同一个三角形，如：其它两边的长度为 3,9 的三角形与长度为 9,3 的三角形视为同一个三角形。程序序有一处错误。(1)输入原程序,记录运行结果,将结果填入答题窗口处( 程序名由考生自定)。(2)更正程序中的错误,运行更正后的程序,记录运行结果,将结果填入答题窗口内的处。SET TALK OFFN=0I=16DO WHILE I50N=N+1E
6、NDIFJ=J+1ENDDOI=I+1ENDDO? NRETURN一个数等于它各位数字的立方和，该数称为阿姆斯特郎数。求 3 位数中的阿姆斯特郎数的个数.(程序名由考生自定 )。在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答题窗口。SET TALK OFFCLEARn=0FOR i=100 TO 999a=INT(i/100)b=_c=MOD(i,10)IF a3+b3+c3=i?i=,i,a,b,cn=n+1ENDIFNEXT?nRETURN下面的程序是求 0+2+4+6+.这样的偶数之和，若累加值大于 10000 时，结束累加。程序序有一处错误。(1)输入原程序,记录运行
7、结果,将结果填入答题窗口处( 程序名由考生自定)。(2)更正程序中的错误,运行更正后的程序,记录运行结果,将结果填入答题窗7口内的处。SET TALK OFFSTORE 0 TO X,YDO WHILE .F.STORE X+1 TO XDO CASECASE MOD(X,2)10000EXITOTHERWISEY=Y+XENDCASEENDDO? YSET TALK ONRETURN数列 xi 各元素的值是：x1 1，x212,x3123,.xn123n。对数列求和：S=x1+x2+x3，直到 S3000 止，求此时数列中最大的元素值。(程序名由考生自定) 。在下列程序中填上缺少的语句或另外
8、编写程序，运行程序，将结果填入答题窗口。SET TALK OFFCLEARs=0p=0i=1DO WHILE .t.p=p+i_ IF s3000EXITENDIFi=i+1enddo? p RETURN8已知正整数 C，求正整数 A,B(A0EXITENDIFS1=I+C/IIF SS1S=S1A=IB=C/IENDIFENDDO? SSET TALK ONRETURN已知 S1=1，S2=1+2，S3=1+2+3，Sn=1+2+3+.+n,S=S1+S2+.Sn 以下程序求当 n=10 时，S 的值.( 程序名由考生自定)。在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答题
9、窗口。set talk offs=0for i=1 to 10_for j=1 to i9sn=sn+jendfors=s+snendfor? sset talk onreturn下面的程序是求 2+4+8+16+32+这样的数之和。若累加数大于 1000 时结束累加。程序有一处错误。(1)输入原程序,记录运行结果,将结果填入答题窗口处( 程序名由考生自定)。(2)更正程序中的错误,运行更正后的程序,记录运行结果,将结果填入答题窗口内的处。SET TALK OFFCLEARX=2Y=0DO WHILE .T.Y=Y+XIF Y1000EXITENDIFSTORE 2*x TO XENDDO?Y
10、SET TALK ONRETURN求出100，500以内同时满足除以 7 余 1，除以 5 余 3,除以 3 余 1 的所有整数的个数。(程序名由考生自定 )。在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答题窗口。set talk offclearn=010sum=0for i=100 to 500if _n=n+1endifendfor? nset talk onreturn下面的程序是求 1 到 5000 以内能被 3 或 7 整除的整数的个数.程序中有一处错误。(1) 输入原程序,记录运行结果,将结果填入答题窗口处(程序名由考生自定 )。(2) 更正程序中的错误,运行更
11、正后的程序,记录运行结果,将结果填入答题窗口内的处。SET TALK OFFCLEARI=1S=0DO WHILE I=5000IF INT(I/3)=I/3 .OR.INT(I/7)=I/7S=S+1ENDIFI=I+1ENDDO? SSET TALK ONRETURN求2，100 之间质数之和.(程序名由考生自定) 。在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答题窗口。set talk offs=0for i=2 to 100flag=0for j=2 to sqrt(i)if int(i/j)=i/jflag=111_endifendforif flag=0s=s+i
12、endifendfor? sset talk onreturn下面的程序是求 1 到 2000 之间的能被 3 或 5 或 7 整除的整数之和.程序中有一处错误。(1) 输入原程序,记录运行结果,将结果填入答题窗口处(程序名由考生自定 )。(2) 更正程序中的错误,运行更正后的程序,记录运行结果,将结果填入答题窗口内的处。SET TALK OFFCLEARI=1S=0DO WHILE I=0x=x+1endiftwo=two+1enddo_enddo?xset talk onreturn下列的程序是求 S=12!+13!+14!的程序.程序中有一处错误。(1) 输入原程序,记录运行结果,将结果
13、填入答题窗口处(程序名由考生自定 )。(2) 更正程序中的错误,运行更正后的程序,记录运行结果,将结果填入答题窗口内的处。SET TALK OFFCLEARS=0I=12DO WHILE I=5000j=2do while j(I+J)/2N=N+1ENDIFJ=J+1ENDDOI=I+1ENDDO?NSET TALK ONRETURN编程求区间5000，9999中按递增顺序，第 15 大的素数 .(程序名由考生自定)。在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答题窗口.set talk off i=9999t=0do while i=5000j=2do while j50
14、0EXITENDIFSTORE 3*X TO XENDDO?YSET TALK ONRETURN设 S=1+1/2+1/3+.+1/N,N 为正整数。编程求使 S 不超过 10 的最大的 N.(程序名由考生自定 )。在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答题窗口.set talk offclears=0i=1do while s=250 止。程序中有一个错误。(1) 输入并运行该程序，将结果填入答题窗口的( 程序名由考生自定） 。(2) 更正程序中的错误并运行程序，将结果填入答题窗20口的。SET TALK OFFCLEARs=0i=1DO WHILE .T.s=s+i
15、i=i+1IF s=250EXITENDIFENDDO?sRETURN求出3,10000以内同时能被 3，6 整除,但不能被 8 整除的最大正整数 .(程序名由考生自定)。在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答题窗口.set talk offi=3t=0do while i=250。求相加各数中最大的一个数。(1) 输入并运行该程序，将结果填入答题窗口的( 程序名由考生自定） 。(2) 更正程序中的错误并运行程序，将结果填入答题窗口的。SET TALK OFFCLEARs=021i=1DO WHILE .T.s=s+1IF s=250EXITENDIFi=i+3END
16、DO?iRETURN求出只要能被 3，8，6 之一整除的 10000 以内的正整数的个数.(程序名由考生自定)。在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答题窗口。set talk offi=3t=0do while i=25 中止。(1) 输入并运行该程序，将结果填入答题窗口的( 程序名由考生自定） 。(2) 更正程序中的错误并运行程序，将结果填入答题窗口的。SET TALK OFFCLEARs=0k=1DO WHILE .T.s=s*kIF k=2522EXITENDIFk=k+4ENDDO?sRETURN下列程序求出所有能被 17 整除且不含重复数字的三位数的和。(程
17、序名由考生自定)。在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答题窗口。set talk offi=100store 0 to tdo while i=25000。求最大的乘数 k。(1) 输入并运行该程序，将结果填入答题窗口的( 程序名由考生自定） 。(2) 更正程序中的错误并运行程序，将结果填入答题窗口的。SET TALK OFFCLEARs=1k=1DO WHILE .T.s=s*kIF s=25000EXIT23ENDIFk=k+1ENDDO?kRETURN计算 5 元、2 元和 1 元兑换 100 元的方法有多少种(程序名由考生自定) 。在下列程序中填上缺少的语句或
18、另外编写程序，运行程序，将结果填入答题窗口。set talk offx=0five=0do while five555EXITENDIFx=x+1ENDDO?sRETURN25下列程序是求 1000 至 2000 以内所有素数的个数，(程序名由考生自定) 。在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答题窗口.set talk offi=1000t=0do while i=100000 的最小的整数N。程序中有错误。(1)输入原程序并运行,记录运行结果.( 程序名由考生自定) (2)更正程序中的错误,运行更正后的程序,记录运行结果.set talk offs=0n=1do w
19、hile s=100000s=s+n3n=n+1enddo?nreturn27下面的程序是求出 1 到 5000 之间的能被 5 整除的前若干个奇数之和,当和大于 500 时退出。在下列程序中填上缺少的语句或另外编写程序，(程序名由考生自定）运行程序，将结果填入答题窗口。SET TALK OFFCLEARI=1S=0DO WHILE I3 时最小的 N。 程序中有错误。(1)输入原程序并运行,记录运行结果.( 程序名由考生自定)(2)更正程序中的错误,运行更正后的程序,记录运行结果.set talk offs=0i=2do while .t.s=s+1/iif s3exitendifi=i+1
20、enddo?ireturn下面的程序是求 2+4+8+16+32+.这样的数之和. 若累加数大于 500 时,则结束累加.在下列程序中填上缺少的语句或另外编写程序，(程序名由考生自定）运行程序，将结果填入答题窗口。SET TALK OFFCLEARX=2Y=0DO WHILE .T.Y=Y+XIF Y500EXIT29ENDIF_ENDDO?YSET TALK ONRETURNSINX=X-X3/3!+X5/5!-X7/7!+.+(-1)(N+1)*X(2N-1)/(2N-1)!计算 N=100 时,SIN(2.123)的近似值,精确到小数点后 5 位, 程序中有错误。(1)输入原程序并运行,
21、记录运行结果.( 程序名由考生自定)(2)更正程序中的错误,运行更正后的程序,记录运行结果.set talk offset deci to 5n=2store 2.123 to x,st=1do while nX/2_CASE Y300EXIT30OTHERWISEY=Y+XENDCASEENDDO?YSET TALK ONRETURN下列程序求满足：所有数字和为 13 的四位数的个数。程序中有错误。(1)输入原程序并运行,记录运行结果.( 程序名由考生自定)(2)更正程序中的错误,运行更正后的程序,记录运行结果. set talk offt=0i=1000do while i=9999j=ltrim(str(i)a=left(j,1)b=subs(j,2,1)c=subs(j,3,1)d=right(j,1)if a+b+c+d=13t=t+1endifi=i+1enddo ?treturn下面和程序是求 1+3+5+7+9+11+.这样的奇数之和.若累加数大于 500 时,则结束累加.在下列程序中填上缺少的语句或另外编写程序，(程序名由考生自定）运行程序，将结果填入答题窗口。SET TALK OFFCLEARX=0Y=0DO WHILE .T.STORE X+1 TO XDO CASE
