Vfoxpro省考程序复习.doc

程序改正错误题1.求出10,1000内所有能被7和9中至少一个数整除的整数的个数.set talk offclearn=0for x=10 to 1000if mod(x,7)=0 and mod(x,9)=0 and改orn=n+x n=n+1endifendfor? nset talk onreturn 2362.求出10,1000内所有能同时被7和9整除的整数之和。set talk offclears=0for x=10 to 1000if mod(x,7)=0 and mod(x,9)=0s=x s=s+xendifendfor? x ?sset talk onreturn 75603.求出10,1000内所有能被6整除但不能被9整除的整数之和。set talk offclears=0for x=10 to 1000if mod(x,6)=0 or mod(x,9)=0 or mod(x,9)=0改 and mod(x,9)0x=s+x s=s+xendifendfor? sreturn 554404.求出10,1000内所有能被6和9中的一个且只有一个数整除的整数的个数。n=0for x=10 to 1000if mod(x,6)=0 and mod(x,9)!=0 and mod(x,6)!=0 and mod(x,9)=0 orn=x n=n+1endifendfor? nreturn 1655.求出100,800内所有既不能被5整除也不能被7的整数的个数。n=0for x=100 to 800if mod(x,5)=0 and mod(x,7)0 if mod(x,5)0 and mod(x,7)0n=x+1 n=n+1endifendfor? x ?nreturn 4806.求出101,299内所有能被2整除但不能同时被3和5整除的整数之和。set talk offs=0for x=101 to 299if mod(x,2)=0 and not mod(x,3)=0 and mod(x,5)=0 ( )x=s+x s=s+xendifendfor? sreturn 186307.求出100以内最大的自然数n，使得从1开始的连续n个自然数的倒数之和小于3.5。set talk offclears=0for n=1 to 100s=(s+1)/n s=s+1/nif s=3.5loop exitendifendfor? n-1return 188.求出100以内最小的自然数n，使得从1开始的连续n个自然数的倒数之和大于3.6。set talk offclears=0for n=1 to 100s=s+1/nif s=3.6loop exitendifendfor? nset talk onreturn 219.求出100以内最大的自然数n，使得从1开始的连续n个自然数的平方和小于5000。s=0for n=1 to 100s=s+n*2 s=s+n2if s=5000exitendifendfor? n ? n-1return 2410.求出100以内最小的自然数n，使得从1开始的连续n个自然数的平方之和大于5500。set talk offs=0for n=1 to 100s=s+n*nif s=5500exitendifendfor? s ? nreturn 2511.求出100以内最大的自然数n，使得从1开始的连续n个自然数的立方和小于20000。s=0for n=1 to 100s=s+n*3 s=s+n3if s=20000exitendifendfor? n ? n-1return 1612.求出100以内最小的自然数n，使得从1开始的连续n个自然数的立方之和大于30000。s=0for n=1 to 100s=s+n*n*3 s=s+n3if s30000loop exitendifendfor? nreturn 1913.求出50以内最大的自然数n，使得从102开始的连续n个偶数之和小于3000。(23)s=0for n=1 to 50a=100+2*ns=s*a s=s+aif s=3000loop exitendifendfor? n-1return 2314.求出50以内最小的自然数n，使得从102开始的连续n个偶数之和大于2000。s=0for n=1 to 50a=102+2*ns=s+aif s2000loop exitendifendfor? nreturn 1715.求出50以内最大的自然数n，使得从101开始的连续n个奇数之和小于2000。(17)set talk offclears=0for n=1 to 50a=99+2*ns=s+aif s2000exitendifendfor? n ? n-1return 1716.求出50以内最小的自然数n，使得从101开始的连续n个奇数之和大于3000。(25)set talk offclears=0for n=1 to 50a=101+2*n a=99+2*ns=s+aif s3000exitendifendfor? s ? nset talk onreturn 2517.求出100以内使得算式1*2+2*3+n*(n+1)的值小于5000的最大的自然数n。(23)set talk offclears=0for n=1 to 100a=n*(n+1)s=s+aif s5000exitendifendfor? n ? n-1set talk onreturn 2318.求出100以内使得算式1*2+2*3+n*(n+1)的值大于6000的最小的自然数n。(26)set talk offclears=0for n=1 to 100a=n*(n+1)s=s+aif s=6000loopexitendifendfor? nset talk onreturn 2619.求出100以内使得算式1*3+2*5+n*(2*n+1)的值小于10000的最大的自然数n。(23)set talk offclears=0for n=1 to 100a=n*2*(n+1) a=n*(2*n+1)s=s+aif s=10000loop exitendifendfor? n-1set talk onreturn 2320.求出100以内使得算式1+(1+2)+(1+2+n)的值小于1000的最大的自然数n。s=0t=0for n=1 to 100s=s+nt=t+sif t1000exitendifendfor? n ? n-1retuen 1721.求出100以内使得算式1+(1+2)+(1+2+n)的值大于1500的最小的自然数n。(20)t=0s=0for n=1 to 100s=t+n s=s+nt=s+n t=t+sif t1500exitendifendfor? nreturn 20 22.求出100以内使得算式1/(1*2)+1/(2*3)+1/(n*(n+1)的值小于0.952的最大的自然数n。s=0for n=1 to 100s=s+1/n*(n+1) s=s+1/(n*(n+1)if s0.952exitendifendfor? n-1return 1923.求出100以内使得算式1/(1*1)+1/(2*3)+1/(n*(2n-1)的值大于1.35的最小的自然数n。s=0for n=1 to 100a=n*(2*n-1)s=s+a s=s+1/aif s1.35loop exitendifendfor? nreturn 1424.求出100以内的最大的自然数n，使得算式1+1/(1+2)+1/(1+2+n)的值小于1.9。s=0t=0for n=1 to 100s=s+1/n s=s+nt=t+s t=t+1/sif t=1.9exitendifendfor? n-1return1825.求出100以内使得算式1+1/(1*2)+1/(1*2*n)的值大于1.71828的最小的自然数n。set talk offcleara=1.00000000s=0.00000000for n=1 to 100a=a/n a=a*ns=s+a s=s+1/aif s=1.71828loop exitendifendfor? nreturn926.求出100以内最大的奇数n使得算式(1-1/2)+(1/3-1/4)+(1/n-1/(n+1)的值小于0.68。set talk offclears=0for n=1 to 100 step 2a=1/n-1/(n+1)s=s+aif s0.68exitendifendfor? n-2set talk onreturn3527.求出100以内使算式(1-1/2)+(1/3-1/4)+(1/n-1/(n+1)的值大于0.682的最小的奇数n。set talk offclears=0for n=1 to 100 for n=1 to 100 step 2a=1/n-1/(n+1)s=s+aif s=0.682exitendifendfor? nset talk onreturn4528.某国在2000年时人口总数为1亿，若以每年3%的速度递增，试求出至少要到哪一年该国人口总数才会翻一翻。set talk offclears=1for n=2001 to 2100s=s*1.03if s=2 if s=2loop exitendifendfor? nset talk onreturn202429.某国今年的人口总数为1亿，若以每年4%的速度递增，试求出至少要再过几年该国人口总数才会翻一翻。set talk offclears=0 s=1for n=1 to 100s=s*1.04if s=2loop exitendifendfor? nset talk onreturn1830.设等比数列：1，2，4，8，求使得此数列的前n项之和大于100000的最小的自然数n。set talk offcleara=1s=1 s=0for n=1 to 100s=s+aif s100000exitendifa=2+a a=2*aendfor? nreturn1731.设等比数列：1，2，4，8，求使得此数列的前n项之和小于150000的最大的自然数n。cleara=1s=0for n=1 to 100s=s+aif s=150000exitendifa=2+a a=2*aendfor? n ?n-1return1732.设等比数列：1，3，9，27，。求使得此数列的前n项之和大于2345678的最小的自然数n。a=1s=0for n=1 to 100s=s*a s=s+aif s2345678exitendifa=3+a a=3*aendfo? nreturn1433.设等比数列：1，3，9，27，。求使得此数列的前n项之和小于3456789的最大的自然数n。a=1s=0for n=1 to 100s=s*a s=s+aif s3456789exitendifa=3*aendfor? n-1return1434.求出45678的所有非平凡因子（即除1和它本身以外的约数）中奇数的个数。a=45678n=0for b=3 to a step 2if mod(b,a)=0 if mod(a,b)=0n=n+1endifendfor? b ? nreturn735.求出203267的所有真因子（即小于它本身的约数）中最大的。a=203267for b=1 to a for b=1 to a-1if mod(a,b)=0max=a max=bendifendfor? maxreturn655736.求出20677和42067的最大公约数。a=20677b=42067for d=1 to a if mod(a,d)=0 and mod(b,d)=0max=b max=dendifendfor? d -?maxreturn71337.求出559399的所有非平凡因子（即除1和它本身以外的约数）中最小的。a=559399for n=2 to aif mod(a,n)=0loop exitendifendfor? a ? nset talk onreturn7338.求前1,100内能被6或8整除的所有自然数的平方根的和（将第1位小数四舍五入，结果只保留整数）。s=0for n=1 to 100if mod(n,6)=0 and mod(n,8)=0 and改ors=sqrt(s+n) s=s+sqrt(n)endifendfor? round(s,0)return16239.求出9269和8671的最小公倍数。 算法提示：a与b的最小公倍数是a的倍数中第1个被b整除的数 a=9269b=8671for k=a to a*b step aif mod(k,b)0 if mod(k,b)=0loop exitendifendfor? kreturn26880140.求所有符合算式ab*ba=2701的最小的两位数ab（即a*10+b）。其中a、b是19之间的一位整数。for x=11 to 99a=x/10 a=int(x/10)b=mod(x,10)y=10*a+bif x*y=2701 if (b*10+a)*y=2701exitendifendfor? xreturn3741.已知数列：1,2,4,7,11,16,，其规律是相邻两项之差依次是1,2,3,4,5,。试求出此数列中大于5000的最小的项。a=1for n=0 to 1000a=a+n if a5000loop exit endifendfor? n ?areturn505142.已知数列：1,2,4,7,11,16,，其规律是相邻两项之差依次是1,2,3,4,5,。试求出此数列中小于6000的最大的项。a=0 a=1for n=0 to 1000if a+n6000exit endifa=a+nendfor? areturn599643.已知数列：1,2,4,7,11,16,，其规律是相邻两项之差依次是1,2,3,4,5,。求100以内最小的自然数n使得此数列的前n项之和大于800。a=0 a=1s=0for n=1 to 100a=a+ns=s+a* ? n,a,sif s800exit endifendfor? nreturn1744.已知数列f(n)：f(1)=1，f(2)=4，当n=3,4,5,时，f(n)=3*f(n-1)-f(n-2)。试求出100以内最小的自然数n使得此数列的第n项大于7654321dimension f(100)f(1)=1f(2)=4for n=3 to 100f(n)=3*f(n-1)-f(n-2)if f(n)=7654321loop exitendifendfor? nreturn1745.求出100以内最小的自然数n，使得从1开始的连续n个自然数的立方之和大于88888。s=0for n=1 to 100a=n*3 a=n3s=s+aif s88888exitendif endfor? a ?nreturn2446.一球从100米高处落至平地，并且连续多次再反弹再落下，假设每次反弹的高度都是前一高度的3/4倍，试求出最小的自然数n，使得此球从开始下落至第n次着地时在垂直方向所经过的总路程超过678米。h=100s=0 s=100for n=2 to 100h=h*3/4s=s+h s=s+2*hif s678exitendif endfor? nset talk onreturn1347.一球从100米高处落至平地，并且连续多次再反弹再落下，假设每次反弹的高度都是前一高度的3/4倍，试求出最大的自然数n，使得此球从开始下落至第n次着地时在垂直方向所经过的总路程不超过590米。set talk offh=100s=0 s=100for n=1 to 100h=3/4*hs=s+2*hif s=590exitendifendfor? n-1 ?nreturn648.设一数列f(n)：f(1)=1，当n1时f(n)=1/(f(n-1)+1)。试求出此数列的前20项中小于0.618的项的数目。f=1.000000n=0for k=1 to 20f=1/f+1 f=1/(f+1)if f1时f(n)=1/(f(n-1)+1)。试求出此数列的前20项中大于0.618的项的数目。f=1.00000000n=0for k=2 to 20 for k=1 to 20f=1/f+1 f=1/(f+1)if f0.618n=n+1endif * ? k,f,nendfor? nset talk onreturn1550.设有用26个字母表示的26个表达式：a=1，b=1/(a+1)，c=1/(b+2)，z=1/(y+25)。试求出这26个字母中其值小于0.1的字母个数。set talk offlett=1n=0for k=1 to 26 for k=1 to 25lett=1/(lett+k)if lett54321n=n+1endiff1=f2f2=f3f3=f1 f3=fendfor? nset talk onreturn553.已知一个由分数组成的数列：1/2，3/5，8/13，21/34，其特点是：从其中第2个分数起，每个分数的分子都是前一分数的分子分母之和而其分母都是其分子与前一分数的分母之和。试求出此数列的前25项中其值大于0.618的项数。set talk offclearf1=1f2=2n=0for k=1 to 25f=f1/f2if f0.618n=n+1endiff1=f2 f1=f2+f1f2=f1 f2=f1+f2endfor? nset talk onreturn2054.已知数列f(n)：f(1)=1，f(2)=4，当n=3,4,5,时，f(n)=3*f(n-1)-f(n-2)。试求出100以内最大的自然数n使得此数列的第n项不超过7654321。set talk offf1=1f2=4for n=3 to 100f=3*f2-f1* ? n,fif f=654321exitendif f1=f2f2=fendfor? n ?n-1return1655.回文指的是正读和反读都一样的一串字符，如121、1221。试求出1421,4112内所有回文数的和。s=0for x=1421 to 4112a=x/1000 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*10if a=d and b=cs=s*x s=s+xendifendfor? sreturn7425056.求出123,789内至少有两个数字相同的数的个数。n=0for x=123 to 789a=int(x/100)b=int(x-a)/10) b=int(x-a*100)/10)c=x-a-b c=x-a*100-b*10if a=b or a=c or b=cn=n+1endifendfor? nreturn18057.求出123,321内恰好有两个数字相同的数的个数。n=0for x=123 to 321a=int(x/100)b=int(x-a*100)/10 b=int(x-a*100)/10)c=x-a*100-b*10if a=b and ac or ab and a=c 加or b=c and bcn=n+1endifendfor? nreturn4558.求出123,456内恰好有两个数字相同的所有整数之和。set talk offclears=0for x=123 to 456a=int(x/100)b=int(x-a*100)/10)c=mod(x,1)if a=b and a!=c or a!=b and a=c 加or b=c and bas=s+xendifendfor? sset talk onreturn2640659.求在100,999内所有不含数字0且各位数字之积被96整除的数之和。set talk offclears=0for x=100 to 999a=int(x/100)b=int(x-a*100)/10)c=mod(x,1) c=mod(x,10)if mod(a*b*c,96)=0 加and a0 and b0 and c0s=s+xendif endfor? sset talk onreturn2664060.求出100,600内被除3余2并且被除5余3的整数的个数。set talk offclearn=0for x=100 to 600if mod(x,3*5)=2*3 if mod(x,3)=2 and mod(x,5)=3n=x+1 n=n+1endifendfor? nset talk onreturn3361.求出1234,6789内中间两位数字之和等于首尾两位数字之积的数的个数。set talk offclearn=0for x=1234 to 6789a=int(x/1000)b=int(x-a*1000)/100 b=int(x-a*1000)/100)c=int(x-a*1000-b*100)/10 c=int(x-a*1000-b*100)/10)d=x-a*1000-b*100-c*10if b+c=a*dn=n+1endifendfor? nreturn17562.求出1234,6789内至少有两位数字是7的所有整数之和（注意AT()函数和STR()函数的功能）。set talk offs=0for x=1234 to 6789if at(7,str(x),2)=0 if at(7,str(x),2)=2s=x s=s+xendifendfor? sset talk onreturn67898163.将大于1000且能被4和6中至少一个数整除的所有整数按从小到大顺序排列后，求前面20个数之和。s=0k=0x=1000do while k=20 do while k20x=x+1if mod(x,4*6)=0 if not(mod(x,4)0 and mod(x,6)0)s=s+xk=k+1endifenddo? sset talk onreturn2061064.若一个自然数恰好等于某个整数的平方，则称此数为完全平方数。如144是完全平方数，因为它等于12的平方。求1000,9999内所有完全平方数的和。s=0for x=1000 to 3000 (9999)y=sqrt(x) y=int(sqrt(x)if x=y*ys=s+xendifendfor? x ?sreturn43539 31793465.若一个自然数恰好是它的平方的末后几位数，则称此数为自同构数。如5和76都是自同构数，因为它们的平方分别是25和5776。求2,99999内所有自同构数之和。（提示：若x是m位同构数，则x的平方除以10的m次方的余数就是x）set talk offclears=0for x=2 to 99999y=x*xm=len(ltrim(str(x) & 设x是m位数if mod(y,10*m)=xs=s+xendifendfor? y ?sset talk onreturn10111466.求满足条件A*B=54321且使A+B的值最小的自然数对A、B中较大的一个数。（提示：设A0r=mod(a,p)if r=1n=1 n=n+1endifa=int(a/p)enddo? nreturn1370.求出将十进制整数99887766554等值转换为十六进制形式表示后其中字母C的个数。（提示：模拟人工计算的16除取余法）a=99887766554p=16n=0do while a=0 do while a0r=mod(a,p)if r=11 if r=12n=n+r n=n+1endifa=int(a/p)enddo? nreturn271.已知数列f(n):f(1)=1,f(2)=1,当n2时f(n)=f(n-2)+f(n-1)。试求此数列的第15项至第25项共11项之和。dimension f(25)f(1)=1f(2)=1s=0for n=3 to 25f(n)=f(n-2)+f(n-1)if n=15s=f(n) s=s+f(n)endifendfor? sreturn19543172.求出将十进制小数0.987654321等值转换为二进制形式表示后前25位小数中数字0的个数。（提示：使用2乘取整法）x=0.987654321n=0for k=1 to 25x=2*x x=2*xz=int(x)x=x-zif z=1 if z=0n=n+z n=n+1endifendfor? nreturn873.求出将十进制小数0.56789等值转换为八进制形式的表示中前18位小数中数字3的个数。（提示：使用8乘取整法）x=0.56789n=0for k=1 to 18x=8*x x=8*xz=int(x)x=x-zif z=3n=n+z n=n+1endifendfor? nreturn374.对自然数A、B、C，若ABC且A*A+B*B=C*C，则称A,B,C为一组勾股弦数，其中A、B、C分别称为勾、股、弦。试求出弦为25000的勾股弦数组的个数。set talk offclearc=25000n=1 n=0for a=1 to cb=int(sqrt(c*c-a*a) if a*a+b*b=c*c 加and abn=n+a n=n+1endifendfor? nset talk onreturn575.对自然数A、B、C，若ABC且A*A+B*B=C*C，则称A,B,C为一组勾股弦数，其中A、B、C分别称为勾、股、弦。试求出弦为1300的勾股弦组数。set talk offclearc=1300n=0for a=1 to cb1=sqrt(c*c-a*a)b=int(b1)if b=b1 if a*a+b*b=c*c and abn=n+b n=n+1endifendfor? nset talk onreturn776.求方程3x-7y=1在条件|x|100且|y|40下的整数解的个数。set talk offclearn=0for x=-99 to 99y=int(3*x-1)/7)if 3*x-7*y=1 or abs(y)40 or改andn=n+x n=n+1endifendfor? nset talk onreturn2677.求方程3x-7y=1在条件|x|100且|y|40下的所有整数解的|x|+|y|的最大值。set talk offmax=140 max=0for x=-99 to 99y=int(3*x-1)/7)z=abs(x+y)if 3*x-7*y=1 and abs(y)z maxz改max0 and maxz maxz改max0 and minzmin=zendifendfor? minset talk onreturn3 81.求100200内的所有素数的个数。（素质是指只能被1和本身整除的数）n=0for i=100 to 200f=1for j=2 to I for j=2 to int(sqrt(i)if mod(i,j)=0f=0loopendifendforif f=1n=n+1endifendfor? nreturn2182.求100200内的所有素数的和。（素质是指只能被1和本身整除的数）set talk offclean=0for i=100 to 200f=1for j=2 to I for j=2 to int(sqrt(i)if mod(i,j)=0f=0exitendifendfor f=1 if f=1n=n+1 n=n+iendifendfor? nreturn316783.求1001000内的最大的素数。（素质是指只能被1和本身整除的数）set talk offclean=0for i=100 to 1000f=1for j=2 to I for j=2 to int(sqrt(i)