资源描述
4.1 编制计算机程序解决问题编制计算机程序解决问题安丘二中 李永亮4.1 编制计算机程序解决问题体验编程安丘二中 李永亮1l1、了解编制程序的基本过程。l2、掌握算法的三种基本逻辑结构，能分析简单的程序。l3、激发同学们对算法设计和程序编写的兴趣，提高信息素养。教学目标1、了解编制程序的基本过程。教学目标2分析问题分析问题分析问题分析问题设计算法设计算法设计算法设计算法编写程序编写程序编写程序编写程序调试程序调试程序调试程序调试程序检测结果检测结果检测结果检测结果编制计算机程序解决问题的过程编制计算机程序解决问题的过程修修修修 改改改改分析问题设计算法编写程序调试程序检测结果编制计算机程序解决问3算法的三种基本逻辑结构l1、顺序结构l2、分支结构l3、循环结构合作探究算法的三种基本逻辑结构合作探究41、顺序结构：、顺序结构：是程序设计中最基本、最简单的结构。程序按照语句出现的先后顺序依次执行。顺序结构是任何程序的基本结构，即使在分支结构和循环结构中也包含有顺序结构。没有固定的语句格式。合作探究语句序列1语句序列2语句序列n程序入口程序入口程序出口程序出口1、顺序结构：是程序设计中最基本、最简单的结构。程序按照语句5合作探究顺序结构举例（一）Print a1,(3 2)Print a2,(32)Print a3,安丘安丘+二中二中Print a4,安丘安丘&二中二中程序入口程序入口程序出口程序出口Private sub form_click()Print a1,(3 2)Print a2,(32)Print a3,安丘安丘+二中二中 Print a4,安丘安丘&二中二中End sub 合作探究顺序结构举例（一）Print a1,(3 6合作探究Private Sub Command1_Click()Dim x As Integer,y As Integerx=1:y=0Do If x Mod 3=1 Then If x Mod 5=2 Then If x Mod 7=4 Then y=x End If End If End If x=x+1 Loop Until y 0 Print 韩信统帅士兵数韩信统帅士兵数:;yEnd Sub顺序结构举例（二）Dim x As Integer,y As Integerx=1:y=0循环语句循环语句 do loop until 条件条件 Print 韩信统帅士兵数韩信统帅士兵数:;y程序入口程序入口程序出口程序出口合作探究Private Sub Command1_Clic72、分支结构：、分支结构：使程序依据预定的条件成立与否，决定执行哪个分支，而且同一时间只允许执行一个分支。语句格式语句格式:if then 语句序列1 else 语句序列2 End if 合作探究语句序列1语句序列2程序入口程序入口程序出口程序出口条件2、分支结构：使程序依据预定的条件成立与否，决定执行哪个分支8分支结构举例合作探究Private sub form_click()Dim x as single,ABSX as single X=inputbox(“请输入一个数请输入一个数”）If x=0 then ABSX =x else ABSX =-x Endif Print “x,“=ABSXEnd sub 求一个数的绝对值。求一个数的绝对值。Absx=xAbsx=-x程序入口程序入口程序出口程序出口X=0Print“x,“=ABSX分支结构举例合作探究Private sub form93、循环结构：循环结构：依据判断条件成立于否，反复执行循环结构中的某一功能（即循环体），直到条件不成立，退出循环为止。合作探究语句序列1程序入口程序入口程序出口程序出口条件循环体3、循环结构：依据判断条件成立于否，反复执行循环结构中的某一10Private Sub Command1_Click()Dim x As Integer,y As Integerx=1:y=0Do If x Mod 3=1 Then If x Mod 5=2 Then If x Mod 7=4 Then y=x End If End If End If x=x+1 Loop Until y 0 Print 韩信统帅士兵数韩信统帅士兵数:;yEnd Sub循环结构举例（一）合作探究语句格式1:do 循 环 体 loop until 条件A 只要条件不成立只要条件不成立或者说不满足，程或者说不满足，程序就运行循环体语序就运行循环体语句。句。Private Sub Command1_Click()循环11Private Sub Command1_Click()Dim i,s as intS=0For i=1 to 99 step 2S=.Next iPrint“s=“,s End Sub拓展提升例1：请将计算1+3+5+99的值的程序补充完整。循环结构语句格式2:for i=to step s+iPrivate Sub Command1_Click()拓展12拓展提升例2：在下面程序框图中，循环执行的次数是（）50Private Sub Command1_Click()Dim i,s as int i=2:s=2 Do s=s+i i=i+2 Loop until i100 Print“s=“,s End Sub开 始i=2,s=2i=i+2s=s+ii100输出结 束是否拓展提升例2：在下面程序框图中，循环执行的次数是（131、请写出下面程序的运行结果。Private Sub Command1_Click()Dim a,b,c,m As Int a=15 b=60 c=38 if a c then m=c Print“m=;mEnd Sub m=15自主探究1、请写出下面程序的运行结果。m=15自主探究142、写出下列程序的运行结果：Private sub form_click()S=1 For i=1 to 4 s=s*i next i print “s=“,s End sub S=24自主探究2、写出下列程序的运行结果：S=24自主探究15小结小结 编制计算机程序解决问题编制计算机程序解决问题l用计算机程序解决问题的基本过程用计算机程序解决问题的基本过程设计算法设计算法设计算法设计算法分析问题分析问题分析问题分析问题编写程序编写程序编写程序编写程序调试程序调试程序调试程序调试程序检测结果检测结果检测结果检测结果l能够读懂简单的计算机程序。能够读懂简单的计算机程序。l程序的概念、程序设计语言程序的概念、程序设计语言小结 编制计算机程序解决问题用计算机程序解决问题的基16再见！再见！17
展开阅读全文