编程题a.docVIP

程序设计综合 一．编程题 1．已知斐波那契数数列：1,1,2,3,5,8,……,它可由下面公式表述： F(1)=1 n=1 F(2)=1 n=2 F(n)=F(n-1)+F(n-2) n2 试求①F(1)+F(2)+……+F(50) ；②F(52)；③100以内最大的斐波那契数？（答案：32951280098，32951280099，89） ①set talk off clear decl f(50) s=2 f(1)=1 f(2)=1 for n=3 to 50 f(n)=f(n-1)+f(n-2) s=s+f(n) endfor ?s set talk on return ②set talk off clear decl f(52) s=2 f(1)=1 f(2)=1 for n=3 to 52 f(n)=f(n-1)+f(n-2) endfor ?f(52) set talk on return  ③set talk off clear decl f(100) s=2 f(1)=1 f(2)=1 for n=3 to 100 f(n)=f(n-1)+f(n-2) if f(n)=100 ?f(n-1) exit endif endfor set talk on return 2．一个数列，它的头三个数为0，0，1，以后的每个数都是其前三个数的和，求此数列的前30项之和。（答案 set talk off clear decl f(30) s=1 f(1)=0 f(2)=0 f(3)=1 for n=4 to 30 f(n)=f(n-1)+f(n-2)+f(n-3) s=s+f(n) endfor ?s set talk on return 3．求1/2+2/3+3/5+5/8+……的前1000项的和(注：该数列从第二项开始，其分子等于前一项的分母，而其分母等于前一项分子与分母之和)。要求：按四舍五入的方式精确到小数点后第二位。（答案：617.95） set talk off clear w=0 x=1 y=2 for n=1 to 1000 w=w+x/y z=x x=y y=z+y endfor ?round(w,2) set talk on return 4．求[351,432]之间所有既不能被3整除,又不能被8整除的整数的和。（答案：18413） set talk off clear s=0 for n=351 to 432 if mod(n,3)#0 and mod(n,8)#0 s=s+n endif endfor ?s set talk on return 5．求[1，999]之间能被3整除，且至少有一位数字是5的所有正整数的个数。（答案：91） set talk off clear s=0 for n=1 to 999 if mod(n,3)=0 and 5 $ str(n) s=s+1 endif endfor ?s set talk on return 求正整数[1，500]中，能同时满足用3除余2，用5除余3，用7除余2的所有正整数的个数。（答案：5） set talk off clear s=0 for n=1 to 500 if mod(n,3)=2 and mod(n,5)=3 and mod(n,7)=2 s=s+1 endif endfor ?s set talk on return 若一自然数等于其所有真因子(不包括该数本身)之和,则称该数为完数. 例如:6的真因子有1,2,3,且6=1+2+3 ,因此6为完数, 求[3,1000]之间最大的完数。（答案：496） set talk off clear for n=1000 to 3 step-1 s=0 for i=1 to n-1 if mod(n,i)=0 s=s+i endif endfor if s=n ?n exit endif endfor set talk on return 求[200,300]之间最大的有奇数个不同因子的整数。（答案：289） set talk off clear for n=300 to 200 step-1 s=0 for I=1 to n if mod(n,I)=0 s=s+1 endif endfor