2002一级编程题精选(用FOXPRO编写).doc

2002年湖南省等级考试一级编程题精选1 编程序求出1-200以内的能被3或7整除的数的个数和它们的平方和。 (答案： 85 1134490 )CLEARS=0N=0FOR I=1 TO 200 IF MOD(I,3)=0 OR I%7=0 S=S+I*I N=N+1 ENDIFNEXT?S=,S,N=,NRETURN2 编写程序，求所有符合算式ij*ji=1300的最大的和最小的数ij（即i*10+j），共有多少组这样的i,j。其中i、j是19之间的一位整数。 (答案： 52 25 2 )CLEARMIN=0N=0FOR I=1 TO 9 FOR J=1 TO 9 IF (I*10+J)*(J*10+I)=1300 IF MIN=0 MIN=I*10+J&第一次求出来的满足条件的ij最小 ENDIF MAX=I*10+J&最后一次求出来的满足条件的ij最大 N=N+1 ENDIF NEXTNEXT?MIN=,MIN,MAX=,MAX,N=,NRETURN3 编程序求199的平方根的和并输出结果。（保留小数点两位） (答案： 661.46 )CLEARS=0FOR I=1 TO 99 S=S+SQRT(I)NEXT?S=,SRETURN4 编写程序，求在四位数的奇数中，所有各位数字之和是25的倍数的数的和。 (答案： 1298515 )CLEARS=0FOR I=1001 TO 9999 STEP 2&I是四位的奇数 A=INT(I/1000)&千位数字 B=INT(I/100)%10&百位数字 C=INT(I/10)%10&十位数字 D=I%10&个位数字 IF (A+B+C+D)%25=0 S=S+I ENDIFNEXT?S=,SRETURN5 (1)编程序求出1到5000之间的能被5整除的前若干个偶数之和，当和大于500时程序退出。 (答案： 550 )CLEARS=0FOR I=1 TO 5000 IF INT(I/5)=I/5 AND INT(I/2)=I/2&能被5整除的偶数 S=S+I IF S500&和大于500时退出循环 EXIT ENDIF ENDIFNEXT?S=,SRETURN(2)编程序求出 2+4+8+16+32+这样的数之和。如果累加数大于500时，则程序终止并输出结果。 (答案： 510 )S=0I=2DO WHILE .T. S=S+I IF S500 EXIT ENDIF I=I*2ENDDO?S=,S6 已知abc，且a+b+c100，求满足条件1/(a2)+1/(b2)=1/(c2)的共有多少组。 (答案： 2 )CLEARN=0FOR C=0 TO 100 FOR B=C+1 TO 100 FOR A=B+1 TO 100 IF (A2+B2)*C2=A2*B2 AND A+B+C 一个数如果刚好与它所有的因子之和相等，则称该数为一个“完数”，如：6=1+2+3，则6就是一个完数。求出1000以内的完数之和，完数的个数。 (答案： 530 3 )CLEARS=0&S中存放完数之和N=0&N中存放完数的个数FOR I=1 TO 1000 S1=0&S1中存放I的因子之和 FOR K=1 TO I/2 IF I%K=0&判断K是否为I的因子 S1=S1+K ENDIF NEXT IF S1=I S=S+I N=N+1 ENDIFNEXT?S=,S,N=,NRETURN8 已知一个数列的前3个数为0，0，1，以后每个数为前3个数的和，编程序求此数列的第36个数。 (答案： 334745777 )CLEARDIME A(36)STORE 0 TO A(1),A(2)A(3)=1FOR I=4 TO 36 A(I)=A(I-1)+A(I-2)+A(I-3)NEXT?A(36)=,A(36)RETURN9 编写程序，计算在0至50的范围内有多少个数，其每位数的乘积大于每位数的和。 (答案： 23 )CLEARN=0FOR I=10 TO 50&可以排除一位数的情况 A=INT(I/10) B=I%10 IF A*BA+B N=N+1 ENDIFNEXT?N=,NRETURN10 (1)用一元纸币兑换一分、两分和五分的硬币，要求兑换硬币的总数为50枚，问共有多少种换法？(注：在兑换中一分、两分或五分的硬币数可以为0枚) (答案： 13 )CLEARN=0FOR FIVE=0 TO 20 FOR TWO=0 TO 50 ONE=50-TWO-FIVE&ONE的值有可能为负数，要排除该情况 IF ONE=0 AND ONE+TWO*2+FIVE*5=100 N=N+1 ENDIF NEXTNEXT?N=,NRETURN(2)百钱百鸡问题。用100钱买100只鸡，公鸡一只五钱，母鸡一只三钱，雏鸡三只一钱，编程计算共有几种买法(要求每种鸡至少要买1只)。 (答案： 3 )N=0FOR X=1 TO 20 FOR Y=1 TO 33 Z=100-X-Y IF 5*X+3*Y+Z/3=100 N=N+1 ENDIF NEXTNEXT?N=,N(3) 有30个学生一起买小吃，共花钱50元，其中每个大学生花3元，每个中学生花2元，每个小学生花1元，问大、中、小学生的人数分配共有多少种不同的解(去掉某类学生数为0的解)?(答案： 9 )N=0FOR X=1 TO 17 FOR Y=1 TO 25 Z=30-X-Y IF Z0 AND 3*X+2*Y+Z=50 N=N+1 ENDIF NEXTNEXT?N=,N11 所谓回文数是从左至右与从右至左读起来都是一样的数字，如：121是一个回文数。编写程序，求出100900之间的所有能被3整除的回文数的个数和它们的和。 (答案： 26 12987 )CLEARN=0S=0FOR I=100 TO 900 NUM=LTRIM(STR(I) IF SUBSTR(NUM,1,1)=SUBSTR(NUM,3,1) AND I%3=0 N=N+1 S=S+I ENDIFNEXT?N=,N,S=,SRETURN12 若有三个正整数a、b、c满足a2+b2=c2，则a，b，c称为勾股数组，编一程序，问有多少个三个数均小于100的勾股数组(注意:a,b,c不能为0)。 (答案： 100 )CLEARN=0FOR C=1 TO 99 FOR A=1 TO C FOR B=1 TO C IF A2+B2=C2 N=N+1 ENDIF NEXT NEXTNEXT?N=,NRETURN13 今有5羊4犬3鸡2兔值钱1496，4羊2犬6鸡3兔值钱1175，3羊1犬7鸡5兔值钱958，2羊3犬5鸡1兔值钱861，求羊、犬、鸡、兔各值多少钱？ (答案： 177 121 23 29 )CLEARFOR X=100 TO 300 FOR Y=1 TO X FOR Z=1 TO Y W=861-2*X-3*Y-5*Z IF 5*X+4*Y+3*Z+2*W=1496 AND 4*X+2*Y+6*Z+3*W=1175 ; AND 3*X+Y+7*Z+ 5*W=958 ?X=,X,Y=,Y,Z=,Z,W=,W RETURN ENDIF NEXT NEXT NEXTNEXTRETURN14 “水仙花数”是指这样的数，其各位数字的立方和等于该数本身，如:153=13+53+33。编写程序，计算从100年开始到2000年为止，共有多少个年号是水仙花数年号。 (答案： 4 )CLEARN=0FOR I=100 TO 2000 A=INT(I/1000) B=INT(I/100)%10 C=INT(I/10)%10 D=I%10 IF I=A3+B3+C3+D3 N=N+1 ENDIFNEXT?N=,NRETURN15 所谓素数是指这样的自然数，除1和它本身外不再有其它因子。编写程序，计算从1981年开始到3000年为止，我们将遇到多少个素数年号。 (答案： 131 )CLEARN=0FOR I=1981 TO 3000 STEP 2&大于2的素数不可能为偶数 FLAG=.T. FOR J=2 TO SQRT(I) IF MOD(I,J)=0 FLAG=.F. EXIT ENDIF NEXT IF FLAG=.T. N=N+1 ENDIFNEXT?N=,NRETURN16 (1)编写程序，求满足下列条件的所有四位数ABCD的个数，该四位数是8的倍数，且D=6,A+B=B+C，即第1位数加上第2位数等于第2位数加上第3位数。 (答案： 25 )CLEARN=0FOR I=1000 TO 9999 IF MOD(I,8)=0 A=INT(I/1000) B=INT(I/100)%10 C=INT(I/10)%10 D=I%10 IF A+B=B+C AND D=6 N=N+1 ENDIF ENDIFNEXT?N=,NRETURN(2) 编写程序，统计200400之间的所有满足三个数字之积为42，三个数字之和为12的数的个数。 (答案： 4 )N=0FOR I=200 TO 400 A=INT(I/100) B=INT(I-A*100)/10) C=I-A*100-B*10 IF A+B+C=12 AND A*B*C=42 N=N+1 ENDIFNEXT?N=,N17 编写程序，求一正整数等差数列的前六项的平方和，该数列的前四项之和是26、之积是880。 (答案： 699 )CLEARS=0FOR X=1 TO 7&X为等差数列的首项 FOR D=1 TO 5&D为等差数列的公差 IF X+(X+D)+(X+2*D)+(X+3*D)=26 AND X*(X+D)*(X+2*D)*(X+3*D)=880 S=X2+(X+D)2+(X+2*D)2+(X+3*D)2+(X+4*D)2+(X+5*D)2 EXIT ENDIF NEXT IF S0 EXIT ENDIFNEXT?S=,SRETURN18 编写程序，统计10009999之间的所有满足以下条件的四位数的个数。该四位数是一个完全平方数，其第1位与第3位数字之和为10，第2位与第4位数字之积为12。 (答案： 2 )CLEARN=0FOR I=1000 TO 9999 A=INT(I/1000) B=INT(I/100)%10 C=INT(I/10)%10 D=I%10 IF INT(SQRT(I)=SQRT(I) AND A+C=10 AND B*D=12 N=N+1 ENDIFNEXT?N=,NRETURN改错填空求在1,30之间有多少个整数,其平方等于两整数的平方和?程序中有一处错.(1)输入原程序,记录运行结果,将结果填入答题窗口处(程序名由考生自定)。(2)更正程序中的错误,运行更正后的程序,记录运行结果,将结果填入答题窗口内的处。SET TALK OFFA=1B=30N=0I=A DO WHILE I=B J=1 DO WHILE JI K=1 DO WHILE K=J IF I=J+K &改为i2=j2+k2 N=N+1 ENDIF K=K+1 ENDDO J=J+1 ENDDO I=I+1ENDDO?NRETURN下面的程序是求S=1!+2!+3!+.N! 程序中有一行有错误。(1) 输入原程序并运行，从键盘上输入8时,记录运行结 果，将结果填入答题窗口的。(程序名由考生自定)(2) 更正程序中的错误，运行更正后的程序，从键盘上 输入8时,记录运行结果，将结果填入答题窗口的。SET TALK OFFCLEARN=15,15 SAY 请输入N值: GET NREADI=1S=0DO WHILE I=N SUB=1 J=1 DO WHILE J=N &改为j500 EXIT OTHERWISE Y=Y+X ENDCASEENDDO?YSET TALK ONRETURN下面的程序是求1到1000的偶数平方和与奇数平方和之差。程序中有一处错.(1)输入原程序,记录运行结果,将结果填入答题窗口处(程序名由考生自定)。(2)更正程序中的错误,运行更正后的程序,记录运行结果,将结果填入答题窗口内的处。SET TALK OFFSTORE 0 TO I,S1,S2DO WHILE I=1000 &改为i=999或i=680000为止的最大阶乘数n。(程序名由考生自定)。在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答题窗口。SET TALK OFFCLEARs=0n=3DO WHILE .T. t=1 FOR i=1 TO n t=t*i NEXT s=s+t IF s=680000 EXIT ENDIF _n=n+2_ ENDDO?nRETURN下面的程序是求1到2000之间的不能被3或5或7整除的整数之和.程序中有一处错误。(1) 输入原程序,记录运行结果,将结果填入答题窗口 处(程序名由考生自定)。(2) 更正程序中的错误,运行更正后的程序,记录运行结 果,将结果填入答题窗口内的处。SET TALK OFFCLEARI=0S=0DO WHILE I2000 I=I+1 DO CASE CASE INT(I/3)=I/3 LOOP CASE INT(I/5)=I/5 LOOP CASE INT(I/7)=I/7 LOOP OTHE EXIT &去掉该语句 ENDCASE S=S+IENDDO? SSET TALK ONRETURN求200，600间奇数之和。(程序名由考生自定)。在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答题窗口。set talk offs=0for i=200 to 600 if _i%2=0_ loop endif s=s+iendfor? sreturn下面的程序是求100到200间,同时满足除3余2和除5余3条件的数的个数. 程序中有一处错误。(1) 输入原程序,记录运行结果,将结果填入答题窗口 处(程序名由考生自定)。(2) 更正程序中的错误,运行更正后的程序,记录运行结 果,将结果填入答题窗口内的处。SET TALK OFFN=0I=200 &改为i=100DO WHILE I=200 IF MOD(I,3)=2.AND.MOD(I,5)=3 N=N+1 ENDIF I=I+1 ENDDO? NSET TALK ONRETURN求2，100间质数的个数。(程序名由考生自定)。在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答题窗口。set talk offflag=0n=0for i=2 to 100 flag=0 for j=2 to sqrt(i) if int(i/j)=i/j flag=1 exit endif endfor _if flag=0_ n=n+1 endifendfor? nset talk onreturn已知一个数列的前三个数是1,2,3,从第四个数起,每个数都是前三个数之和. 下面的程序是求出该数列的第35个数的.(1) 输入原程序,记录运行结果,将结果填入答题窗口 处(程序名由考生自定)。(2) 更正程序中的错误,运行更正后的程序,记录运行结 果,将结果填入答题窗口内的处。SET TALK OFFDIME A(35)A(1)=1A(2)=2A(3)=3I=4DO WHILE I=35 &改为i=35 A(I)=A(I-1)+A(I-2)+A(I-3) I=I+1ENDDO? A(35)SET TALK ONRETURN计算5元、2元和1元兑换50元的方法有多少种.(程序名由考生自定)。在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答题窗口.set talk offx=0five=0do while five=20 two=0 do while two=0 x=x+1 endif two=two+1 enddo _five=five+1_enddo?xset talk onreturn下列的程序是求S=12!+13!+14!的程序.程序中有一处错误。(1) 输入原程序,记录运行结果,将结果填入答题窗口 处(程序名由考生自定)。(2) 更正程序中的错误,运行更正后的程序,记录运行结 果,将结果填入答题窗口内的处。SET TALK OFFCLEARS=0I=12DO WHILE I=14 STORE 1 TO T,J DO WHILE J=5000 j=2 do while j=i-1 if int(i/j)=i/j exit endif j=j+1 enddo if j=i t=t+1 endif _i=i-1_enddo?t下面的程序是求在1,2,3,4,.,10这10个数中,任意选两个不同的数,求它们的和能被2整除的数的总对数.(注意: 象3+5和5+3认为是同一对数).程序中有一处错误。(1) 输入原程序,记录运行结果,将结果填入答题窗口 处(程序名由考生自定)。(2) 更正程序中的错误,运行更正后的程序,记录运行结 果,将结果填入答题窗口内的处。SET TALK OFF CLEARN=0I=1DO WHILE I=10 J=1 DO WHILE JI IF INT(I+J)/2)(I+J)/2 &改为= N=N+1 ENDIF J=J+1 ENDDO I=I+1ENDDO?NSET TALK ONRETURN编程求区间5000，9999中按递增顺序，第15大的素数.(程序名由考生自定)。在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答题窗口.set talk off i=9999t=0do while i=5000 j=2 do while j=i-1 if int(i/j)=i/j exit endif j=j+1 enddo if j=i t=t+1 if t=15 ?i endif endif _i=i-1_enddo下面的程序是求在1,2,3,4,.,10这10个数中,任意选两个不同的数,求它们的和能被3整除的数的总对数(注意: 象3+5和5+3认为是同一对数).程序中有一处错误。(1) 输入原程序,记录运行结果,将结果填入答题窗口 处(程序名由考生自定)。(2) 更正程序中的错误,运行更正后的程序,记录运行结 果,将结果填入答题窗口内的处。 SET TALK OFF CLEAR N=0 I=1 DO WHILE I=10 J=1 DO WHILE JI IF INT(I+J)/3)=(I+J)/3 N=N+1 ENDIF J=J+1 ENDDO I=I+J &改为i=i+1 ENDDO ?N SET TALK ON RETURN设S=1+1/2+1/3+.+1/N,N为正整数。编程求当算到1000项时S的值为多少?精确到小数点后两位。(程序名由考生自定)。在下列程序中填上缺少的语句或另外编写程序,运行程序,将结果填入答题窗口. set talk off clear i=1 s=0 do while i500 EXIT ENDIF STORE 3*X TO X ENDDO ?Y SET TALK ON RETURN设S=1+1/2+1/3+.+1/N,N为正整数。编程求使S不超过10的最大的N.(程序名由考生自定)。在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答题窗口. set talk off clear s=0 i=1 do while s=250止。程序中有一个错误。(1) 输入并运行该程序，将结果填入答题窗口的(程 序名由考生自定）。(2) 更正程序中的错误并运行程序，将结果填入答题窗 口的。 SET TALK OFF CLEAR s=0 i=1 DO WHILE .T. s=s+i i=i+1 &改为i=i+3 IF s=250 EXIT ENDIF ENDDO ?s RETURN计算S=1+4+7+10+.，直到s=250。求相加各数中最大的一个数。(1) 输入并运行该程序，将结果填入答题窗口的(程 序名由考生自定）。(2) 更正程序中的错误并运行程序，将结果填入答题窗 口的。 SET TALK OFF CLEAR s=0 i=1 DO WHILE .T. s=s+1 &改为s=s+i IF s=250 EXIT ENDIF i=i+3 ENDDO ?i RETURN下列程序求出所有能被17整除且不含重复数字的三位数的和。(程序名由考生自定)。在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答题窗口。 set talk off i=100 store 0 to t do while i=999 a=int(i/100) b=int(i-a*100)/10) c=mod(i,10) if _i%17=0 and a#b and b#c and a#c_ t=t+i endif i=i+1 enddo ?t return已知S1=1,S2=1+2,S3=1+2+3,.,SN=1+2+.+N,下面的程序是求S20到S80有多少能被17或35整除。程序有一处错误。(1)输入原程序,记录运行结果,将结果填入答题窗口处(程序名由考生自定)。(2)更正程序中的错误,运行更正后的程序,记录运行结果,将结果填入答题窗口内的处。SET TALK OFFI=20 N=0DO WHILE I=80 STORE 0 TO S J=1 DO WHILE J=25000。求最大的乘数k。(1) 输入并运行该程序，将结果填入答题窗口的(程 序名由考生自定）。(2) 更正程序中的错误并运行程序，将结果填入答题窗 口的。 SET TALK OFF CLEAR s=1 k=1 DO WHILE .T. s=s*k IF s=25000 EXIT ENDIF k=k+1 &改为k=k+4 ENDDO ?k RETURN计算5元、2元和1元兑换100元的方法有多少种(程序名由考生自定)。在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答题窗口。 set talk off x=0 five=0 do while five=20 two=0 do while two0_ x=x+1 endif two=two+1 enddo five=five+1 enddo ?x统计区间1000，9999内所有既能被3整除，且千位数字与个位数字之和为8的整数的个数。(程序名由考生自定)。在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答题窗口。set talk offt=0i=1000do while i=9999 if _i%3=0 and int(i/1000)+i%10=8_ t=t+1 endif i=i+1enddo?treturn下列程序为求出所有数字和为11且不含重复数字的三位自然数的个数。程序中有错误。 (1)输入原程序并运行,记录运行结果。(程序名由考生自定) (2)更正程序中的错误,运行更正后的程序,记录运行结果。set talk off t=0x=1do while x=9 y=1 do while y=9 z=1 do while z=100000的最小的整数N。程序中有错误。(1)输入原程序并运行,记录运行结果.(程序名由考生自定) (2)更正程序中的错误,运行更正后的程序,记录运行结果.set talk offs=0n=1do while s=100000 &改为s100000 s=s+n3 n=n+1enddo?n &改为n-1return下列的程序是求S=8!+9!+10!的程序.在下列程序中填上缺少的语句或另外编写程序，(程序名由考生自定）运行程序，将结果填入答题窗口。SET TALK OFFCLEARS=0I=8DO WHILE I=10 STORE 1 TO T,J DO WHILE J500 EXIT ENDIF _x=x*2_ENDDO?YSET TALK ONRETURN下列程序求满足：所有数字和为13的四位数的个数。程序中有错误。(1)输入原程序并运行,记录运行结果.(程序名由考生自定)(2)更正程序中的错误,运行更正后的程序,记录运行结果. set talk offt=0i=1000do while i=9999 j=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=13 &改为val(a)+val(b)+val(c)=13 t=t+1 endif i=i+1enddo ?treturn下面的程序是计算1*2*3*4*5.的积，要求其积大于10000后结束程序运行，并给出程序的运行结果。程序序有一处错误。(1)输入原程序,记录运行结果,将结果填入答题窗口处(程序名由考生定)。(2)更正程序中的错误,运行更正后的程序,记录运行结果,将结果填入答题窗口内的处。SET TALK OFFSTORE 1 TO X,YDO WHILE X10000 LOOP &改为exit ENDIFENDDO? YSET TALK ONRETURN求s=3!+5!+7!+.，直到s=28000为止。(程序名由考生自定)。在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答题窗口。SET TALK OFFCLEARs=0x=3DO WHILE .T. t=1 FOR _i=1 to x_ t=t*i NEXT s=s+t IF s=28000 EXIT ENDIF x=x+2ENDDO?sRETURN求s=2+(2+4)+(2+4+6)+(2+4+6+8)+.，求直到s=60000为止。(程序名由考生自定）在下列程序中填上缺少的语句或另外编写程序，运行程序，将结果填入答题窗口。 SET TALK OFF CLEAR s=0 x=2 DO WHILE .T. s0=0 FOR _i=2 to x step 2_ s0=s0+i NEXT s=s+s0 IF s=60000 EXIT ENDIF x=x+2 ENDDO ?s RETURN下列程序求不能被3整除且至少有一位数字为5 的三位数的个数。程序中有错误。(1