FoxPro程序设计题解精选96题Word格式文档下载.docx
《FoxPro程序设计题解精选96题Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《FoxPro程序设计题解精选96题Word格式文档下载.docx（82页珍藏版）》请在冰点文库上搜索。
17.当n=20时，求S=1+（1+2^0.5）+（1+2^0.5+3^0.5）+…+（1+2^0.5+3^0.5+…+n^0.5）的值。
要求：
按四舍五入的方式精确到小数点后第二位。
#534.19
18.当n的值为25时，计算下列公式的值s=1+1/1!
+1/2!
+1/3!
+…+1/n!
按四舍五入的方式精确到小数点后第四位。
#2.7183
19.当n的值为50时，求S的值。
S=1+1/（1+2）+1/（1+2+3）+…+1/（1+2+3+…+N）要求：
#1.9608
20.老王和他的孙子年龄之差为60岁,都出生于20世纪,两人的出生年份分别被3,4,5和6除,余数均为1,2,3和4。
问老王出生在哪一年?
#1918
21.爱因斯坦走台阶:
有一台阶,如果每次走两阶,最后剩一阶;
如果每次走三阶,最后剩两阶;
如果每次走四阶,最后剩三阶;
如果每次走五阶,最后剩四阶;
如果每次走六阶,最后剩五阶;
如果每次走七阶,刚好走完.求此第三小的台阶数是多少？
#959
22.从100米高度落下一球,每次落地后反弹高度为上一次下落高度的3/4,求该球第10次落地时,前后所经过的路径长度.#654.95
23.设某国今年的国民生产总值为45600亿元,若今后每年以9%的增长率增长,计算多少年后能实现国民生产总值翻一番?
#9
24.编写程序，求一正整数等差数列的前6项的和，该数列前四项之和是26，四项之积是880。
#57（笔算很容易！
）
25.编写程序，求一正整数等差数列的前五项的立方和，该数列前四项之和是26、之积是880。
#4720
26.今有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.求方程X^2-3*X+1=0在区间（0,1）内的解。
#0.38
28.求方程X^3-2X-5=0在区间[1.5,2.5]上的一个实根。
要求：
#2.09
29.自然数对是指两个自然数的和与差都是平方数，如8和17的和8+17=25与其差17-8=9都是平方数，则称8和17是自然数对（8，17）。
假定（A，B）与（B，A）是同一个自然数对且假定A>
=B，求所有小于或等于100（即：
A<
=100,B<
=100）的自然数对中A-B之差的和。
#509
30.编程求取：
从6开始的前6个同构数的和（若某数与其本身的平方数低位部分相等，则称之同构数，如：
6，其平方数为36，则6为一个同构数）。
#10484（记住10000以内的同构数：
1、5、6、25、76、376、625、9376）
31.回文数是指正读和反读都一样的正整数。
例如3773是回文数。
求出[1000，9999]以内的回文数是6的倍数的回文数的个数。
#13
32.有一辆以固定速度行驶在高速公路上的汽车,清晨司机看到里程表上从左到右的读数和从右到左的读数是相同的,这个数是95859,7小时后，里程表又出现了一个新的对称数。
设里程表为5位数字,问这个新的对称数是什么?
#96069
33.所谓回文数是从左至右与从右至左读起来都是一样的数字，如：
121是一个回文数。
编写程序，求在100-900的范围内所有能被3整除的回文数的个数。
#26
34.已知正整数A,B（假定A<
B），满足A*B=5432，求S=A+B的最小值。
#153
35.求满足A*B=718368，使A+B最小，且A,B（A<
B）为正整数的A的值。
#672
36.若某整数N的所有因子之和等于N的倍数，则N称为多因子完备数,如数28,其因子之和1+2+4+7+14+28=56=2*28,28是多因子完备数。
求[1,200]之间有多少个多因子完备数。
#4
37.求在[10，1000]之间的所有完备数之和。
各真因子之和（不包括自身）等于其本身的正整数称为完数。
例如：
6=1+2+3，6是完数。
#524
38.已知24有8个正整数因子（即:
1,2,3,4,6,8,12,24），而24正好被其因子个数8整除。
求[100,300]之间能被其因子数目整除的数中最大的数。
#296
39.问[100,200]之间有奇数个不同因子的整数共有多少个？
#5
40.已知：
非等腰三角形最长边是60，其它两边的长度都是正整数，且三边之和能被3整除，试编程求取这类三角形的个数（注意：
两边的长度交换构成的三角形算作同一个三角形，如：
其它两边的长度为30,40的三角形与长度为40,30的三角形视为同一个三角形）。
#271
41.有20个学生一起买小吃，共花钱50元，其中每个大学生花3元，每个中学生花2元，每个小学生花1元，问大、中、小学生的人数分配共有多少种不同的解（去掉某类学生为0的解）？
42.找满足以下条件:
X^2+Y^2+Z^2=25^2且X+Y+Z之值最大的三个正整数X,Y,Z,求X+Y+Z之值.#43
43.把50元钱分成一元、二元和五元的纸币且纸币数共为20张的分法有多少种？
（注：
在兑换中一元、二元、五元的纸币数可以为0）。
44.求方程8x-5y=3,在|x|<
=150,|y|<
=200内的整数解。
试问这样的整数解中|x|*|y|的最大值是多少？
#24676
45.求方程9X-19Y=1,在|X|≤100,|Y|≤50内共有多少组整数解?
#11
46.若（x,y,z）满足方程：
x^2+y^2+z^2=55^2（注：
要求x>
y>
z）,则（x,y,z）称为方程的一个解。
试求方程的整数解（包括负整数解）的个数。
#62
47.若有三个正整数a、b、c满足a^2+b^2=c^2，则a，b，c称为勾股数组，编一程序，问有多少个三个数均小于50（含50）的勾股数组（注意:
a,b,c不能为0）。
#40
48.倒勾股数是满足公式：
1/A^2+1/B^2=1/C^2的一组正整数（A，B，C），例如，（156，65，60）是倒勾股数，因为：
1/156^2+1/65^2=1/60^2。
假定A>
B>
C，求A，B，C之和小于100的倒勾股数有多少组？
#2
49.编写程序，求共有几组I,j,k符合算式ijk+kji=1534,其中I,j,k是[0,9]之间的一个整数。
50.设有一个12*12方阵A（I,j）,其每个元素的值为该元素下标的平方和,求出该矩阵所有元素的累加和.（注:
I,j从1开始）#15600
51.分子分母为正整数，分子小于分母且分子分母无公因数的分数称为最简真分数。
对于分数的分母取值范围为[50，90]时的最简真分数共有多少个.#773（?
?
1726）
52.某些分数的分子和分母都是二位正整数的真分数具有下列特点：
如果将该分数的分子的两位数字相加作分子，而将该分数的分母的两位数字相加作分母，得到的新分子跟原分子相等。
例如，63/84=（6+3）/（8+4）。
试求所有具有这样特点的真分子（非约简真分数）中最大的分数的分子与分母之和。
#187（记住：
本题满足条件的最大分数是88/99）
53.求[3-1000]之间最大的五个素数之和。
#4919
54.求[500,2500]之间按递增顺序的素数中的第25大的素数。
#2309
55.所谓素数是指这样的大于1的自然数，除1和它本身外不再有其它因子（整除它的数）。
编写程序，计算从1981年开始到3000年为止，我们将遇到多少个素数年号。
#131
56.编程求区间[500，2500]中按递增顺序第25个素数。
#659
57.若两个连续的自然数的乘积减1后是素数，则称此两个连续自然数为友数对，该素数称为友素数。
例如，由于8*9-1=71，因此，8与9是友数对，71是友素数。
求[50，150]之间的第10个友素数（按由小到大排列）。
#4421
58.若两个素数之差为2，则称这两个素数为双胞胎数。
求出[200，1000]之内有多少对双胞胎数。
#20
59.求[5,500]中相差为10的相邻素数对的对数。
#31
60.德国数学家哥德巴赫曾猜测：
任何大于6的偶数都可以分解成两个素数的和。
但有些偶数可以分解成多种素数对的和，如：
10=3+7，10=5+5，即10可以分解成两种不同的素数对。
试求6744可以分解成多少种不同的素数对（注：
A+B与B+A认为是相同素数对）#144
61.梅森尼数是指能使2^n-1为素数的数n，求[1，21]范围内有多少个梅森尼数？
#7
62.梅森尼数是指能使2^n-1为素数的数n，求[1，21]范围内最大的梅素尼数？
#19
63.一个素数（设为p）依次从最高位去掉一位，二位，三位，……，若得到的各数仍都是素数（注：
1不是素数），且数p的各位数字均不为零，则称该数p为逆向超级素数。
例如，617，17，7都是素数，因此617是逆向超级素数，但尽管503，03，3都是素数，但它不是逆向超级素数，因为它包含有零。
试求[100,999]之间的所有逆向超级素数从小到大数的第10个素数是多少？
#337
64.已知：
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.618
65.台劳展开式为：
Sin（X）=X/1!
-X^3/3!
+X^5/5!
-X^7/7!
+…，按台劳展开式计算当X取值为/5时Sin（X）的近似值（前20项）。
#0.59
66.一只猴子一天从山上摘来一袋桃子，从这天开始，它每天都要把袋中的桃子平分为二堆，吃掉其中的一堆，然后再从剩下的桃中拿出一个解谗，等到第10天，它发现袋中只有一只桃可吃啦，问猴子总共摘了多少桃。
#1534
67.某一正整数，进行递减，第一次减去该数的一半再减一，以后每次都减去前一次剩下的数后再减一，直到第十次减后，剩１。
求该数。
68.数列:
e
（1）=e
（2）=1,e（n）=（n-1）e（n-1）+（n-2）e（n-2）,（n>
2）,称为e数列，每一个e（n）,（n=1,2,…）称为e数。
求[1，30000]之内e数的个数。
#8
69.数列:
求[1，30000]之内最大的e数。
#16687
70.已知Fibonacci数列{f（i）}：
1,1,2,3,5,8,……,试求F
（1）+F
（2）+……+F（50）值。
#32951280098
71.已知Fibonacci数列{f（i）}：
1,1,2,3,5,8,……,试求F
（1）+F（3）+F（5）+……+F（49）值。
#12586269025
72.已知Fibonacci数列{f（i）}：
1,1,2,3,5,8,……,试求F
（2）+F（4）+F（6）+……+F（50）值。
#20365011073
73.已知Fibonacci数列{f（i）}：
1,1,2,3,5,8,……,试求F（45）值。
#1134903170
74.斐波那契数列的前二项是1，1，以后每一项都是前面两项之和。
求10000000以内有多少个斐波那契数？
#35
75.斐波那契数列的前二项是1，1，其后每一项都是前面两项之和，求10000000以内最大的斐波那契数？
#9227465
76.编程求取：
S=1/2+2/3+3/5+5/8+……的前30项的和。
按四舍五入方式精确到小数点后第二位。
#18.46
77.编程求取：
S=1/2+3/5+8/13+21/34……的前30项的和。
78.一个数列，它的头三个数为0，0，1，以后的每个数都是其前三个数的和，求此数列的前30项之和。
#18947744
79.已知:
f（0）=f
（1）=1,f
（2）=0,f（n）=f（n-1）-2f（n-2）+f（n-3）,（n>
2）,求f（0）到f（50）中的最大值.#598325
80.已知:
2）.求f（0）到f（50）中的最小值.#-288959
81.已知f（n）=f（n-1）+2f（n-2）-5f（n-3）,f（0）=1,f
（1）=2,f
（2）=3,求f（0）+f
（1）+…f（30）。
#-750874
82.有一个数列，它的头三个数为1，2，3，以后的每个数都是其前三个数的和，求此数列从第几项起大于或等于3000。
#15
83.50个小学生按１至50序号顺时针围成一圈，做出局游戏，老师站在圈外顺时针从第一个人数起，每数到5时，这人从圈里出来，继续数1,2,3,4,5,数到第5个学生时，他就出局，已出局的位置不再参加计数，直至所有的学生出局为止，问最后一个出局的学生序号是多少号。
85.计算y=1+2/3+3/5+4/7+…+n/（2*n-1）（n=50）,要求：
#26.47
86.当n=100时，计算输出下列多项式的值S=（1-1/2）+（1/3-1/4）+……+（1/（2n-1）-1/（2n））按四舍五入的方式精确到小数点后第三位。
#0.691
87.设S=1+1/2+1/3+…1/n，n为正整数，求使S不超过10（S≤10）的最大的n。
#12367
88.求S=1*2+2*3+3*4+4*5+…+n*（n+1），当和大于2000001时退出程序，求此时的n的值。
#181
89.求Y=1-1/2+1/3-1/4+...+1/（2*n-1）-1/（2*n）前30项之和。
按四舍五入精确到小数点后第二位。
#0.68
90.求级数1/（1*2）+1/（2*3）+.....+1/（N*（N+1））的和的近似值,直到级数中有一项的值小于1E－4为止.要求：
#0.99
91."
水仙花数"
是指这样的数，其各位数字的立方和等于该数本身，如:
153=1^3+5^3+3^3。
编写程序，计算从100年开始到2000年为止，共有多少个年号是水仙花数年号。
92.有一个三位数满足下列条件:
（1）此三位数的三位数字各不相同;
（2）此三位数等于它的各位数字的立方和。
试求这种三位数共有多少个？
93.设有6个十进制数字a,b,c,d,f,e，求满足abcdf×
e=fdcba条件的五位数abcdf中（a≠0,e≠0,e≠1）最大的一个。
#21978
94.求[1，1000]之间能被3整除，且至少有一位上的数是5的所有数之和。
#46509
95.求[1，999]之间能被3整除，且至少有一位数字是5的所有正整数的个数。
#91
96.求[100,10000]中其各位数字之和能被7整除的数的个数。
#1408
proc1
*求1~108所有整数的平方和并输出结果。
settalkoff
clear
s=0
forx=1to108
s=s+x*x
endfor
s
settalkon
return
proc2
*求1~135的平方根的和并输出结果。
forx=1to135
s=s+sqrt（x）
proc3
*求s=1-1/2+1/3-1/4+1/5-1/6+…+1/99-1/100的值（按四舍五入方式精确到小数点后4位）#0.6882
*解法1
forn=1to100
s=s+（-1）^（n+1）/n
*解法2
ifmod（n,2）=1
s=s+1/n
else
s=s-1/n
endif
*解法3
forn=1to100step2
s=s+1/n-1/（n+1）
proc4
*求[351,432]之间所有既不能被3整除,又不能被8整除的整数的和。
forx=351to432
ifmod（x,3）<
>
0andmod（x,8）<
s=s+x
proc5
*求1000以内，同时能被3和7整除的所有自然数之和的平方根。
forx=1to1000
ifmod（x,3）=0andmod（x,7）=0
sqrt（s）
proc6
*求1到1000之内能被7或11整除，但不能同时被7和11整除的所有整数的个数。
n=0
if（mod（x,7）=0ormod（x,11）=0）andnot（mod（x,7）=0andmod（x,11）=0）
n=n+1
n
proc7
*求500以内（含500）能被5或9整除的所有自然数的倒数之和。
forx=1to500
ifmod（x,5）=0ormod（x,9）=0
s=s+1/x
round（s,2）
proc8
*编程序求2+4+8+16+32+…这样的数之和。
x=1
forn=1to1000
x=x*2
ifs>
9000
exit
proc9
*编程序求出1-100以内的能被3整除的数的平方和。
forx=3to100step3
proc10
*编程序求出1-4000以内能被3或者11整除的数的个数。
forx=1to4000
ifmod（x,3）=0ormod（x,11）=0
proc11
*编程序求出1到4000之间的能被5整除的前若干个偶数之和，当和大于400时退出并输出结果。
forx=10to4000step10
400
proc12
*S1=1，S2=1+3，S3=1+3+5，S4=1+3+5+7，…，SN=1+3+5+7+…+（2N-1），N为正整数。
t=0
forn=1to100000
t=t+2*n-1
s=s+t
=20000
n-1
proc13
*已知S=2+（2+4）+（2+4+8）+（2+4+8+16）+…，求S>
t=t+x
6000
dowhiles<
=6000
enddo
pro
升级会员 