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

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+SQR