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

如有什么不懂的地方可以问我，要是答案有什么需要改进的地方也可以告诉我。 1、求[10,1000]内所有能被被7和9中至少一个数整除的整数之个数。 答案：236 clear n=0 for a=10 to 1000 if mod(a,7)=0 n=n+1 else if mod(a,9)=0 n=n+1 endif endif endfor ? n 求[101,299]内所有能被2整除但不能同时被3和5整除的整数之和。 答案：18630 clear n=0 for a=101 to 299 if mod(a,2)=0 and mod(a,15)!=0 n=n+a endif endfor ?n 3、求100以内最大的自然数n，使得从1开始的连续n个自然数的倒数之和小于3.5。 答案：18 clear n=0 a=0 do while n3.5 a=a+1 n=n+1/a enddo b=a-1 ?b 4、求100以内最小的自然数n，使得从1开始的连续n个自然数的立方之和大于30000。 答案：19 clear n=0 a=0 do while n30000 a=a+1 n=n+a^3 enddo ?a 5、求出100以内使得算式1*2+2*3+…+n*(n+1)的值小于5000的最大的自然数n。 答案：23 clear n=0 a=0 do while n5000 a=a+1 n=n+a*(a+1) enddo b=a-1 ?b 6、求出100以内使得算式1/(1*1)+1/(2*2)+…+1/(n*n)的值小于1.6的最大的自然数n。 答案：21 clear n=0 a=0 do while n1.6 a=a+1 n=n+1/(a*a) enddo b=a-1 ?b 7、某国今年的人口总数为1亿，若以每年4%的速度递增，试求出至少要再过几年该国人口总数才会翻一翻。 答案：18 clear a=1 n=0 do while a2 n=n+1 a=a*(1+0.04) enddo ?n 8、设等比数列：1，3，9，27，…。求使得此数列的前n项之和大于2345678的最小的自然数n。 答案：14 clear n=0 s=0 do while s2345678 n=n+1 a=3^(n-1) s=s+a enddo ?n 9、求出45678的所有非平凡因子（即除1和它本身以外的约数）中是奇数的因子个数。 答案：7 clear a=45678 b=0 for n=2 to 45677 if mod(a,n)=0 and mod(n,2)=1 b=b+1 endif endfor ?b 10、求出203267的所有真因子（即小于它本身的约数）中最大的因子数。 答案：6557 clear a=203267 b=0 for n=1 to 203266 if mod(a,n)=0 and nb b=n endif endfor ?b 11、求出20677和42067的最大公约数。 答案：713 clear a=20677 b=42067 c=0 for n=1 to 20677 if mod(a,n)=0 and mod(b,n)=0 and nc c=n endif endfor ?c 12、求[1,100]内能被6或8整除的所有自然数的平方根的和（将第1位小数四舍五入，结果只保留整数）。 答案：162 clear n=0 for a=1 to 100 if mod(a,6)=0 or mod(a,8)=0 n=n+sqrt(a) endif endfor ?n 13、求所有符合算式ab*ba=2701的最小的两位数ab（即a*10+b）。其中a、b是1~9之间的一位整数。 答案：37 clear n=55 for 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 endfor endfor ?n 14、已知数列：1,2,4,7,11,16,…，其规律是相邻两项之差依次是1,2,3,4,5,…。试求出此数列中大于5000的最小的项。 答案：5051 clear n=1 a=0 do while n5000 a=a+1 n=n+a enddo ?n 15、已知数列{f(n)}：f(1)=1，f(2)=4，当n=3,4,5,…时，f(n)=3*f(n-1)-f(n-2)。试求出100以内最小的自然数n使得