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

2002年湖南省等级考试一级编程题精选 1 编程序求出1-200以内的能被3或7整除的数的个数和它们的平方和。 (答案： 85 1134490 ) CLEAR S=0 N=0 FOR I=1 TO 200 IF MOD(I,3)=0 OR I%7=0 S=S+I*I N=N+1 ENDIF NEXT ?S=,S,N=,N RETURN 2 编写程序，求所有符合算式ij*ji=1300的最大的和最小的数ij（即i*10+j），共有多少组这样的i,j。其中i、j是1~9之间的一位整数。 (答案： 52 25 2 ) CLEAR MIN=0 N=0 FOR 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 NEXT NEXT ?MIN=,MIN,MAX=,MAX,N=,N RETURN 3 编程序求1~99的平方根的和并输出结果。（保留小数点两位） (答案： 661.46 ) CLEAR S=0 FOR I=1 TO 99 S=S+SQRT(I) NEXT ?S=,S RETURN 4 编写程序，求在四位数的奇数中，所有各位数字之和是25的倍数的数的和。 (答案： 1298515 ) CLEAR S=0 FOR 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 ENDIF NEXT ?S=,S RETURN 5 (1)编程序求出1到5000之间的能被5整除的前若干个偶数之和，当和大于500时程序退出。 (答案： 550 ) CLEAR S=0 FOR 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 ENDIF NEXT ?S=,S RETURN (2)编程序求出 2+4+8+16+32+…这样的数之和。如果累加数大于500时，则程序终止并输出结果。 (答案： 510 ) S=0 I=2 DO WHILE .T. S=S+I IF S500 EXIT ENDIF I=I*2 ENDDO ?S=,S 6 已知abc，且a+b+c100，求满足条件1/(a^2)+1/(b^2)=1/(c^2)的共有多少组。 (答案： 2 ) CLEAR N=0 FOR C=0 TO 100 FOR B=C+1 TO 100 FOR A=B+1 TO 100 IF (A^2+B^2)*C^2=A^2*B^2 AND A+B+C100 由于精度的影响，须将条件转化 N=N+1 ENDIF NEXT NEXT NEXT ?N=,N RETURN 7 一个数如果刚好与它所有的因子之和相等，则称该数为一个“完数”，如：6=1+2+3，则6就是一个完数。求出1000以内的完数之和，完数的个数。 (答案： 530 3 ) CLEAR S=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 ENDIF NEXT ?S=,S,N=,N RETURN 8 已知一个数列的前3个数为0，0，1，以后每个数为前3个数的和，编程序求此数列的第36个数。 (答案： 334745777 ) CLEAR DIME A(36) STORE 0 TO A(1),A(2) A(3)=1 FOR I=4 TO 36 A(I)=A(I-1)+A(I-2)+A(I-3) NEXT ?A(36)=,A(36) RETURN 9 编写程序，计算在0至50的范围内有多少个数，其每位数的乘积大于每位数的和。 (答案： 23 ) CLEAR N=0 FOR I=