Visualfoxpro程序设计练习题及答案

1、visual foxpro程序设计练习题1、 求10,1000 内所有能被被7 和 9 中至少一个数整除的整数之个数。答案： 236 n=0 for i=10 to 1000 if mod(i,7)=0 or mod(i,9)=0 n=n+1 endi endf ?n 2、 求101,299 内所有能被2 整除但不能同时被3 和 5 整除的整数之和。答案： 18630 s=0 for i=101 to 299 if mod(i,2)=0 and not (mod(i,3)=0 and mod(i,5)=0) s=s+i endi endf ?s 3、求 100 以内最大的自然数n，使得从1 开

2、始的连续n 个自然数的倒数之和小于3.5。答案： 18 s=0 for i=1 to 100 s=s+1/i if s=3.5 exit endi endf ?i-1 4、求 100 以内最小的自然数n，使得从1 开始的连续n 个自然数的立方之和大于30000。答案： 25 s=0 for i=1 to 100 s=s+i3 if s30000 exit endi endf ?i 5、求出 100 以内使得算式1*2+2*3+ , +n*(n+1) 的值小于5000 的最大的自然数n。答案： 23 s=0 for i=1 to 100 s=s+i*(i+1) if s=5000 exit en

3、di endf ?i-1 6、求出 100 以内使得算式1/(1*1)+1/(2*2)+ ,+1/(n*n) 的值小于1.6 的最大的自然数n。答案： 21 s=0 for i=1 to 100 s=s+1/i2 if s=1.6 exit endi endf ?i-1 7、某国今年的人口总数为1 亿，若以每年4%的速度递增，试求出至少要再过几年该国人口总数才会翻一翻。答案： 18 n=0 x=1 do while x2 x=x*(1+0.04) n=n+1 enddo ?n 8、设等比数列：1，3，9，27， , 。求使得此数列的前n项之和大于2345678 的最小的自然数 n。答案： 14

4、 s=0 n=0 do while s=2345678 s=s+3n n=n+1 enddo ?n 9、求出 45678 的所有非平凡因子（即除1 和它本身以外的约数）中是奇数的因子个数。答案： 7 n=0 s=45678 for i=3 to 22839 step 2 if mod(s,i)=0 n=n+1 endif endfor ?n 10、求出 203267 的所有真因子（即小于它本身的约数）中最大的因子数。答案： 6557 s=203267 for i=1 to int(203267/3) if mod(s,i)=0 n=i endif endfor ?n 11、求出 20677 和

5、 42067 的最大公约数。答案： 713 for i=20677 to 1 step -1 if mod(20677,i)=0 and mod(42067,i)=0 exit endif endfor ?i 12、求前 1,100 内能被 6 或 8 整除的所有自然数的平方根的和（将第 1 位小数四舍五入，结果只保留整数） 。答案： 162 s=0 for i=1 to 100 if mod(i,6)=0 or mod(i,8)=0 s=s+sqrt(i) endif endfor ?round(s,0) 13、求所有符合算式ab*ba=2701 的最小的两位数ab（即 a*10+b ） 。

6、其中 a、b 是 19 之间的一位整数。答案： 37 for a=1 to 9 for b=1 to 9 if (a*10+b)*(b*10+a)=2701 ?a*10+b return endif endfor endfor 14、已知数列：1,2,4,7,11,16, ，其规律是相邻两项之差依次是1,2,3,4,5, 。试求出此数列中大于 5000 的最小的项。答案： 5051 a=1 n=1 do while a5000 a=a+n n=n+1 enddo ?a 15、已知数列 f(n) ：f(1)=1 ，f(2)=4 ，当 n=3,4,5, 时， f(n)=3*f(n-1)-f(n-2

7、)。试求出100 以内最小的自然数n 使得此数列的第n 项大于 87654321。答案： 20 dimension f(100) f(1)=1 f(2)=4 n=2 do while f(n) 87654321 n=n+1 f(n)=3*f(n-1)-f(n-2) enddo ?n 16、一球从 100 米高处落至平地，并且连续多次再反弹再落下，假设每次反弹的高度都是前一高度的3/4 倍，试求出最大的自然数n，使得此球从开始下落至第n 次着地时在垂直方向所经过的总路程不超过690 米。答案： 15 h=100 s=100 n=1 do while s690 h=h*3/4 s=s+2*h n=

8、n+1 enddo ?n-1 17、设有用26 个字母表示的26 个表达式： a=1，b=1/(a+1)，c=1/(b+2) ， , ， z=1/(y+25) 。试求出这26 个字母中其值小于0.1 的字母个数。答案： 16 a=1 n=0 for i=1 to 25 a=1/(a+i) if a0.1 n=n+1 endif endfor ?n 18、回文指的是正读和反读都一样的一串字符，如121、1221。试求出 1421,4112内所有回文数的和。答案： 74250 s=0 for i=1421 to 4112 if int(i/1000)=i%10 and int(i/100)%10=

9、 int(i%100/10) s=s+i endif endfor ?s 19、求在 100,999内所有不含数字0 且各位数字之积被96 整除的数之和。答案： 26640 s=0 for a=1 to 9 for b=1 to 9 for c=1 to 9 if(mod(a*b*c,96)=0) s=s+a*100+b*10+c endi endf endf endf ?s 20、将大于1000 且能被 4 和 6 中至少一个数整除的所有整数按从小到大顺序排列后，求前面 20 个数之和。答案： 20610 a=1001 n=0 s=0 do while n20 if mod(a,4)=0 o

10、r mod(a,6)=0 s=s+a n=n+1 endif a=a+1 enddo ?s 21、若一个自然数恰好是它的平方的末后几位数，则称此数为自同构数。如5 和 76 都是自同构数，因为它们的平方分别是25 和 5776。求2,99999 内所有自同构数之和。 （提示：若x是 m 位同构数，则x 的平方除以10 的 m 次方的余数就是x）答案： 101114 s=0 for i=2 to 999999 if mod(i*i,10)=i or mod(i*i,100)=i or mod(i*i,1000)=i or mod(i*i,10000)=i or mod(i*i,100000)=i

11、 s=s+i endif endfor ?s 22、求满足条件a*b=54321 且使 a+b 的值最小的自然数对a、b 中较小的一个数。 （提示：设 a=b ，当 a 越大时 a+b 越小）答案： 57 s1=54322 for i=1 to int(sqrt(54321) if(54321%i=0 ) s=i+54321/i if(s0 if(c%2=1) n=n+1 endif c=int(c/2) enddo ?n 25、对自然数a、b、c，若 abc 且 a*a+b*b=c*c，则称 a,b,c 为一组勾股弦数，其中 a、b、 c 分别称为勾、股、弦。试求出弦为25000 的勾股弦数

12、组的个数。答案： 5 n=0 for b=12500 to 25000 for a=1 to b-1 if a*a+b*b=25000*25000 n=n+1 endif endfor endfor ?n 26、求方程3x-7y=1 在条件 |x|100 且|y|75364321 exit endif endfor ?n 28、求 100200 内的所有素数的个数。 （素质是指只能被1 和本身整除的数）答案： 21 n=0 for i=100 to 200 for j=2 to i-1 if(i%j=0) exit endif endfor if j=i n=n+1 endif endfor

13、?n 29、求 100010000 内的第 50 个素数。（素质是指只能被1 和本身整除的数）答案： 1361 n=0 for i=1000 to 10000 for j=2 to i-1 if(i%j=0) exit endif endfor if j=i n=n+1 endif if n=50 exit endif endfor ?i 30、编写程序，计算10000 以内有多少个这样的数，其个位数为6 且该数能被9 整除。答案： 111 n=0 for i=1 to 10000 if i%10=6 and i%9=0 n=n+1 endif endfor ?n 31、设某四位数的各位数字的

14、平方和等于100，问共有多少个这种四位数？答案： 49 n=0 for i=1000 to 9999 a=int(i/1000) b=int(i/100)%10 c=int(i/10)%10 d=i%10 if a2+b2+c2+d2=100 n=n+1 endif endfor ?n 32、把一张一元钞票,换成一分、二分和五分硬币,每种至少11 枚,问有多少种方案? 答案： 13 n=0 for a=11 to 20 for b=11 to 50 for c=11 to 100 if a*5+b*2+c=100 n=n+1 endif endfor endfor endfor ?n 33、把

15、一张一元钞票,换成一分、二分和五分硬币,每种至少1 枚 ,问兑换后硬币总数最多的与硬币总数最少的枚数之差是多少? 答案： 73 max=3 min=300 for a=1 to 20 for b=1 to 50 for c=1 to 100 if a*5+b*2+c=100 s=a+b+c if(smax) max=s endif if(smin) min=s endif endif endfor endfor endfor ?max-min 34、找满足以下条件: x2+y2=412 且 x+y 之值最大的二个正整数x,y, 求 x+y 之值 . 答案： 49 max=41 for x=1

16、to 41 for y=x to 41 if x*x+y*y=41*41 and max500 exit endif endif endfor ?s 40、一个数如果刚好与它所有的因子之和相等，则称该数为一个完数 ，如： 6=1+2+3，则6 就是一个完数。求出200 到 500 之间所有的完数之和。答案： 496 sum=0 for i=200 to 500 s=0 for j=1 to i-1 if i%j=0 s=s+j endif endfor if s=i sum=sum+i endif endfor ?sum 41、编写程序，求在5000 以内能被 17 或者 23 整除的正整数的

17、个数。答案： 499 n=0 for i=1 to 5000 if i%17=0 or i%23=0 n=n+1 endif endfor ?n 42、编写程序，求四位数的偶数中，所有各位数字之和是15 的倍数的数的个数。答案： 306 n=0 for i=1000 to 9999 step 2 a=int(i/1000) b=int(i/100)%10 c=int(i/10)%10 d=i%10 if (a+b+c+d)%15=0 n=n+1 endif endfor ?n 43、编写程序，计算在050 的范围内有多少个数，其每位数的乘积大于每位数的和。答案： 23 n=0 for i=0

18、to 50 a=int(i/10) b=i%10 if a*ba+b n=n+1 endif endfor ?n 44、用一元纸币兑换一分、两分和五分的硬币，要求兑换硬币的总数为60 枚，问共有多少种换法？ (注：在兑换中，一分、两分或五分的硬币数可以为0 枚) 答案： 11 n=0 for a=0 to 20 for b=0 to 50 c=60-a-b if a*5+b*2+c=100 n=n+1 endif endfor endfor ?n 45、编写程序，求出100 到 500 之间同时满足除5 余 4 和除 7 余 2 条件的数的个数。答案： 12 n=0 for i=100 to

19、500 if i%5=4 and i%7=2 n=n+1 endif endfor ?n 46、有 5 羊 4 犬 3 鸡 2 兔值钱 1496，4 羊 2 犬 6 鸡 3 兔值钱 1175，3 羊 1 犬 7 鸡 5 兔值钱958，2 羊 3 犬 5 鸡 1 兔值钱 861，求鸡值多少钱？答案： 23 for a=1 to 300 for b=1 to 300 for c=1 to 170 d=861-2*a-3*b-5*c if 4*a+2*b+6*c+3*d=1175 and 3*a+b+7*c+5*d=958 and 5*a+4*b+3*c+2*d=1496 ?c return endif endfor endfor endfor47、编写程序，求出3 到 100 之间的所有非偶数非素数的数之和。答案： 1441 s=0 for i=3 to 100 step 2 for j=2 to i-1 if i%j=