VFP程序题主要题型.doc

经典程序设计 1. 求[10,1000]内所有能被被7和9中至少一个数整除的整数之个数。 set talk off clear n=0 for x=10 to 1000 if mod(x,7)=0 or mod(x,9)=0 n=n+1 endif endfor ? n set talk on return 2. 设等比数列：1，2，4，8，…。求使得此数列的前n项之和大于100000的最小的自然数n。 set talk off clear a=1 s=0 for n=1 to 100 a=2^(n-1) s=s+a if s100000 exit endif endfor ? n set talk on return 3. 求出20677和42067的最大公约数。 set talk off clear a=20677 b=42067 for d=1 to a if mod(a,d)=0 and mod(b,d)=0 max=d endif endfor ? max set talk on return 结果为：713 4. 设一个数列的前3项都是1，从第4项开始，每一项都是其前3项之和。试求出此数列的前25项中大于54321的项数。 set talk off clear store 1 to f1,f2,f3 n=0 for k=4 to 25 f=f1+f2+f3 if f54321 n=n+1 endif f1=f2 f2=f3 f3=f endfor ? n set talk on return 5. 回文指的是正读和反读都一样的一串字符，如121、1221。试求出[1421,4112]内所有回文数的和。 set talk off clear s=0 for x=1421 to 4112 a= a=int(x/1000) b=int((x-a*1000)/100) c=int((x-a*1000-b*100)/10) d=x-a*1000-b*100-c*10 if a=d and b=c s=s+x endif endfor ? s set talk on return 6. 若一个自然数恰好等于某个整数的平方，则称此数为完全平方数。如144是完全平方数，因为它等于12的平方。求[1000,3000]内所有完全平方数的和。 set talk off clear s=0 for x=1000 to 3000 y=int(sqrt(x)) if x=y*y s=s+x endif endfor ? s set talk on return 答案：43539 7、把一张一元钞票,换成一分、二分和五分硬币,每种至少1枚,问兑换后其中二分的硬币恰有20枚的方案共有多少种? set talk off clea n=0 for yi=1 to 60 for wu=1 to 20 er=20 if yi+er*2+wu*5=100 n=n+1 endif endfor endfor ? n set talk on return 答案：11 8、水仙花数是指这样的数，其各位数字的立方和等于该数本身，如:153=1^3+5^3+3^3。编写程序，计算从100年开始到3000年为止，最大的水仙花数年号为多少？ set talk off clea s=100 for i=100 to 3000 a=int(i/1000) b=int((i-a*1000)/100) c=int(mod(i,100)/10) d=mod(i,10) if a**3+b**3+c**3+d**3=i if si s=i endif endif endfor ? s Return 答案：407 9勾股弦数是满足公式： A^2+B^2=C^2 (假定ABC)的一组正整数（A，B，C），例如，（3，4，5）是勾股弦数，因为：3^2+4^2=5^2。求[1,50]中使A+B+C取最大值的勾股弦数，并输出此最大值。 10 求1-100之间素数的个数。 注意：我上课将过的例题和书本后面的习题大家都要加