Visual_foxpro程序设计练习题答案.doc

如有什么不懂的地方可以问我，要是答案有什么需要改进的地方也可以告诉我。1、求10,1000内所有能被被7和9中至少一个数整除的整数之个数。答案：236clearn=0for a=10 to 1000 if mod(a,7)=0 n=n+1 else if mod(a,9)=0 n=n+1 endif endifendfor? n2、 求101,299内所有能被2整除但不能同时被3和5整除的整数之和。答案：18630clearn=0for a=101 to 299 if mod(a,2)=0 and mod(a,15)!=0 n=n+a endifendfor?n3、求100以内最大的自然数n，使得从1开始的连续n个自然数的倒数之和小于3.5。答案：18clearn=0a=0do while n3.5 a=a+1 n=n+1/aenddob=a-1?b4、求100以内最小的自然数n，使得从1开始的连续n个自然数的立方之和大于30000。答案：19clearn=0a=0do while n30000 a=a+1 n=n+a3enddo?a5、求出100以内使得算式1*2+2*3+n*(n+1)的值小于5000的最大的自然数n。答案：23clearn=0a=0do while n5000 a=a+1 n=n+a*(a+1)enddob=a-1?b6、求出100以内使得算式1/(1*1)+1/(2*2)+1/(n*n)的值小于1.6的最大的自然数n。答案：21clearn=0a=0do while n1.6 a=a+1 n=n+1/(a*a)enddob=a-1?b7、某国今年的人口总数为1亿，若以每年4%的速度递增，试求出至少要再过几年该国人口总数才会翻一翻。答案：18cleara=1n=0do while a2 n=n+1 a=a*(1+0.04)enddo?n8、设等比数列：1，3，9，27，。求使得此数列的前n项之和大于2345678的最小的自然数n。答案：14clearn=0s=0do while sb b=n endifendfor?b11、求出20677和42067的最大公约数。答案：713cleara=20677b=42067c=0for n=1 to 20677 if mod(a,n)=0 and mod(b,n)=0 and nc c=n endifendfor?c12、求1,100内能被6或8整除的所有自然数的平方根的和（将第1位小数四舍五入，结果只保留整数）。答案：162clearn=0for a=1 to 100 if mod(a,6)=0 or mod(a,8)=0 n=n+sqrt(a) endifendfor?n13、求所有符合算式ab*ba=2701的最小的两位数ab（即a*10+b）。其中a、b是19之间的一位整数。答案：37clearn=55for a=1 to 9 for b=1 to 9 if (a*10+b)*(b*10+a)=2701 and (a*10+b)n n=a*10+b endif endforendfor?n14、已知数列：1,2,4,7,11,16,，其规律是相邻两项之差依次是1,2,3,4,5,。试求出此数列中大于5000的最小的项。答案：5051clearn=1a=0do while n5000 a=a+1 n=n+aenddo?n15、已知数列f(n)：f(1)=1，f(2)=4，当n=3,4,5,时，f(n)=3*f(n-1)-f(n-2)。试求出100以内最小的自然数n使得此数列的第n项大于87654321。答案：2016、一球从100米高处落至平地，并且连续多次再反弹再落下，假设每次反弹的高度都是前一高度的3/4倍，试求出最大的自然数n，使得此球从开始下落至第n次着地时在垂直方向所经过的总路程不超过690米。答案：15clearn=0a=100b=100do while b690 a=a*3/4 b=b+2*a n=n+1enddo?n17、设有用26个字母表示的26个表达式：a=1，b=1/(a+1)，c=1/(b+2)，z=1/(y+25)。试求出这26个字母中其值小于0.1的字母个数。答案：16clearn=0b=1for a=0 to 25 b=1/(b+a) if b0.1 n=n+1 endifendfor?n18、回文指的是正读和反读都一样的一串字符，如121、1221。试求出1421,4112内所有回文数的和。答案：74250clearn=0for a=1421 to 4112 if int(a/1000)=mod(a,10) and int(mod(a,1000)/100)=int(mod(a,100)/10) n=n+a endifendfor?n19、求在100,999内所有不含数字0且各位数字之积被96整除的数之和。答案：26640clearn=0for a=100 to 999 x=mod(a,10) y=int(mod(a,100)/10) z=int(a/100) if x!=0 and y!=0 and mod(x*y*z,96)=0 n=n+a endifendfor?n20、将大于1000且能被4和6中至少一个数整除的所有整数按从小到大顺序排列后，求前面20个数之和。答案：20610cleara=1000n=0b=0do while n20 a=a+1 if mod(a,4)=0 n=n+1 b=b+a else if mod(a,6)=0 n=n+1 b=b+a endif endifenddo?b21、若一个自然数恰好是它的平方的末后几位数，则称此数为自同构数。如5和76都是自同构数，因为它们的平方分别是25和5776。求2,99999内所有自同构数之和。（提示：若x是m位同构数，则x的平方除以10的m次方的余数就是x）答案：101114clearn=0for a=2 to 99999 if mod(a2,10len(allt(str(a)=a n=n+a endifendfor?n22、求满足条件A*B=54321且使A+B的值最小的自然数对A、B中较小的一个数。（提示：设A=B，当A越大时A+B越小）答案：57clearn=0for a=1 to 54321 if mod(54321,a)=0 b=54321/a if a2 n=mod(a,2) if n=1 b=b+1 endif a=int(a/2)enddob=b+1?b25、对自然数A、B、C，若ABC且A*A+B*B=C*C，则称A,B,C为一组勾股弦数，其中A、B、C分别称为勾、股、弦。试求出弦为25000的勾股弦数组的个数。答案：526、求方程3x-7y=1在条件|x|100且|y|x x=n endif if ny y=n endif endif endfor endforendford=x-y?d34、找满足以下条件: X2+Y2=412 且X+Y之值最大的二个正整数X,Y, 求X+Y之值.答案：49clearn=0for x=1 to 41 for y=x to 41 if x2+y2=412 and n500 exit endifendfor?n40、一个数如果刚好与它所有的因子之和相等，则称该数为一个完数，如：6=1+2+3，则6就是一个完数。求出200到500之间所有的完数之和。答案：496clearm=0for a=200 to 500 n=0 for b=1 to a-1 if mod(a,b)=0 n=n+b endif endfor if n=a m=m+a endifendfor?m41、编写程序，求在5000以内能被17或者23整除的正整数的个数。答案：499clearn=0for a=1 to 5000 if mod(a,17)=0 or mod(a,23)=0 n=n+1 endifendfor?n42、编写程序，求四位数的偶数中，所有各位数字之和是15的倍数的数的个数。答案：306clearn=0for a=1000 to 9999 if mod(a,2)=0 b=int(a/1000) c=int(mod(a,1000)/100) d=int(mod(a,100)/10) e=mod(a,10) if mod(b+c+d+e,15)=0 n=n+1 endif endifendfor?n43、编写程序，计算在050的范围内有多少个数，其每位数的乘积大于每位数的和。答案：23clearn=0for a=0 to 50 b=int(a/10) c=mod(a,10) if b*cb+c n=n+1 endifendfor?n44、用一元纸币兑换一分、两分和五分的硬币，要求兑换硬币的总数为60枚，问共有多少种换法？(注：在兑换中，一分、两分或五分的硬币数可以为0枚)答案：11clearn=0for a=0 to 60 for b=0 to 50 for c=0 to 20 if a+2*b+5*c=100 and a+b+c=60 n=n+1 endif endfor endforendfor?n45、编写程序，求出100到500之间同时满足除5余4和除7余2条件的数的个数。答案：12clearn=0for a=100 to 500 if mod(a,5)=4 and mod(a,7)=2 n=n+1 endifendfor?n46、有5羊4犬3鸡2兔值钱1496，4羊2犬6鸡3兔值钱1175，3羊1犬7鸡5兔值钱958，2羊3犬5鸡1兔值钱861，求鸡值多少钱？答案：23clearfor a=1 to 293 for b=1 to 287for c=1 to 137 for d=1 to 191 if 5*a+4*b+3*c+2*d=1496 and 4*a+2*b+6*c+3*d=1175 and 3*a+b+7*c+5*d=958 and 2*a+3*b+5*c+d=861 ?aendfor endifendfor endforendfor47、编写程序，求出3到100之间的所有非偶数非素数的数之和。答案：1441clearm=0for a=3 to 100 if mod(a,2)!=0 n=0 for b=2 to a-1 if mod(a,b)=0 n=n+1 endif endfor if n0 m=m+a endif endifendfor?m48、有50个学生一起买小吃，共花钱200元，其中每个大学生花5元，每个中学生花3元，每个小学生花2元，问大、中、小学生的人数分配共有多少种不同的解（去掉某类学生为0的）？答案：8clearn=0for a=1 to 38 for b=1 to 49-a c=50-a-b if a*5+b*3+c*2=200 n=n+1 endif endforendfor?n49、编写程序，统计10009999之间的所有满足以下条件的四位数的个数。该数是一个完全平方数，且其第1、2位数字之和为10，第3、4位数字之积为18。答案：1clearn=0for a=1000 to 9999 b=int(a/1000) c=int(mod(a,1000)/100) d=int(mod(a,100)/10)