实验29 Mathcad编程举例(1) Mathcad程序示意图 程序名 di=ls←0 赋值语句 d=|(s←0s1←02←0) for ke1. 10 fork∈1.100 s<s+k if mod(k, 3)=0v mod(k, =0 s←s+ k if mod(k,3=0 s输出结果 s1←s1+ k if mor(k,刀=0 s2←s2+ k if mod k,21) 7 程序编辑层次线 s+ s1-s2 1编写程序计算1—100之中可被3和7整除的整数之和 解求解程序为: S← 0 s<S+k if mod(k, 3)=0 v mod(k, 7)=0 div=2208 d:=|(s←0s←0s2←0 ←s+ k if mod(k,3)=0 sl←sl+ k if mod(k,7)=0 od(k,21)=0 s+sl-s2 d=2208 2我国1990年人口为12亿3千万,假如以后按千分之12的增长率增长,问需要经 过多少年将达到15亿,届时全国人口数是多少?编写程序求解。 解求解程序为:以增长率r为自变量 speed(:=k←0 while p < 1.5.10 Years""Populatin 令r=0.012可以得到实验29 Mathcad 编程举例(1) 1 编写程序计算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 2 我国1990年人口为12亿3千万, 假如以后按千分之12的增长率增长, 问需要经 过多少年将达到15亿 , 届时全国人口数是多少？编写程序求解。 解 求解程序为: 以增长率r为自变量 speed(r) k ¬ 0 p 1.23 109 ¬ × p ¬ p×(1 + r) k ¬ k + 1 p 1.5 109 while < × "Years" k "Populatin" p æ ç è ö ÷ ø := 令 r = 0.012 可以得到：