do循环1.pptVIP

循环结构 ——Do 循环 For 循环 For 循环变量 =初值 to 终值 step 步长 循环体 next 循环变量 FOR 循环比较适合解决循环次数已知的问题。 如：S=1+2+…+100 新课引入 例：已知S=1+2+3+…+N，找出一个最大的整数N，使S30000。解决这个问题，能用for循环吗？ Do循环语句的基本格式 初时状态设置 Do 循环体 Loop Until 循环终止条件 例1.　分析运行过程、结果 n=1 do Print “*” n=n+1 Loop until n5 Do循环语句的基本格式 初时状态设置 Do 循环体 Loop while 循环执行条件 例 陈婷今年17岁了，她的生日正好是3月12日植树节。今年植树节老师带同学们到公园里去植树。陈婷很高兴，一个人就栽了3棵树，过了一个很有意义的生日。她想，如果从明年开始每年过生日的时候都去植树，并且每一年要比前一年多栽一棵树，这样下去，到多少岁时才能累计种到或超过100棵树呢？ 编写代码 Dim age as integer Dim tree as integer Dim t as integer Age=17 Tree=3 Do age=age+1 t=age-14 tree=tree+t Loop until tree=100 Print age,tree 参考代码 Dim age as integer Dim tree as integer Dim t as integer Age=17 Tree=3 Do age=age+1 t=age-14 tree=tree+t Loop until tree=100 Print age,tree 课堂任务 任务一：已知S=1+2+3+…+N，找出一个最大的整数N，使S30000。 任务一：已知S=1+2+3+…+N，找出一个最大的整数N，使S30000。 Dim s As Integer, i As Integer s = 0 n = 1 Do s = s + n n = n + 1 Loop Until s 30000 Print s30000时最大的整数是; n 任务二：求整除3余1、整除5余2、整除7余4、的最小自然数。 X=1 Y=0 Do if x mod 3=1 and x mod 5=2 and x mod 7=4 then y=x X=x+1 Loop until y0 Print y 课后习题 P54 假设纸的长度足够长，厚度为0.1毫米，对折一次厚度增加1倍，现在对折纸张，直到总厚度超过珠穆朗玛峰的高度为止（最新高度：8844.43米），对折纸张的次数。 参考代码 K=0 H=0.1 Do k=k+1 h=h*2 Loop until h=8844.43*1000 Print k Do 循环语句（循环次数不确定） 1.当条件满足时退出循环 Do 循环体 loop until 条件 2.当条件满足时执行循环体 Do while 条件 循环体 loop Do Until 条件 循环体 Loop Do 循环体 Loop While 条件 s=0 For i=1 to 100 s=s+I Next i 循环执行的次数不确定，怎么办？ 这时我们可以用Do循环的语句来实现。 先执行后判断 条件表达式 成立？ 循环体 No Yes 从Do开始，先执行一次循环体，然后判断是否满足循环终止条件，满足条件则退出，否则继续循环。 必包括能改变循环控制变量的操作 格式一 Do 监视运行 格式二 必包括能改变循环控制变量的操作 先执行后判断 条件表达式 成立？ 循环体 yes no n=1 do Print “*” n=n+1 Loop until n5 While n=5 任务二：求整除3余1、整除5余2、整除7余4、的最小自然数。