41编制计算机程序解决问题(第三课时)课件

4.1编制计算机程序解决问题体验编程安丘二中李永亮4.1编制计算机程序解决问题体验编程安丘二中李永亮11、了解编制程序的基本过程。2、掌握算法的三种基本逻辑结构，能分析简单的程序。3、激发同学们对算法设计和程序编写的兴趣，提高信息素养。教学目标1、了解编制程序的基本过程。教学目标2分析问题设计算法编写程序调试程序检测结果编制计算机程序解决问题的过程交流讨论？修改分析问题设计算法编写程序调试程序检测结果编制计算机程序解决问3算法的三种基本逻辑结构1、顺序结构2、分支结构3、循环结构合作探究算法的三种基本逻辑结构合作探究41、顺序结构：是程序设计中最基本、最简单的结构。程序按照语句出现的先后顺序依次执行。顺序结构是任何程序的基本结构，即使在分支结构和循环结构中也包含有顺序结构。

没有固定的语句格式。合作探究Ι语句序列1语句序列2………语句序列n程序入口程序出口1、顺序结构：是程序设计中最基本、最简单的结构。程序按照语句5合作探究Ι顺序结构举例（一）Print"a1",(3>2)Print"a2","(3>2)"Print"a3","安丘"+"二中"Print"a4","安丘"&"二中"程序入口程序出口Privatesubform_click()Print"a1",(3>2)Print"a2","(3>2)"Print"a3","安丘"+"二中"Print"a4","安丘"&"二中"Endsub合作探究Ι顺序结构举例（一）Print"a1",(3>6合作探究ΙPrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=1:y=0DoIfxMod3=1ThenIfxMod5=2ThenIfxMod7=4Theny=xEndIfEndIfEndIfx=x+1LoopUntily>0

Print"韩信统帅士兵数:";yEndSub顺序结构举例（二）DimxAsInteger,yAsIntegerx=1:y=0循环语句do<循环体>loopuntil条件>Print"韩信统帅士兵数:";y程序入口程序出口合作探究ΙPrivateSubCommand1_Clic72、分支结构：使程序依据预定的条件成立与否，决定执行哪个分支，而且同一时间只允许执行一个分支。

语句格式:

if<条件>then语句序列1else语句序列2Endif合作探究Ⅱ语句序列1语句序列2程序入口程序出口条件2、分支结构：使程序依据预定的条件成立与否，决定执行哪个分支8分支结构举例合作探究ⅡPrivatesubform_click()Dimxassingle,ABSXassingleX=inputbox(“请输入一个数”）

Ifx>=0thenABSX=xelseABSX=-xEndifPrint“׀x׀=“,ABSXEndsub求一个数的绝对值。Absx=xAbsx=-x程序入口程序出口X>=0Print“׀x׀=“,ABSX分支结构举例合作探究ⅡPrivatesubform93、循环结构：依据判断条件成立于否，反复执行循环结构中的某一功能（即循环体），直到条件不成立，退出循环为止。合作探究Ⅲ语句序列1程序入口程序出口条件循环体3、循环结构：依据判断条件成立于否，反复执行循环结构中的某一10PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=1:y=0Do

IfxMod3=1ThenIfxMod5=2ThenIfxMod7=4Theny=xEndIfEndIfEndIfx=x+1

LoopUntily>0Print"韩信统帅士兵数:";yEndSub循环结构举例（一）合作探究Ⅲ语句格式1:

do循环体loopuntil条件A

只要条件不成立或者说不满足，程序就运行循环体语句。PrivateSubCommand1_Click()循环11PrivateSubCommand1_Click()Dimi,sasintS=0Fori=1to99step2S=.NextiPrint“s=“,sEndSub拓展提升例1：请将计算1+3+5+······+99的值的程序补充完整。循环结构语句格式2:

fori=<数值1>to<数值2>step<数值3>

s+iPrivateSubCommand1_Click()拓展12拓展提升例2：在下面程序框图中，循环执行的次数是（）

50PrivateSubCommand1_Click()Dimi,sasinti=2:s=2Dos=s+i

i=i+2Loopuntili>100Print“s=“,sEndSub开始i=2,s=2i=i+2s=s+ii>100输出结束是否拓展提升例2：在下面程序框图中，循环执行的次数是（131、请写出下面程序的运行结果。

PrivateSubCommand1_Click()Dima,b,c,mAsInta=15b=60c=38

ifa<bthenm=aelsem=b

ifm>cthenm=cPrint“m=";mEndSub

m=15自主探究1、请写出下面程序的运行结果。m=15自主探究142、写出下列程序的运行结果：Privatesubform_click()S=1Fori=1to4s=s*inextiprint

“s=“,sEndsubS=24自主探究2、写出下列程序的运行结果：S=24自主探究15小结编制计算机程序解决问题用计算机程序解决问题的基本过程设计算法分析问题编写程序调试程序检测结果能够读懂简单的计算机程序。程序的概念、程序设计语言小结编制计算机程序解决问题用计算机程序解决问题的基16再见！再见！再见！再见！174.1编制计算机程序解决问题体验编程安丘二中李永亮4.1编制计算机程序解决问题体验编程安丘二中李永亮181、了解编制程序的基本过程。2、掌握算法的三种基本逻辑结构，能分析简单的程序。3、激发同学们对算法设计和程序编写的兴趣，提高信息素养。教学目标1、了解编制程序的基本过程。教学目标19分析问题设计算法编写程序调试程序检测结果编制计算机程序解决问题的过程交流讨论？修改分析问题设计算法编写程序调试程序检测结果编制计算机程序解决问20算法的三种基本逻辑结构1、顺序结构2、分支结构3、循环结构合作探究算法的三种基本逻辑结构合作探究211、顺序结构：是程序设计中最基本、最简单的结构。程序按照语句出现的先后顺序依次执行。顺序结构是任何程序的基本结构，即使在分支结构和循环结构中也包含有顺序结构。

没有固定的语句格式。合作探究Ι语句序列1语句序列2………语句序列n程序入口程序出口1、顺序结构：是程序设计中最基本、最简单的结构。程序按照语句22合作探究Ι顺序结构举例（一）Print"a1",(3>2)Print"a2","(3>2)"Print"a3","安丘"+"二中"Print"a4","安丘"&"二中"程序入口程序出口Privatesubform_click()Print"a1",(3>2)Print"a2","(3>2)"Print"a3","安丘"+"二中"Print"a4","安丘"&"二中"Endsub合作探究Ι顺序结构举例（一）Print"a1",(3>23合作探究ΙPrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=1:y=0DoIfxMod3=1ThenIfxMod5=2ThenIfxMod7=4Theny=xEndIfEndIfEndIfx=x+1LoopUntily>0

Print"韩信统帅士兵数:";yEndSub顺序结构举例（二）DimxAsInteger,yAsIntegerx=1:y=0循环语句do<循环体>loopuntil条件>Print"韩信统帅士兵数:";y程序入口程序出口合作探究ΙPrivateSubCommand1_Clic242、分支结构：使程序依据预定的条件成立与否，决定执行哪个分支，而且同一时间只允许执行一个分支。

语句格式:

if<条件>then语句序列1else语句序列2Endif合作探究Ⅱ语句序列1语句序列2程序入口程序出口条件2、分支结构：使程序依据预定的条件成立与否，决定执行哪个分支25分支结构举例合作探究ⅡPrivatesubform_click()Dimxassingle,ABSXassingleX=inputbox(“请输入一个数”）

Ifx>=0thenABSX=xelseABSX=-xEndifPrint“׀x׀=“,ABSXEndsub求一个数的绝对值。Absx=xAbsx=-x程序入口程序出口X>=0Print“׀x׀=“,ABSX分支结构举例合作探究ⅡPrivatesubform263、循环结构：依据判断条件成立于否，反复执行循环结构中的某一功能（即循环体），直到条件不成立，退出循环为止。合作探究Ⅲ语句序列1程序入口程序出口条件循环体3、循环结构：依据判断条件成立于否，反复执行循环结构中的某一27PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=1:y=0Do

IfxMod3=1ThenIfxMod5=2ThenIfxMod7=4Theny=xEndIfEndIfEndIfx=x+1

LoopUntily>0Print"韩信统帅士兵数:";yEndSub循环结构举例（一）合作探究Ⅲ语句格式1:

do循环体loopuntil条件A

只要条件不成立或者说不满足，程序就运行循环体语句。PrivateSubCommand1_Click()循环28PrivateSubCommand1_Click()Dimi,sasintS=0Fori=1to99step2S=.NextiPrint“s=“,sEndSub拓展提升例1：请将计算1+3+5+······+99的值的程序补充完整。循环结构语句格式2:

fori=<数值1>to<数值2>step<数值3>

s+iPrivateSubCommand1_Click()拓展29拓展提升例2：在下面程序框图中，循环执行的次数是（）

50PrivateSubCommand1_Click()Dimi,sasinti=2:s=2Dos=s+i

i=i+2Loopuntili>100Print“s