1 if n= 1 15 1 1.58044 Eular(n-1)+ otherwise Eula(15)=1.58044 9编写程序计算1-100之中可被3和7整除的整数之和。 解求解程序为: 0 fork∈1.100 ss+k if mod (k, 3)=0V mod(k, 7)=0 div=2208 d=(s←0s1←0s2←0) s←S+ k if mod(k,3)=0 sl←sl+ k if mod(k,7)=0 s2 <S2 +k if mod(k, 21)=0 d=2208 10我国1990年人口为12亿3千万,假如以后按千分之12的增长率增长,问需要经过多少年 将达到15亿,届时全国人口数是多少?编写程序求解 解求解程序为:以增长率r为自变量 sped(r):=n←0 p←1.23.1 while p<1.5.10 p←p(1+r) n←n+1 Years""Populatin 令r=0.012可以得到 ears sped(0.012)= 171506516262011Eular(n) 1 if n = 1 Eular(n - 1) 1 n 2 + otherwise := 1 15 k 1 k å 2 = = 1.58044 Eular(15) = 1.58044 9 编写程序计算1－100之中可被3和7整除的整数之和。 解 求解程序为： div s ¬ 0 s ¬ s + k if mod(k,3) = 0 Ú mod(k, 7) = 0 for kÎ 1.. 100 s := div = 2208 d (s ¬ 0 s1 ¬ 0 s2 ¬ 0 ) s ¬ s + k if mod(k,3) = 0 s1 ¬ s1 + k if mod(k,7) = 0 s2 ¬ s2 + k if mod(k,21) = 0 for kÎ 1.. 100 s + s1 - s2 := d = 2208 10 我国1990年人口为12亿3千万, 假如以后按千分之12的增长率增长, 问需要经过多少年 将达到15亿 , 届时全国人口数是多少？编写程序求解。 解 求解程序为： 以增长率r为自变量 speed(r) n ¬ 0 p 1.23 109 ¬ × p ¬ p×(1 + r) n ¬ n + 1 p 1.5 109 while < × "Years" n "Populatin" p æ ç è ö ÷ ø := 令 r = 0.012 可以得到： speed(0.012) "Years" 17 "Populatin" 1506516262.011 æ ç è ö ÷ ø =