41編制計(jì)算機(jī)程序解決問題(第三課時(shí))課件

4.1編制計(jì)算機(jī)程序解決問題體驗(yàn)編程安丘二中李永亮4.1編制計(jì)算機(jī)程序解決問題體驗(yàn)編程安丘二中李永亮11、了解編制程序的基本過程。2、掌握算法的三種基本邏輯結(jié)構(gòu)，能分析簡單的程序。3、激發(fā)同學(xué)們對(duì)算法設(shè)計(jì)和程序編寫的興趣，提高信息素養(yǎng)。教學(xué)目標(biāo)1、了解編制程序的基本過程。教學(xué)目標(biāo)2分析問題設(shè)計(jì)算法編寫程序調(diào)試程序檢測結(jié)果編制計(jì)算機(jī)程序解決問題的過程交流討論？修改分析問題設(shè)計(jì)算法編寫程序調(diào)試程序檢測結(jié)果編制計(jì)算機(jī)程序解決問3算法的三種基本邏輯結(jié)構(gòu)1、順序結(jié)構(gòu)2、分支結(jié)構(gòu)3、循環(huán)結(jié)構(gòu)合作探究算法的三種基本邏輯結(jié)構(gòu)合作探究41、順序結(jié)構(gòu)：是程序設(shè)計(jì)中最基本、最簡單的結(jié)構(gòu)。程序按照語句出現(xiàn)的先后順序依次執(zhí)行。順序結(jié)構(gòu)是任何程序的基本結(jié)構(gòu)，即使在分支結(jié)構(gòu)和循環(huán)結(jié)構(gòu)中也包含有順序結(jié)構(gòu)。

沒有固定的語句格式。合作探究Ι語句序列1語句序列2………語句序列n程序入口程序出口1、順序結(jié)構(gòu)：是程序設(shè)計(jì)中最基本、最簡單的結(jié)構(gòu)。程序按照語句5合作探究Ι順序結(jié)構(gòu)舉例（一）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合作探究Ι順序結(jié)構(gòu)舉例（一）Print"a1",(3>6合作探究ΙPrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=1:y=0DoIfxMod3=1ThenIfxMod5=2ThenIfxMod7=4Theny=xEndIfEndIfEndIfx=x+1LoopUntily>0

Print"韓信統(tǒng)帥士兵數(shù):";yEndSub順序結(jié)構(gòu)舉例（二）DimxAsInteger,yAsIntegerx=1:y=0循環(huán)語句do<循環(huán)體>loopuntil條件>Print"韓信統(tǒng)帥士兵數(shù):";y程序入口程序出口合作探究ΙPrivateSubCommand1_Clic72、分支結(jié)構(gòu)：使程序依據(jù)預(yù)定的條件成立與否，決定執(zhí)行哪個(gè)分支，而且同一時(shí)間只允許執(zhí)行一個(gè)分支。

語句格式:

if<條件>then語句序列1else語句序列2Endif合作探究Ⅱ語句序列1語句序列2程序入口程序出口條件2、分支結(jié)構(gòu)：使程序依據(jù)預(yù)定的條件成立與否，決定執(zhí)行哪個(gè)分支8分支結(jié)構(gòu)舉例合作探究ⅡPrivatesubform_click()Dimxassingle,ABSXassingleX=inputbox(“請(qǐng)輸入一個(gè)數(shù)”）

Ifx>=0thenABSX=xelseABSX=-xEndifPrint“?x?=“,ABSXEndsub求一個(gè)數(shù)的絕對(duì)值。Absx=xAbsx=-x程序入口程序出口X>=0Print“?x?=“,ABSX分支結(jié)構(gòu)舉例合作探究ⅡPrivatesubform93、循環(huán)結(jié)構(gòu)：依據(jù)判斷條件成立于否，反復(fù)執(zhí)行循環(huán)結(jié)構(gòu)中的某一功能（即循環(huán)體），直到條件不成立，退出循環(huán)為止。合作探究Ⅲ語句序列1程序入口程序出口條件循環(huán)體3、循環(huán)結(jié)構(gòu)：依據(jù)判斷條件成立于否，反復(fù)執(zhí)行循環(huán)結(jié)構(gòu)中的某一10PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=1:y=0Do

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

LoopUntily>0Print"韓信統(tǒng)帥士兵數(shù):";yEndSub循環(huán)結(jié)構(gòu)舉例（一）合作探究Ⅲ語句格式1:

do循環(huán)體loopuntil條件A

只要條件不成立或者說不滿足，程序就運(yùn)行循環(huán)體語句。PrivateSubCommand1_Click()循環(huán)11PrivateSubCommand1_Click()Dimi,sasintS=0Fori=1to99step2S=.NextiPrint“s=“,sEndSub拓展提升例1：請(qǐng)將計(jì)算1+3+5+······+99的值的程序補(bǔ)充完整。循環(huán)結(jié)構(gòu)語句格式2:

fori=<數(shù)值1>to<數(shù)值2>step<數(shù)值3>

s+iPrivateSubCommand1_Click()拓展12拓展提升例2：在下面程序框圖中，循環(huán)執(zhí)行的次數(shù)是（）

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

i=i+2Loopuntili>100Print“s=“,sEndSub開始i=2,s=2i=i+2s=s+ii>100輸出結(jié)束是否拓展提升例2：在下面程序框圖中，循環(huán)執(zhí)行的次數(shù)是（131、請(qǐng)寫出下面程序的運(yùn)行結(jié)果。

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

ifa<bthenm=aelsem=b

ifm>cthenm=cPrint“m=";mEndSub

m=15自主探究1、請(qǐng)寫出下面程序的運(yùn)行結(jié)果。m=15自主探究142、寫出下列程序的運(yùn)行結(jié)果：Privatesubform_click()S=1Fori=1to4s=s*inextiprint

“s=“,sEndsubS=24自主探究2、寫出下列程序的運(yùn)行結(jié)果：S=24自主探究15小結(jié)編制計(jì)算機(jī)程序解決問題用計(jì)算機(jī)程序解決問題的基本過程設(shè)計(jì)算法分析問題編寫程序調(diào)試程序檢測結(jié)果能夠讀懂簡單的計(jì)算機(jī)程序。程序的概念、程序設(shè)計(jì)語言小結(jié)編制計(jì)算機(jī)程序解決問題用計(jì)算機(jī)程序解決問題的基16再見！再見！再見！再見！174.1編制計(jì)算機(jī)程序解決問題體驗(yàn)編程安丘二中李永亮4.1編制計(jì)算機(jī)程序解決問題體驗(yàn)編程安丘二中李永亮181、了解編制程序的基本過程。2、掌握算法的三種基本邏輯結(jié)構(gòu)，能分析簡單的程序。3、激發(fā)同學(xué)們對(duì)算法設(shè)計(jì)和程序編寫的興趣，提高信息素養(yǎng)。教學(xué)目標(biāo)1、了解編制程序的基本過程。教學(xué)目標(biāo)19分析問題設(shè)計(jì)算法編寫程序調(diào)試程序檢測結(jié)果編制計(jì)算機(jī)程序解決問題的過程交流討論？修改分析問題設(shè)計(jì)算法編寫程序調(diào)試程序檢測結(jié)果編制計(jì)算機(jī)程序解決問20算法的三種基本邏輯結(jié)構(gòu)1、順序結(jié)構(gòu)2、分支結(jié)構(gòu)3、循環(huán)結(jié)構(gòu)合作探究算法的三種基本邏輯結(jié)構(gòu)合作探究211、順序結(jié)構(gòu)：是程序設(shè)計(jì)中最基本、最簡單的結(jié)構(gòu)。程序按照語句出現(xiàn)的先后順序依次執(zhí)行。順序結(jié)構(gòu)是任何程序的基本結(jié)構(gòu)，即使在分支結(jié)構(gòu)和循環(huán)結(jié)構(gòu)中也包含有順序結(jié)構(gòu)。

沒有固定的語句格式。合作探究Ι語句序列1語句序列2………語句序列n程序入口程序出口1、順序結(jié)構(gòu)：是程序設(shè)計(jì)中最基本、最簡單的結(jié)構(gòu)。程序按照語句22合作探究Ι順序結(jié)構(gòu)舉例（一）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合作探究Ι順序結(jié)構(gòu)舉例（一）Print"a1",(3>23合作探究ΙPrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=1:y=0DoIfxMod3=1ThenIfxMod5=2ThenIfxMod7=4Theny=xEndIfEndIfEndIfx=x+1LoopUntily>0

Print"韓信統(tǒng)帥士兵數(shù):";yEndSub順序結(jié)構(gòu)舉例（二）DimxAsInteger,yAsIntegerx=1:y=0循環(huán)語句do<循環(huán)體>loopuntil條件>Print"韓信統(tǒng)帥士兵數(shù):";y程序入口程序出口合作探究ΙPrivateSubCommand1_Clic242、分支結(jié)構(gòu)：使程序依據(jù)預(yù)定的條件成立與否，決定執(zhí)行哪個(gè)分支，而且同一時(shí)間只允許執(zhí)行一個(gè)分支。

語句格式:

if<條件>then語句序列1else語句序列2Endif合作探究Ⅱ語句序列1語句序列2程序入口程序出口條件2、分支結(jié)構(gòu)：使程序依據(jù)預(yù)定的條件成立與否，決定執(zhí)行哪個(gè)分支25分支結(jié)構(gòu)舉例合作探究ⅡPrivatesubform_click()Dimxassingle,ABSXassingleX=inputbox(“請(qǐng)輸入一個(gè)數(shù)”）

Ifx>=0thenABSX=xelseABSX=-xEndifPrint“?x?=“,ABSXEndsub求一個(gè)數(shù)的絕對(duì)值。Absx=xAbsx=-x程序入口程序出口X>=0Print“?x?=“,ABSX分支結(jié)構(gòu)舉例合作探究ⅡPrivatesubform263、循環(huán)結(jié)構(gòu)：依據(jù)判斷條件成立于否，反復(fù)執(zhí)行循環(huán)結(jié)構(gòu)中的某一功能（即循環(huán)體），直到條件不成立，退出循環(huán)為止。合作探究Ⅲ語句序列1程序入口程序出口條件循環(huán)體3、循環(huán)結(jié)構(gòu)：依據(jù)判斷條件成立于否，反復(fù)執(zhí)行循環(huán)結(jié)構(gòu)中的某一27PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=1:y=0Do

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

LoopUntily>0Print"韓信統(tǒng)帥士兵數(shù):";yEndSub循環(huán)結(jié)構(gòu)舉例（一）合作探究Ⅲ語句格式1:

do循環(huán)體loopuntil條件A

只要條件不成立或者說不滿足，程序就運(yùn)行循環(huán)體語句。PrivateSubCommand1_Click()循環(huán)28PrivateSubCommand1_Click()Dimi,sasintS=0Fori=1to99step2S=.NextiPrint“s=“,sEndSub拓展提升例1：請(qǐng)將計(jì)算1+3+5+······+99的值的程序補(bǔ)充完整。循環(huán)結(jié)構(gòu)語句格式2:

fori=<數(shù)值1>to<數(shù)值2>step<數(shù)值3>

s+iPrivateSubCommand1_Click()拓展29拓展提升例2：在下面程序框圖中，循環(huán)執(zhí)行的次數(shù)是（）

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

i=i+2Loopuntili>100Print“s