visual_foxpro程序设计练习题答案

《visual_foxpro程序设计练习题答案》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、如有什么不懂的地方可以问我，要是答案有什么需要改进的地方也可以告诉我。1、求[10,1000]内所有能被被7和9中至少一个数整除的整数之个数。答案：236clearn=0fora=10to1000ifmod(a,7)=0n=n+1elseifmod(a,9)=0n=n+1endifendifendfor?n2、求[101,299]内所有能被2整除但不能同时被3和5整除的整数之和。答案：18630clearn=0fora=101to299ifmod(a,2)=0andmod(a,15)!=0n=n+aendifendfor?n3、求100以

2、内最大的自然数n，使得从1开始的连续n个自然数的倒数之和小于3.5。答案：18clearn=0a=0dowhilen<3.5a=a+1n=n+1/aenddob=a-1?b4、求100以内最小的自然数n，使得从1开始的连续n个自然数的立方之和大于30000。答案：19clearn=0a=0dowhilen<30000a=a+1n=n+a^3enddo?a5、求出100以内使得算式1*2+2*3+…+n*(n+1)的值小于5000的最大的自然数n。答案：23clearn=0a=0dowhilen<5000a=a+1n=n+a*(a+1)en

3、ddob=a-1?b6、求出100以内使得算式1/(1*1)+1/(2*2)+…+1/(n*n)的值小于1.6的最大的自然数n。答案：21clearn=0a=0dowhilen<1.6a=a+1n=n+1/(a*a)enddob=a-1?b7、某国今年的人口总数为1亿，若以每年4%的速度递增，试求出至少要再过几年该国人口总数才会翻一翻。答案：18cleara=1n=0dowhilea<2n=n+1a=a*(1+0.04)enddo?n8、设等比数列：1，3，9，27，…。求使得此数列的前n项之和大于2345678的最小的自然数n。答案：1

4、4clearn=0s=0dowhiles<2345678n=n+1a=3^(n-1)s=s+aenddo?n9、求出45678的所有非平凡因子（即除1和它本身以外的约数）中是奇数的因子个数。答案：7cleara=45678b=0forn=2to45677ifmod(a,n)=0andmod(n,2)=1b=b+1endifendfor?b10、求出203267的所有真因子（即小于它本身的约数）中最大的因子数。答案：6557cleara=203267b=0forn=1to203266ifmod(a,n)=0andn>bb=nendifend

5、for?b11、求出20677和42067的最大公约数。答案：713cleara=20677b=42067c=0forn=1to20677ifmod(a,n)=0andmod(b,n)=0andn>cc=nendifendfor?c12、求[1,100]内能被6或8整除的所有自然数的平方根的和（将第1位小数四舍五入，结果只保留整数）。答案：162clearn=0fora=1to100ifmod(a,6)=0ormod(a,8)=0n=n+sqrt(a)endifendfor?n13、求所有符合算式ab*ba=2701的最小的两位数ab（即

6、a*10+b）。其中a、b是1~9之间的一位整数。答案：37clearn=55fora=1to9forb=1to9if(a*10+b)*(b*10+a)=2701and(a*10+b)

7、5,…时，f(n)=3*f(n-1)-f(n-2)。试求出100以内最小的自然数n使得此数列的第n项大于87654321。答案：2016、一球从100米高处落至平地，并且连续多次再反弹再落下，假设每次反弹的高度都是前一高度的3/4倍，试求出最大的自然数n，使得此球从开始下落至第n次着地时在垂直方向所经过的总路程不超过690米。答案：15clearn=0a=100b=100dowhileb<690a=a*3/4b=b+2*an=n+1enddo?n17、设有用26个字母表示的26个表达式：a=1，b=1/(a+1)，c=1/(b+2)，…，

8、z=1/(y+25)。试求出这26个字母中其值小于0.1的字母个数。答案：16clearn=0b=1fora=0to25b=1/(b+a)ifb<0.1n=n+1endifendfor?n18