FoxPro程序设计题解精选96题.docx

1、FoxPro程序设计题解精选96题1.求1108所有整数的平方和并输出结果。#4257542.求1135的平方根的和并输出结果。（保留小数点两位）#1051.313.求s=1-1/2+1/3-1/4+1/5-1/6+1/99-1/100的值（按四舍五入方式精确到小数点后4位）#0.68824.求351,432之间所有既不能被3整除,又不能被8整除的整数的和。#184135.求1000以内，同时能被3和7整除的所有自然数之和的平方根。（按四舍五入方式精确到小数点后第二位）。#153.916.求1到1000之内能被7或11整除，但不能同时被7和11整除的所有整数的个数。#2087.求500以内（含

2、500）能被5或9整除的所有自然数的倒数之和。按四舍五入保留两位小数。#1.488.编程序求2+4+8+16+32+这样的数之和。如果累加数大于9000时，则程序终止并输出结果。#163829.编程序求出1-100以内的能被3整除的数的平方和。#11276110.编程序求出1-4000以内能被3或者11整除的数的个数。#157511.编程序求出1到4000之间的能被5整除的前若干个偶数之和，当和大于400时退出并输出结果。#45012.已知S1=1，S2=1+3，S3=1+3+5，S4=1+3+5+7，SN=1+3+5+7+（2N-1），N为正整数。编程求S1+S2+S3+S4+SN的值600

3、0的S的最小值。#816614.已知S1=1, S2=1+2, S3=1+2+4, S4=1+2+4+8,S5=1+2+4+8+16，编制一个程序求S=S1+S2+S3+S4+S5+S20的值。#209713015.已知S1=1, S2=1+3, S3=1+3+5, S4=1+3+5+7,S5=1+3+5+7+9，编制一个程序求S=S1+S2+S3+S4+S5+S20的值.#287016.已知S1=1，S2=1+2，S3=1+2+3，SN=1+2+n，求S20到S80之间有多少个数能被17或35整除。#1217.当n=20时，求S=1+(1+20.5)+(1+20.5+30.5)+(1+20.

4、5+30.5+n0.5)的值。要求：按四舍五入的方式精确到小数点后第二位。#534.1918.当n的值为25时，计算下列公式的值s=1+1/1!+1/2!+1/3!+1/n!要求：按四舍五入的方式精确到小数点后第四位。#2.718319.当n的值为50时，求S的值。S=1+1/(1+2)+1/(1+2+3)+1/(1+2+3+N)要求：按四舍五入的方式精确到小数点后第四位。#1.960820.老王和他的孙子年龄之差为60岁,都出生于20世纪, 两人的出生年份分别被3, 4, 5和6除, 余数均为1, 2, 3和4。问老王出生在哪一年?#191821.爱因斯坦走台阶:有一台阶,如果每次走两阶,最

5、后剩一阶;如果每次走三阶,最后剩两阶;如果每次走四阶,最后剩三阶;如果每次走五阶,最后剩四阶;如果每次走六阶,最后剩五阶;如果每次走七阶,刚好走完.求此第三小的台阶数是多少？#95922.从100米高度落下一球,每次落地后反弹高度为上一次下落高度的3/4,求该球第10次落地时,前后所经过的路径长度.#654.9523.设某国今年的国民生产总值为45600亿元,若今后每年以9%的增长率增长,计算多少年后能实现国民生产总值翻一番?#924.编写程序，求一正整数等差数列的前6项的和，该数列前四项之和是26，四项之积是880。#57 (笔算很容易！)25.编写程序，求一正整数等差数列的前五项的立方和，

6、该数列前四项之和是26、之积是880。#472026.今有5羊4犬3鸡2兔值钱1496，4羊2犬6鸡3兔值钱1175，3羊1犬7鸡5兔值钱958，2羊3犬5鸡1兔值钱861，求羊值多少钱？#177（、犬121、鸡23、兔29 ，四重循环编程选自量太在！）27.求方程X2-3*X+1=0在区间(0,1)内的解。要求：按四舍五入的方式精确到小数点后第二位。#0.3828.求方程X3-2X-5=0在区间1.5,2.5上的一个实根。 要求：按四舍五入的方式精确到小数点后第二位。#2.0929.自然数对是指两个自然数的和与差都是平方数，如8和17的和8+17=25与其差 17-8=9都是平方数，则称8和

7、17是自然数对（8，17）。假定（A，B）与（B，A）是同一个自然数对且假定A=B，求所有小于或等于100（即：A=100,B=100） 的自然数对中A-B之差的和。#50930.编程求取：从6开始的前6个同构数的和(若某数与其本身的平方数低位部分相等，则称之同构数，如：6，其平方数为36，则6为一个同构数)。#10484 （记住10000以内的同构数：1、5、6、25、76、376、625、9376）31.回文数是指正读和反读都一样的正整数。例如3773是回文数。求出1000，9999以内的回文数是6的倍数的回文数的个数。#1332.有一辆以固定速度行驶在高速公路上的汽车, 清晨司机看到里程

8、表上从左到右的读数和从右到左的读数是相同的, 这个数是95859, 7小时后，里程表又出现了一个新的对称数。设里程表为5位数字, 问这个新的对称数是什么?#9606933.所谓回文数是从左至右与从右至左读起来都是一样的数字，如：121是一个回文数。编写程序，求在100-900的范围内所有能被3整除的回文数的个数。#2634.已知正整数A,B(假定AB)，满足A*B=5432，求S=A+B的最小值。#15335.求满足A*B=718368，使A+B最小，且A,B（AB）为正整数的A的值。#67236.若某整数N的所有因子之和等于N的倍数，则N称为多因子完备数,如数28,其因子之和1+2+4+7+

9、14+28=56=2*28,28是多因子完备数。求1,200之间有多少个多因子完备数。#437.求在10，1000之间的所有完备数之和。各真因子之和（不包括自身）等于其本身的正整数称为完数。例如：6=1+2+3，6是完数。#52438.已知24有8个正整数因子(即:1,2,3,4,6,8,12,24)，而24正好被其因子个数8整除。求100,300之间能被其因子数目整除的数中最大的数。#29639.问100,200之间有奇数个不同因子的整数共有多少个？#540.已知：非等腰三角形最长边是60，其它两边的长度都是正整数，且三边之和能被3整除，试编程求取这类三角形的个数（注意：两边的长度交换构成的

10、三角形算作同一个三角形，如：其它两边的长度为30,40的三角形与长度为40,30的三角形视为同一个三角形）。#27141.有20个学生一起买小吃，共花钱50元，其中每个大学生花3元，每个中学生花2元，每个小学生花1元，问大、中、小学生的人数分配共有多少种不同的解（去掉某类学生为0的解）？#442.找满足以下条件: X2+Y2+Z2=252 且X+Y+Z之值最大的三个正整数X,Y,Z, 求X+Y+Z之值.#4343.把50元钱分成一元、二元和五元的纸币且纸币数共为20张的分法有多少种？（注：在兑换中一元、二元、五元的纸币数可以为0）。#444.求方程8x-5y=3,在|x|=150, |y| y

11、 z),则（x,y,z）称为方程的一个解。试求方程的整数解（包括负整数解）的个数。 #6247.若有三个正整数a、b、c满足a2+b2=c2，则a，b，c称为勾股数组，编一程序，问有多少个三个数均小于50（含50）的勾股数组(注意:a,b,c不能为0)。#4048.倒勾股数是满足公式： 1/A2+1/B2=1/C2 的一组正整数（A，B，C），例如，（156，65，60）是倒勾股数，因为：1/1562+1/652=1/602。假定ABC，求A，B，C之和小于100的倒勾股数有多少组？#249.编写程序，求共有几组I,j,k符合算式ijk+kji=1534,其中I,j,k是0,9之间的一个整数。

12、#250.设有一个12*12方阵A（I,j）,其每个元素的值为该元素下标的平方和, 求出该矩阵所有元素的累加和. (注:I,j从1开始)#1560051.分子分母为正整数，分子小于分母且分子分母无公因数的分数称为最简真分数。对于分数的分母取值范围为 50，90 时的最简真分数共有多少个.#773 (? 1726)52.某些分数的分子和分母都是二位正整数的真分数具有下列特点：如果将该分数的分子的两位数字相加作分子，而将该分数的分母的两位数字相加作分母，得到的新分子跟原分子相等。例如，63/84=（6+3）/（8+4）。试求所有具有这样特点的真分子（非约简真分数）中最大的分数的分子与分母之和。#1

13、87 (记住：本题满足条件的最大分数是88/99)53.求3-1000之间最大的五个素数之和。#491954.求500,2500之间按递增顺序的素数中的第25大的素数。 #230955.所谓素数是指这样的大于1的自然数，除1和它本身外不再有其它因子（整除它的数）。编写程序，计算从1981年开始到3000年为止，我们将遇到多少个素数年号。#13156.编程求区间500，2500中按递增顺序第25个素数。#65957.若两个连续的自然数的乘积减1后是素数，则称此两个连续自然数为友数对，该素数称为友素数。例如，由于 8*9-1=71， 因此，8与9是友数对，71是友素数。求50，150之间的第10个

14、友素数（按由小到大排列）。#442158.若两个素数之差为2，则称这两个素数为双胞胎数。求出200，1000之内有多少对双胞胎数。#2059.求5,500中相差为10的相邻素数对的对数。#3160.德国数学家哥德巴赫曾猜测：任何大于6的偶数都可以分解成两个素数的和。但有些偶数可以分解成多种素数对的和，如： 10=3+7，10=5+5，即10可以分解成两种不同的素数对。试求6744可以分解成多少种不同的素数对（注： A+B与B+A认为是相同素数对）#14461.梅森尼数是指能使2n-1为素数的数n，求1，21范围内有多少个梅森尼数？#762.梅森尼数是指能使2n-1为素数的数n，求1，21范围内

15、最大的梅素尼数？#1963.一个素数（设为p）依次从最高位去掉一位，二位，三位，若得到的各数仍都是素数(注：1不是素数)，且数p的各位数字均不为零，则称该数p为逆向超级素数。例如，617，17，7都是素数，因此617是逆向超级素数，但尽管503，03，3都是素数，但它不是逆向超级素数，因为它包含有零。试求100,999之间的所有逆向超级素数从小到大数的第10个素数是多少？#33764.已知：f(1)=1，f(2)=1/(1+f(1)，f(3)=1/(1+f(2),，f(n)=1/(1+f(n-1)，求f(50)。（按四舍五入的方式精确到小数点后第三位）。#0.61865.台劳展开式为：Sin

16、(X)=X/1!-X3/3!+X5/5!-X7/7!+，按台劳展开式计算当X取值为/5时Sin(X)的近似值（前20项）。要求：按四舍五入的方式精确到小数点后第二位。#0.5966.一只猴子一天从山上摘来一袋桃子，从这天开始，它每天都要把袋中的桃子平分为二堆，吃掉其中的一堆，然后再从剩下的桃中拿出一个解谗，等到第10天，它发现袋中只有一只桃可吃啦，问猴子总共摘了多少桃。#153467.某一正整数，进行递减，第一次减去该数的一半再减一，以后每次都减去前一次剩下的数后再减一，直到第十次减后，剩。求该数。#153468.数列:e(1)=e(2)=1,e(n)=(n-1)e(n-1)+(n-2)e(n

17、-2),(n2),称为e数列，每一个e(n),(n=1,2,)称为e数。求1，30000之内e数的个数。#869.数列:e(1)=e(2)=1,e(n)=(n-1)e(n-1)+(n-2)e(n-2),(n2),称为e数列，每一个e(n),(n=1,2,)称为e数。求1，30000之内最大的e数。#1668770.已知Fibonacci数列f(i)：1,1,2,3,5,8,试求F(1)+F(2)+F(50)值。#3295128009871.已知Fibonacci数列f(i)：1,1,2,3,5,8,试求F(1)+F(3)+F(5)+F(49)值。#1258626902572.已知Fibonac

18、ci数列f(i)：1,1,2,3,5,8,试求F(2)+F(4)+F(6)+F(50)值。#2036501107373.已知Fibonacci数列f(i)：1,1,2,3,5,8,试求F(45)值。#113490317074.斐波那契数列的前二项是1，1，以后每一项都是前面两项之和。求10000000以内有多少个斐波那契数？#3575.斐波那契数列的前二项是1，1，其后每一项都是前面两项之和，求10000000以内最大的斐波那契数？#922746576.编程求取：S=1/2+2/3+3/5+5/8+的前30项的和。要求：按四舍五入方式精确到小数点后第二位。#18.4677.编程求取：S=1/2

19、+3/5+8/13+21/34的前30项的和。要求：按四舍五入方式精确到小数点后第二位。78.一个数列，它的头三个数为0，0，1，以后的每个数都是其前三个数的和，求此数列的前30项之和。#1894774479.已知:f(0)=f(1)=1,f(2)=0,f(n)=f(n-1)-2f(n-2)+f(n-3),(n2),求f(0)到f(50)中的最大值.#59832580.已知:f(0)=f(1)=1,f(2)=0,f(n)=f(n-1)-2f(n-2)+f(n-3),(n2).求f(0)到f(50)中的最小值.#-28895981.已知f(n)=f(n-1)+2f(n-2)-5f(n-3),f(

20、0)=1,f(1)=2,f(2)=3,求f(0)+f(1)+f(30)。#-75087482.有一个数列，它的头三个数为1，2，3，以后的每个数都是其前三个数的和，求此数列从第几项起大于或等于3000。#1583.50个小学生按至50序号顺时针围成一圈，做出局游戏，老师站在圈外顺时针从第一个人数起，每数到5时，这人从圈里出来，继续数1,2,3,4,5,数到第5个学生时，他就出局，已出局的位置不再参加计数，直至所有的学生出局为止，问最后一个出局的学生序号是多少号。#1985.计算y=1+2/3+3/5+4/7+n/(2*n-1)(n=50), 要求：按四舍五入的方式精确到小数点后第二位。#26.

21、4786.当n=100时，计算输出下列多项式的值S=(1-1/2)+(1/3-1/4)+(1/(2n-1)-1/(2n)按四舍五入的方式精确到小数点后第三位。#0.69187.设S=1+1/2+1/3+1/n，n为正整数，求使S不超过10（S10）的最大的n。#1236788.求S=1*2+2*3+3*4+4*5+n*(n+1)，当和大于2000001时退出程序，求此时的n的值。#18189.求Y=1-1/2+1/3-1/4+.+1/(2*n-1)-1/(2*n)前30项之和。要求：按四舍五入精确到小数点后第二位。#0.6890.求级数1/(1*2)+1/(2*3)+.+1/(N*(N+1)的

22、和的近似值,直到级数中有一项的值小于1E4为止. 要求：按四舍五入的方式精确到小数点后第二位。#0.9991.水仙花数是指这样的数，其各位数字的立方和等于该数本身，如:153=13+53+33。编写程序，计算从100年开始到2000年为止，共有多少个年号是水仙花数年号。#492.有一个三位数满足下列条件: (1)此三位数的三位数字各不相同; (2)此三位数等于它的各位数字的立方和。试求这种三位数共有多少个？#493.设有6个十进制数字a,b,c,d,f,e，求满足abcdfe=fdcba条件的五位数abcdf中(a0,e0,e1)最大的一个。#2197894.求1，1000之间能被3整除，且至

23、少有一位上的数是5的所有数之和。#4650995.求1，999之间能被3整除，且至少有一位数字是5的所有正整数的个数。#9196.求100,10000中其各位数字之和能被7整除的数的个数。 #1408proc 1 * 求1108所有整数的平方和并输出结果。#425754set talk offclears=0for x=1 to 108 s=s+x*xendfor? sset talk onreturnproc 2 * 求1135的平方根的和并输出结果。（保留小数点两位）#1051.31set talk offclears=0for x=1 to 135 s=s+sqrt(x)endfor?

24、sset talk onreturnproc 3 * 求s=1-1/2+1/3-1/4+1/5-1/6+1/99-1/100的值（按四舍五入方式精确到小数点后4位）#0.6882*解法1set talk offclears=0for n=1 to 100 s=s+(-1)(n+1)/nendfor? sset talk onreturn*解法2set talk offclears=0for n=1 to 100 if mod(n,2)=1 s=s+1/n else s=s-1/n endifendfor? sset talk onreturn*解法3set talk offclears=0fo

25、r n=1 to 100 step 2 s=s+1/n-1/(n+1)endfor? sset talk onreturnproc 4 * 求351,432之间所有既不能被3整除,又不能被8整除的整数的和。#18413set talk offclears=0for x=351 to 432 if mod(x,3)0 and mod(x,8)0 s=s+x endifendfor? sset talk onreturnproc 5 * 求1000以内，同时能被3和7整除的所有自然数之和的平方根。（按四舍五入方式精确到小数点后第二位）。#153.91set talk offclears=0for

26、x=1 to 1000 if mod(x,3)=0 and mod(x,7)=0 s=s+x endifendfor? sqrt(s)set talk onreturnproc 6 * 求1到1000之内能被7或11整除，但不能同时被7和11整除的所有整数的个数。#208set talk offclearn=0for x=1 to 1000 if (mod(x,7)=0 or mod(x,11)=0) and not(mod(x,7)=0 and mod(x,11)=0) n=n+1 endifendfor? nset talk onreturnproc 7 * 求500以内（含500）能被5

27、或9整除的所有自然数的倒数之和。按四舍五入保留两位小数。#1.48set talk offclears=0for x=1 to 500 if mod(x,5)=0 or mod(x,9)=0 s=s+1/x endifendfor? round(s,2)set talk onreturnproc 8 * 编程序求2+4+8+16+32+这样的数之和。如果累加数大于9000时，则程序终止并输出结果。#16382set talk offclearx=1s=0for n=1 to 1000 x=x*2 s=s+x if s9000 exit endifendfor? sset talk onretu

28、rnproc 9 * 编程序求出1-100以内的能被3整除的数的平方和。#112761set talk offclears=0for x=3 to 100 step 3 s=s+x*xendfor? sset talk onreturnproc 10 * 编程序求出1-4000以内能被3或者11整除的数的个数。#1575set talk offclearn=0for x=1 to 4000 if mod(x,3)=0 or mod(x,11)=0 n=n+1 endifendfor? nset talk onreturnproc 11 * 编程序求出1到4000之间的能被5整除的前若干个偶数之

29、和，当和大于400时退出并输出结果。#450set talk offclears=0for x=10 to 4000 step 10 s=s+x if s400 exit endifendfor? sset talk onreturnproc 12 * S1=1，S2=1+3，S3=1+3+5，S4=1+3+5+7，SN=1+3+5+7+(2N-1)，N为正整数。编程求S1+S2+S3+S4+SN的值=20000 exit endifendfor? n-1set talk onreturnproc 13 * 已知S=2+(2+4)+(2+4+8)+(2+4+8+16)+，求S6000的S的最小值。#8166*解法1set talk offclearx=1s=0t=0for n=1 to 1000 x=x*2 t=t+x s=s+t if s6000 exit endifendfor? sset talk onreturn*解法2set talk offclearx=1s=0t=0do while s=6000 x=x*2 t=t+x s=s+tenddo? sset talk onreturnpro