《算法及其实现七循环结构程序设计》由会员分享，可在线阅读，更多相关《算法及其实现七循环结构程序设计（22页珍藏版）》请在金锄头文库上搜索。
1、算法及其实现 7.循环结构程序设计,信息技术基础,学习内容,For循环,1,While循环,4,For循环结构,2,While循环结构,5,For循环的中止,3,While循环的中止,6,第一课,For循环结构：通过次数控制循环,1、For循环,Private Sub Cmd1_Click() Print 1 Print 2 Print 3 Print 4 Print 5 End Sub,Private Sub Cmd1_Click() 对于1到100的每个值 执行Print End Sub,Private Sub Cmd1_Click() Print 1 Print 2 Print 3 Pr
2、int 98 Print 99 Print 100 End Sub,For 循环变量=初值 To 终值 语句块 Next 循环变量,标程： Dim i,s As Integer s=0 For i=1 To 100 s=s+i Next i Label1.Caption=Str(s),2、For循环结构,例1： 求1+2+3+100=?,累加过程 s：累加器,1,For i=1 To 100 Print i Next i,思考：循环结束时，i的值是多少？,例2： 求1+3+5+99=?,For 循环变量=初值 To 终值 Step 步长 语句块 Next 循环变量,标程： Dim i,s As
3、 Integer s=0 For i=1 To 99 Step 2 s=s+i Next i Label1.Caption=Str(s),次数的控制由：初值、终值、步长决定 步长为1的时候，可以省略不写Step 1,2、For循环结构,n,n,n=Val(Text1.Text),For 循环变量=初值 To 终值 语句块 If 条件 Then Exit For End If Next 循环变量,标程： Dim i,s As Integer s=0 For i=1 To 1000 s=s+i If s1000 Then Exit For End If Next i Label1.Caption=
4、Str(s),3、For循环的中止,例3： 求1+2+3+的值刚超过1000时，和是多少？,标程： Dim i,s As Integer s=0 For i=1 To 10 s=s+i If s16 Then Exit For End If Next i Label1.Caption=Str(s),程序阅读题,看懂题目意思 划分代码结构 按照代码执行的顺序写下，每一步变量的值,思考：循环结束时，i的值是多少？,例4：在印度有一个古老的传说：舍罕王打算奖赏国际象棋的发明人宰相西萨班达依尔。国王问他想要什么，他对国王说：“陛下，请您在这张棋盘的第1个小格里，赏给我1粒麦子，在第2个小格里给2粒，第
5、3小格给4粒，以后每一小格都比前一小格加一倍。请您把这样摆满棋盘上所有的64格的麦粒，都赏给您的仆人吧！”国王觉得这要求太容易满足了，就命令给他这些麦粒。当人们把一袋一袋的麦子搬来开始计数时，国王才发现：就是把全印度甚至全世界的麦粒全拿来，也满足不了那位宰相的要求。 那么，宰相要求得到的麦粒到底有多少呢？ 1844 6744 0737 0955 1615,第一格：1粒 第二格：2粒 第三格：4粒 第四格：8粒 第六十三格：262粒 第六十四格：263粒,标程： Dim i As Integer Dim s As Integer Long Double s=0 For i=0 To 63 s=s
6、+2i Next i Label1.Caption=Str(s),练一练,For 楼号=1 To 3 For 楼层=1 To 4 For 教室=1 To 4 cnt=cnt+1 Next 教室 Next 楼层 Next 楼号,拓展：循环的嵌套,1号楼,2号楼,3号楼,第二课,4、While循环,While循环结构：通过条件控制循环,当不知道循环执行的次数，但知道循环继续执行的条件或循环结束的条件，可用Do While语句进行描述。,For循环结构：通过次数控制循环,For 循环变量=初值 To 终值 Step 步长 语句块 Next 循环变量,更灵活,Dim i As Integer i=1
7、Do While i=100 Print i i=i+1 Loop,5、While循环结构,Do While 判断条件 语句块 Loop,Dim i As Integer For i=1 To 100 Print i Next i,While容易出现死循环,标程： Dim a(1 to 6) As Integer Dim i As Integer : i=1 a(1)=2 : a(2)=33 : a(3)=44 a(4)=55 : a(5)=66 : a(6)=77 Do While i50 Then Exit Do End If i=i+1 Loop Label1.Caption=Str(i
8、) Label2.Caption=Str(a(i),6、While循环的中止,Do While 判断条件 语句块 If 条件 Then Exit Do End If Loop,例5： 在升序数列2，33，44，55，66，77中找到第一个大于50的数，输出它的下标和值。,7、For循环与While循环的相互转换,标程： Dim a(1 to 6) As Integer Dim i As Integer : i=1 a(1)=2 : a(2)=33 : a(3)=44 a(4)=55 : a(5)=66 : a(6)=77 Do While i50 Then Exit Do End If i=i
9、+1 Loop Label1.Caption=Str(i) Label2.Caption=Str(a(i),For i=1 To 6 If a(i)50 Then Exit For End If Next i,转换,变形,Do While i=6 And a(i)=50 i=i+1 Loop,4 55,作业本3.14 T6,x = 18: s = “ Do While x 0 r = (x + 1) Mod 2 s = Str(r) + s x = x 2 Loop Text1.Text = Str(s),作业本3.14 T7,k = 1 For i = 2 To 4 If a(i) 1 Th
10、en t = a(1) a(1) = a(k) a(k) = t End If,i,k,找到最小值的下标,将最小值和第一个值交换,作业本3.14 T9,Dim a(1 To 5) As Integer Dim flag As Boolean a(1) = 12: a(2) = 30: a(3) = 28: a(4) = 15: a(5) = 6 i = 1: flag = True: s = 0 Do While i = 5 And flag = True If a(i) = 28 Then flag = False s = s + a(i) i = i + 1 Loop,考点规范练10 16
11、、CAADDC 7、5 8、1 0.0000001或1/10000000或10-7或0.17或1/107 9、3 To 2*n-1 Step 2 -sign 10、i=n a2+b2 s=s+1 Str(4*s/n) 0,1) Int(Rnd*10+1), 4 = 1 1 1 3 + 1 5 1 7 + (1) 1 1 21,For k=3 To 2*n-1 Step 2 sign=-sign pi=pi+sign/k Next k,第?项 1 2 3 4 n,分母k 1 3 5 7 2n-1,符号sign 1 -1 1 -1 奇正偶负 -1(k-1)/2),-1(k2) -1Int(k/2) -sign,蒙特卡罗法求的近似值,Do While i=n a=Rnd:b=Rnd c=a2+b2 If c=1 Then s=s+1 i=i+1 Loop,
