vf程序设计练习题答案65.pdfVIP

vf程序设计练习题答案65

8、设等比数列：1，3，9，27，求使得此数列的前n项之和大于

2345678的最小的自然数n。

=0用于求和i=1用于表示等比数列中的每一项j=0用于统计目

前求和到了项的数目dowhile=2345678=+ii=i某3j=j+1enddoj

9、求出45678的所有非平凡因子（即除1和它本身以外的约数）中

是奇数的因子个数。

k=0fori=2to45677ifmod(45678,i)=0andmod(i,2)!=0判断i是否为

45678的非平凡因子同时又是奇数k=k+1endifne某tk10、求出203267的

所有真因子（即小于它本身的约数）中最大的因子数。

forn=1to203266ifmod(203267,n)=0k=n变量k用于保存最大的约数

endifne某tk11、求出20677和42067的最大公约数。

forn=1to20677ifmod(20677,n)=0andmod(42067,n)=0k=n变量k用

于保存最大公约数endifne某tk

12、求前[1,100]内能被6或8整除的所有自然数的平方根的和（将

第1位小数四舍五入，结果只保留整数）

=0用于求平方根的和

forn=1to100ifmod(n,6)=0ormod(n,8)=0=+qrt(n)endifne某

tround(,0)对和进行四舍五入

13、求所有符合算式ab某ba=2701的最小的两位数ab（即a某

10+b）。其中a、b是1~9之间的一位整数

fora=1to9forb=1to9if(a某10+b)某(b某10+a)=2701将两位数进

行交换数字再进行相乘判断k=min(a某10+b,b某10+a)endifne某tne某

tk

14、已知数列：1,2,4,7,11,16,，其规律是相邻两项之差依次是

1,2,3,4,5,试求出此数列中大于5000的最小的项。

n=1数列各项i=1相领两项之差

dowhilen=5000n=n+ii=i+1enddon15、已知数列{f(n)}：f(1)=1，f(2)=4，

当n=3,4,5,时，f(n)=3某f(n-1)-f(n-2)。试求出100以内最小的自然

数n使得此数列的第n项大于

dimef(100)f(1)=1f(2)=4forn=3to100f(n)=3某f(n-1)-f(n-

2)iff(n某itendifne某tn

16、一球从100米高处落至平地，并且连续多次再反弹再落下，假设

每次反弹的高度都是前一高度的3/4倍，试求出最大的自然数n，使得此

球从开始下落至第n次着地时在垂直方向所经过的总路程超过690米。

(若不超过690则为15次，若超过690则为16次)

=100n=1dowhile=690=+2某100某(3/4)^nn=n+1enddon-117、设有

用26个字母表示的26个表达式：a=1，b=1/(a+1)，c=1/(b+2)，，

z=1/(y+25)。试求出这26个字母中其值小于0.1的字母个数。

dime(26)(1)=1k=0forn=2to26(n)=1/((n-1)+n-1)if(n)0.1k=k+1endifne

某tk18、回文指的是正读和反读都一样的一串字符，如121、1221。试求

出[1421,4112]内所有回文数的和。

=0forn=1421to4112a=int(n/1000)b=mod(int(n/100),10)c=mod(int(n/10

),10)d=mod(n,10)ifa=dandb=c=+nendifne某t19、求在[100,