第8讲 计数循环累乘器的应用.ppt

回顾上节课例题：计算S=1/1+1/2+1/3+……+1/10的值 小题热身 1.以下程序代码中的赋值语句 s = s + 1 / i共执行了________次。 s = 0 For i = 5 To 20 Step 3 s = s + 1 / i Next i Print s 小题热身 2. 以下程序的运行结果是_____________。 s=0 For i=1 to 10 Step 3 s=s+i Next i Print s A．34 B．22 C．12 D．5 第八讲 计数循环 累乘器的应用 开始 i=1: s=0 输出s 结束 F i=10 T s=s+1/i i=i+1 复习上节课习题 计算s=1+1/2+1/3+……+1/10的值 s=0 For i=1 to 10 step 1 s=s+1/i Next i Print s i=1: s=0 Do while i = 10 s=s+1/i i = i +1 loop Print s For－Next循环也称计数循环 For－Next循环也称计数循环，其一般格式如下： For 循环变量=初值 To 终值 [step 步长值] 循环体 Next 循环变量 说明： 1）当步长值为1时，STEP　1可省略不写； 2）其中的初值、终值、步长值均为数值表达式； 3）循环变量超过终值的含义是：步长值为正，大于终值；步长值为 负，小于终值； 4）有时需中途退出循环，可用EXIT　FOR命令； 5）其循环次数计算公式：循环次数=INT (（终值-初值）/步长值) + 1 循环变量=初值 循环变量是否未超过终值 执行循环体 循环变量=循环变量+步长 Y N s=0 For i=1 to 10 step 1 s=s+1/i Next i Print s For－next循环的适用特点 优点: 处理能预知循环次数的循环问题时，用for－next 循环非常方便。 缺点: 对不能预知循环次数的循环问题，不适宜用for－next　 　　 循环。 课堂VB实践： 用计数循环完成下列习题： （1）计算S=1+2+3+……+100的值。 [文件名：计数循环求和] （2）编程计算S=1/1+1/3+1/5+……+1/n前 20项的值（n是奇数）。 [文件名：计数循环求奇数倒数和] 例题1: S=1/2+1/(2*2)+1/(2*2*2)+……+1/(2^n) 对该问题画出流程图，在VB中选用恰当的循环结构实现： ①求前10项的和 开 始 i=10 输出s 结 束 s=s+1/2^i i=i+1 F T s=0:i=1 s=0 for i=1 to 10 s=s+1/2^i next i print s 已知循环次数,可用For－next结构实现 ②多少项后累加和s超过0.99999 开 始 s=0.99999 输出i 结 束 i=i+1 s=s+1/2^i F T s=0:i=0 s = 0 i = 0 Do While (s = 0.99999) i = i+ 1 s = s + 1 / 2 ^ i Loop print i (Do－loop until结构省略) 循环次数是要求的内容，因此用Do while－loop结构或Do－loop until结构 例题1: S=1/2+1/(2*2)+1/(2*2*2)+……+1/(2^n) 对该问题画出流程图，在VB中选用恰当的循环结构实现： 开 输入n 始 i=n 输出t 结 束 t=t*i i=i+1 F T t=1:i=1 input n t=1 for i=1 to n