Visualfoxpro程序设计练习题及答案

n=n+1
endif
c=int(c/2)
enddo
?n
25、对自然数A、B、C，若A<B<C且A*A+B*B=C*C，则称{A,B,C}为一组勾股弦数，其中A、B、C分别称为勾、股、弦。试求出弦为25000的勾股弦数组的个数。
答案：5
n=0
for b=12500 to 25000
for a=1 to b-1
endfor
?n
27、已知数列{f(n)}：f(1)=1，f(2)=4，当n=3,4,5,…时，f(n)=3*f(n-1)-f(n-2)。试求出100以内最大的自然数n使得此数列的前n项之和首次大于75364321。
答案：19
dime f(100)
f(1)=1
f(2)=4
s=5
for n=3 to 100
答案：23
s=0
for i=1 to 100
s=s+i*(i+1)
if s>=5000
exit
endi
endf
?i-1
6、求出100以内使得算式1/(1*1)+1/(2*2)+…+1/(n*n)的值小于1.6的最大的自然数n。
答案：21
s=0
for i=1 to 100
s=s+1/i^2
if s>=1.6
endf
?s
20、将大于1000且能被4和6中至少一个数整除的所有整数按从小到大顺序排列后，求前面20个数之和。
答案：20610
a=1001
n=0
s=0
do while n<20
if mod(a,4)=0 or mod(a,6)=0
s=s+a
n=n+1
endif
a=a+1
enddo
?s
21、若一个自然数恰好是它的平方的末后几位数，则称此数为自同构数。如5和76都是自同构数，因为它们的平方分别是25和5776。求[2,99999]内所有自同构数之和。（提示：若x是m位同构数，则x的平方除以10的m次方的余数就是x）
endif
if n==50
exit
endif
endfor
?i
30、编写程序，计算10000以内有多少个这样的数，其个位数为6且该数能被9整除。
答案：111
n=0
for i=1 to 10000
if i%10==6 and i%9==0
n=n+1
endif
endfor
?n
31、设某四位数的各位数字的平方和等于100，问共有多少个这种四位数？
exit
endi
endf
?i-1
7、某国今年的人口总数为1亿，若以每年4%的速度递增，试求出至少要再过几年该国人口总数才会翻一翻。
答案：18
n=0
x=1
do while x<2
x=x*(1+0.04)
n=n+1
enddo
?n
8、设等比数列：1，3，9，27，…。求使得此数列的前n项之和大于2345678的最小的自然数n。
答案：73
max=3
min=300
for a=1 to 20
for b=1 to 50
for c=1 to 100
if a*5+b*2+c=100
s=a+b+c
if(s>max)
max=s
endif
if(s<min)
min=s
endif
endif
endfor
endfor
endfor
?max-min
34、找满足以下条件: X^2+Y^2=41^2且X+Y之值最大的二个正整数X,Y,求X+Y之值.
endfor
?n
10、求出203267的所有真因子（即小于它本身的约数）中最大的因子数。
答案：6557
s=203267
for i=1 to int(203267/3)
if mod(s,i)=0
n=i
endif
endfor
?n
11、求出20677和42067的最大公约数。
答案：713
for i=20677 to 1 step -1
答案：57
s1=54322
for i=1 to int(sqrt(54321))
if(54321%i==0 )
s=i+54321/i
if(s<=s1)
s1=s
a=i
endif
endif
endfor
?a
23、已知数列：1、2、4、7、10、15、…，其特点是：相邻两项之差恰好构成自然数列：1、2、3、4、5、…。求此数列的前100项中能被4整除的项的个数。
if a*a+b*b=25000*25000
n=n+1
endif
endfor
endfor
?n
26、求方程3x-7y=1在条件|x|<100且|y|<40下的整数解的个数。
答案：26
n=0
for x=-99Байду номын сангаасto 99
for y=-39 to 39
if 3*x-7*y==1
n=n+1
endif
endfor
f(n)=3*f(n-1)-f(n-2)
s=s+f(n)
if s>75364321
exit
endif
endfor
?n
28、求100－200内的所有素数的个数。（素质是指只能被1和本身整除的数）
答案：21
n=0
for i=100 to 200
for j=2 to i-1
if(i%j==0)
exit
endif
答案：14
s=0
n=0
do while s<=2345678
s=s+3^n
n=n+1
enddo
?n
9、求出45678的所有非平凡因子（即除1和它本身以外的约数）中是奇数的因子个数。
答案：7
n=0
s=45678
for i=3 to 22839 step 2
if mod(s,i)=0
n=n+1
endif
s=s+i
endif
endfor
?s
19、求在[100,999]内所有不含数字0且各位数字之积被96整除的数之和。
答案：26640
s=0
for a=1 to 9
for b=1 to 9
for c=1 to 9
if(mod(a*b*c,96)=0)
s=s+a*100+b*10+c
endi
endf
endf
答案：49
n=0
for i=1000 to 9999
a=int(i/1000)
b=int(i/100)%10
c=int(i/10)%10
d=i%10
if a^2+b^2+c^2+d^2=100
n=n+1
endif
endfor
?n
32、把一张一元钞票,换成一分、二分和五分硬币,每种至少11枚,问有多少种方案?
答案：49
max=41
for x=1 to 41
for y=x to 41
if x*x+y*y=41*41 and max<x+y
max=x+y
endif
endfor
endfor
?max
35、已知24有8个正整数因子(即:1,2,3,4,6,8,12,24)，而24正好被其因子个数8整除。求[100,300]之间能被其因子数目整除的数的个数。
答案：20
Dimension f(100)
f(1)=1
f(2)=4
n=2
do while f(n)< 87654321
n=n+1
f(n)=3*f(n-1)-f(n-2)
enddo
?n
16、一球从100米高处落至平地，并且连续多次再反弹再落下，假设每次反弹的高度都是前一高度的3/4倍，试求出最大的自然数n，使得此球从开始下落至第n次着地时在垂直方向所经过的总路程不超过690米。
答案：13
n=0
for a=11 to 20
for b=11 to 50
for c=11 to 100
if a*5+b*2+c=100
n=n+1
endif
endfor
endfor
endfor
?n
33、把一张一元钞票,换成一分、二分和五分硬币,每种至少1枚,问兑换后硬币总数最多的与硬币总数最少的枚数之差是多少?
答案：101114
s=0
for i=2 to 999999
if mod(i*i,10)=i or mod(i*i,100)=i or mod(i*i,1000)=i or mod(i*i,10000)=i or mod(i*i,100000)=i
s=s+i
endif
endfor
?s
22、求满足条件A*B=54321且使A+B的值最小的自然数对A、B中较小的一个数。（提示：设A<=B，当A越大时A+B越小）
s=s+f*1/n
f=-f
endfor
?round(s,4)
37、编写程序，求共有几组i、j、k符合算式ijk+kji=1333，其中i、j、k是0~9之间的一位整数。