31解析算法及程序?qū)崿F(xiàn)課件

1．解析算法的概念①解析：用數(shù)學(xué)公式描述客觀事物間的數(shù)量關(guān)系。②解析算法：用解析的方法找出表示問題的前提條件與結(jié)果之間關(guān)系的數(shù)學(xué)表達(dá)式，并通過表達(dá)式的計(jì)算來實(shí)現(xiàn)問題的求解。例如：計(jì)算以速度v作為勻速直線運(yùn)動的一個物體，在t秒內(nèi)經(jīng)過的距離s，則可通過公式s＝vt得到。3.1解析算法及程序?qū)崿F(xiàn)第三章算法的程序?qū)崿F(xiàn)1．解析算法的概念3.1解析算法及程序?qū)崿F(xiàn)第三章算2．解析算法的程序?qū)崿F(xiàn)①建立正確的數(shù)學(xué)模型(得出正確的數(shù)學(xué)計(jì)算式)②將數(shù)學(xué)表達(dá)式轉(zhuǎn)換為VB表達(dá)式用VB編制解析算法程序時，必須保證計(jì)算過程描述的正確性。特別是把數(shù)學(xué)表達(dá)式轉(zhuǎn)換成VB表達(dá)式時，必須注意這種轉(zhuǎn)換的正確性，否則容易發(fā)生運(yùn)算結(jié)果錯誤或運(yùn)行過程出錯。2．解析算法的程序?qū)崿F(xiàn)本課的重點(diǎn)是解析算法及其程序?qū)崿F(xiàn)。通過本節(jié)課的學(xué)習(xí)，復(fù)習(xí)并掌握VB程序設(shè)計(jì)語言的基本運(yùn)算符、表達(dá)式、賦值語句等內(nèi)容，特別是表達(dá)式的書寫?？疾榉绞綖檫x擇題與填空題。本課的重點(diǎn)是解析算法及其程序?qū)崿F(xiàn)。通過本節(jié)課的學(xué)習(xí)，復(fù)習(xí)并掌計(jì)算長方體體積的算法描述如下：①輸入長方體的長(z)、寬(w)、高(h)②計(jì)算長方形體積v＝z*w*h③輸出結(jié)果④結(jié)束上述算法屬于 (

)A．枚舉算法 B．排序算法C．解析算法 D．遞歸算法C計(jì)算長方體體積的算法描述如下：C下列問題適合用解析算法求解的是 (

)A．將十三張紙牌按從小到大進(jìn)行排列B．統(tǒng)計(jì)100內(nèi)偶數(shù)的各位數(shù)字之和恰好為10的個數(shù)C．計(jì)算一輛車行駛100公里的油耗D．尋找本年級身高最高的同學(xué)C下列問題適合用解析算法求解的是 ()C有如下問題：①已知圓錐的半徑ｒ和高度ｈ，使用公式Ｖ錐＝求出此圓錐體的體積。②已知班級每位同學(xué)的期中成績總分s，按照s的值從大到小進(jìn)行成績排名。③已知圓的周長s，利用公式ｒ＝s/(2*3.14)求出圓的半徑r。④已知“水仙花數(shù)”的定義，找出1~10000范圍內(nèi)所有的水仙花數(shù)。用計(jì)算機(jī)解決上述問題時，適合用解析算法的是（

）A．①② B．①③ C．③④ D．②④B有如下問題：BA4．出租車計(jì)價(jià)規(guī)則：3公里以內(nèi)，10元；超出3公里每公里增加2元。假定公里數(shù)為x，金額為y。解決此問題的公式和流程圖如下圖所示：

流程圖加框處部分的算法屬于(

)A．解析算法B．排序算法C．枚舉算法D．遞歸算法A4．出租車計(jì)價(jià)規(guī)則：3公里以內(nèi)，10元；超出3公里每公里現(xiàn)要求編寫VB程序?qū)崿F(xiàn)如下功能：分別在文本框Text1、Text2和Text3中輸入三條線段的長度，單擊“判斷”按鈕Command1后，在標(biāo)簽Label1中顯示判斷結(jié)果。程序運(yùn)行界面如下圖所示：按此要求編寫的程序如下：現(xiàn)要求編寫VB程序?qū)崿F(xiàn)如下功能：分別在文本框Text1、TePrivateSubCommand1_Click()DimaAsSingle,bAsSingleDimcAsSingle,stAsStringa＝Val(Text1.Text)b＝Val(Text2.Text)c＝Val(Text3.Text)IfNot(a＋b>cAndb＋c>aAndc＋a>b)Then

st＝“這三條線不能構(gòu)成一個三角形"ElseIfa*a＋b*b＝c*cOra*a＋c*c＝b*bOrb*b＋c*c＝a*aThen

st＝"

可以構(gòu)成一個直角三角形"ElseIf_①______________________Then

st＝"

可以構(gòu)成一個等邊三角形"Else

st＝“可以構(gòu)成一個不等邊斜三角形”PrivateSubCommand1_Click()EndIfLabel1.Caption＝_②_________EndSub劃線處應(yīng)填寫的正確的語句是(1)劃線處①______________________（2）劃線處②______________________注：該示例程序在素材文件夾下vb8文件夾中。sta=bAnda=cEndIfsta=bAnda=cs+(i-1)/i下列VB程序段實(shí)現(xiàn)計(jì)算s＝1＋1/2＋2/3＋3/4＋…＋99/100的值。請將下面劃線處的代碼補(bǔ)充完整。PrivateSubCommand1_Click()DimiAsIntegerDimsAsDoubles＝1Fori＝2To100

s＝________Nextitext1.Text＝Str(s)EndSub程序劃線處應(yīng)填入的內(nèi)容是______________________。s+(i-1)/i下列VB程序段實(shí)現(xiàn)計(jì)算s＝1＋1/2＋2用解析算法求物體重力的VB程序代碼如下：PrivateSubCommand1_Click()DimgAsSingleDimmAsSinglem＝Val(Text1.Text)g＝m*9.8Label1.Caption＝Str(g)EndSub程序界面如下圖所示：用解析算法求物體重力的VB程序代碼如下：程序界面如下圖所示：在文本框輸入15，單擊“計(jì)算”按鈕Command1后，標(biāo)簽Label1中顯示的內(nèi)容是______。注：該示例程序在素材文件夾下vb9件夾中。147在文本框輸入15，單擊“計(jì)算”按鈕Command1后，標(biāo)簽L根據(jù)臀圍計(jì)算褲子尺寸的換算有以下公式：①尺＝厘米*0.03；②碼＝厘米*0.3＋7。如臀圍為90厘米，那么在購買時需要選2.7尺(90*0.03)也即34碼(90*0.3+7)的褲子。下面VB程序可用于解決此實(shí)際問題，程序運(yùn)行界面如下圖所示。運(yùn)行程序，在文本框Text1中輸入臀圍，單擊“計(jì)算”按鈕Command1，在標(biāo)簽Label2中顯示褲子購買的參考尺寸，程序代碼如下：根據(jù)臀圍計(jì)算褲子尺寸的換算有以下公式：PrivateSubCommand1_Click()DimnAsSingleDimcAsSingleDimmAsIntegern＝Int(Val(Text1.Text))c＝n*0.03m＝__________________________________Label2.Caption＝“你需要購買”＋Str(c)＋“尺(“＋Str(m)＋”)碼的褲子”EndSub程序劃線處應(yīng)填入的內(nèi)容是____________________________________。注：該示例程序在素材文件下vb10文件夾中。Int(n*0.3+7)PrivateSubCommand1_Click()In某書店出租圖書的費(fèi)用標(biāo)準(zhǔn)如下：借書一天內(nèi)，收費(fèi)2元；借書超過一天的，超過部分按每天0.8元收取。最后費(fèi)用按四舍五入折算成整數(shù)。程序算法結(jié)構(gòu)與運(yùn)行界面如下圖所示。某書店出租圖書的費(fèi)用標(biāo)準(zhǔn)如下：借書一天內(nèi)，收費(fèi)2元；借書超過下面VB程序用于解決此問題PrivateSubCommand1_Click()DimnAsInteger

'①n＝Val(Text1.Text)Ifn<1Then

MsgBox“輸入錯誤”ElseIfn＝1Then

s＝2Else

'②EndIfText2.Text＝Str(s)EndSubDimsAsSingles=2+n*0.8下面VB程序用于解決此問題DimsAsSingles=程序加框處代碼有誤，請修改以實(shí)現(xiàn)該程序的功能。(1)加框①處應(yīng)改為______________________________________。(2)加框②處應(yīng)改為______________________________________。DimsAsIntegers=2+(n-1)*0.8程序加框處代碼有誤，請修改以實(shí)現(xiàn)該程序的功能。DimsA下列VB程序?qū)崿F(xiàn)如下功能：程序運(yùn)行時，在文本框Text1和Text2中分別輸入x和n的值，單擊命令按鈕Command1后，調(diào)用函數(shù)f計(jì)算s的值，并在文本框Text3中顯示計(jì)算結(jié)果。其中下列VB程序?qū)崿F(xiàn)如下功能：程序運(yùn)行時，在文本框Text1和TPrivateSubCommand1_Click()DimxAsSingle,nAsInteger,sAsSinglex＝Val(Text1.Text)n＝Val(Text2.Text)s＝f(x,n)Text3.Text＝①EndIfPrivateFunctionf(xAsSingle,nAsInteger)AsSingleDimsumAsSingle,iAsInteger,tAsSinglesum＝0t＝1Fori＝1Ton

t＝t*x/i

sum＝②PrivateSubCommand1_Click()Nextif＝sumEndFunction請?jiān)趧澗€處填入合適的代碼以實(shí)現(xiàn)該程序的功能。(1)劃線處①________________________________。(2)劃線處②________________________________。注：該示例程序在素材文件下vb11文件夾中。sum+tStr(s)Nexti請?jiān)趧澗€處填入合適的代碼以實(shí)現(xiàn)11．按下面公式計(jì)算f的值：現(xiàn)要求編寫VB程序(運(yùn)行界面如下圖所示)，實(shí)現(xiàn)如下功能：在文本框Text1中輸入x的值，單擊“計(jì)算”按鈕Command1，在標(biāo)簽Label3中顯示f的值。按此要求編寫的程序如下。11．按下面公式計(jì)算f的值：現(xiàn)要求編寫VB程序(運(yùn)行界面如下Functionf(xAsInteger)

AsSingle

'①Ifx<＝1Then

f＝x＋2ElseIfx>1Andx<2Then

f＝'②Else

f＝2*xEndIfEndFunctionPrivateSubCommand1_Click()DimxAsSingle,yAsSinglex＝Val(Text1.Text)y＝f(x)

'③EndSubAbs(x+3)Label3.text=str(y)Functionf(xAsInteger)As加框處代碼有誤，請修正。(1)加框①處應(yīng)改為_________________。(2)加框②處應(yīng)改為_________________。(3)加框③處應(yīng)改為_________________________________。注：該示例程序在素材文件夾下vb12文件夾中。f(xAsSingle)x*xLabel3.Caption=Str(y)加框處代碼有誤，請修正。f(xAsSingle)x*xL1．解析算法的概念①解析：用數(shù)學(xué)公式描述客觀事物間的數(shù)量關(guān)系。②解析算法：用解析的方法找出表示問題的前提條件與結(jié)果之間關(guān)系的數(shù)學(xué)表達(dá)式，并通過表達(dá)式的計(jì)算來實(shí)現(xiàn)問題的求解。例如：計(jì)算以速度v作為勻速直線運(yùn)動的一個物體，在t秒內(nèi)經(jīng)過的距離s，則可通過公式s＝vt得到。3.1解析算法及程序?qū)崿F(xiàn)第三章算法的程序?qū)崿F(xiàn)1．解析算法的概念3.1解析算法及程序?qū)崿F(xiàn)第三章算2．解析算法的程序?qū)崿F(xiàn)①建立正確的數(shù)學(xué)模型(得出正確的數(shù)學(xué)計(jì)算式)②將數(shù)學(xué)表達(dá)式轉(zhuǎn)換為VB表達(dá)式用VB編制解析算法程序時，必須保證計(jì)算過程描述的正確性。特別是把數(shù)學(xué)表達(dá)式轉(zhuǎn)換成VB表達(dá)式時，必須注意這種轉(zhuǎn)換的正確性，否則容易發(fā)生運(yùn)算結(jié)果錯誤或運(yùn)行過程出錯。2．解析算法的程序?qū)崿F(xiàn)本課的重點(diǎn)是解析算法及其程序?qū)崿F(xiàn)。通過本節(jié)課的學(xué)習(xí)，復(fù)習(xí)并掌握VB程序設(shè)計(jì)語言的基本運(yùn)算符、表達(dá)式、賦值語句等內(nèi)容，特別是表達(dá)式的書寫。考查方式為選擇題與填空題。本課的重點(diǎn)是解析算法及其程序?qū)崿F(xiàn)。通過本節(jié)課的學(xué)習(xí)，復(fù)習(xí)并掌計(jì)算長方體體積的算法描述如下：①輸入長方體的長(z)、寬(w)、高(h)②計(jì)算長方形體積v＝z*w*h③輸出結(jié)果④結(jié)束上述算法屬于 (

)A．枚舉算法 B．排序算法C．解析算法 D．遞歸算法C計(jì)算長方體體積的算法描述如下：C下列問題適合用解析算法求解的是 (

)A．將十三張紙牌按從小到大進(jìn)行排列B．統(tǒng)計(jì)100內(nèi)偶數(shù)的各位數(shù)字之和恰好為10的個數(shù)C．計(jì)算一輛車行駛100公里的油耗D．尋找本年級身高最高的同學(xué)C下列問題適合用解析算法求解的是 ()C有如下問題：①已知圓錐的半徑ｒ和高度ｈ，使用公式Ｖ錐＝求出此圓錐體的體積。②已知班級每位同學(xué)的期中成績總分s，按照s的值從大到小進(jìn)行成績排名。③已知圓的周長s，利用公式ｒ＝s/(2*3.14)求出圓的半徑r。④已知“水仙花數(shù)”的定義，找出1~10000范圍內(nèi)所有的水仙花數(shù)。用計(jì)算機(jī)解決上述問題時，適合用解析算法的是（

）A．①② B．①③ C．③④ D．②④B有如下問題：BA4．出租車計(jì)價(jià)規(guī)則：3公里以內(nèi)，10元；超出3公里每公里增加2元。假定公里數(shù)為x，金額為y。解決此問題的公式和流程圖如下圖所示：

流程圖加框處部分的算法屬于(

)A．解析算法B．排序算法C．枚舉算法D．遞歸算法A4．出租車計(jì)價(jià)規(guī)則：3公里以內(nèi)，10元；超出3公里每公里現(xiàn)要求編寫VB程序?qū)崿F(xiàn)如下功能：分別在文本框Text1、Text2和Text3中輸入三條線段的長度，單擊“判斷”按鈕Command1后，在標(biāo)簽Label1中顯示判斷結(jié)果。程序運(yùn)行界面如下圖所示：按此要求編寫的程序如下：現(xiàn)要求編寫VB程序?qū)崿F(xiàn)如下功能：分別在文本框Text1、TePrivateSubCommand1_Click()DimaAsSingle,bAsSingleDimcAsSingle,stAsStringa＝Val(Text1.Text)b＝Val(Text2.Text)c＝Val(Text3.Text)IfNot(a＋b>cAndb＋c>aAndc＋a>b)Then

st＝“這三條線不能構(gòu)成一個三角形"ElseIfa*a＋b*b＝c*cOra*a＋c*c＝b*bOrb*b＋c*c＝a*aThen

st＝"

可以構(gòu)成一個直角三角形"ElseIf_①______________________Then

st＝"

可以構(gòu)成一個等邊三角形"Else

st＝“可以構(gòu)成一個不等邊斜三角形”PrivateSubCommand1_Click()EndIfLabel1.Caption＝_②_________EndSub劃線處應(yīng)填寫的正確的語句是(1)劃線處①______________________（2）劃線處②______________________注：該示例程序在素材文件夾下vb8文件夾中。sta=bAnda=cEndIfsta=bAnda=cs+(i-1)/i下列VB程序段實(shí)現(xiàn)計(jì)算s＝1＋1/2＋2/3＋3/4＋…＋99/100的值。請將下面劃線處的代碼補(bǔ)充完整。PrivateSubCommand1_Click()DimiAsIntegerDimsAsDoubles＝1Fori＝2To100

s＝________Nextitext1.Text＝Str(s)EndSub程序劃線處應(yīng)填入的內(nèi)容是______________________。s+(i-1)/i下列VB程序段實(shí)現(xiàn)計(jì)算s＝1＋1/2＋2用解析算法求物體重力的VB程序代碼如下：PrivateSubCommand1_Click()DimgAsSingleDimmAsSinglem＝Val(Text1.Text)g＝m*9.8Label1.Caption＝Str(g)EndSub程序界面如下圖所示：用解析算法求物體重力的VB程序代碼如下：程序界面如下圖所示：在文本框輸入15，單擊“計(jì)算”按鈕Command1后，標(biāo)簽Label1中顯示的內(nèi)容是______。注：該示例程序在素材文件夾下vb9件夾中。147在文本框輸入15，單擊“計(jì)算”按鈕Command1后，標(biāo)簽L根據(jù)臀圍計(jì)算褲子尺寸的換算有以下公式：①尺＝厘米*0.03；②碼＝厘米*0.3＋7。如臀圍為90厘米，那么在購買時需要選2.7尺(90*0.03)也即34碼(90*0.3+7)的褲子。下面VB程序可用于解決此實(shí)際問題，程序運(yùn)行界面如下圖所示。運(yùn)行程序，在文本框Text1中輸入臀圍，單擊“計(jì)算”按鈕Command1，在標(biāo)簽Label2中顯示褲子購買的參考尺寸，程序代碼如下：根據(jù)臀圍計(jì)算褲子尺寸的換算有以下公式：PrivateSubCommand1_Click()DimnAsSingleDimcAsSingleDimmAsIntegern＝Int(Val(Text1.Text))c＝n*0.03m＝__________________________________Label2.Caption＝“你需要購買”＋Str(c)＋“尺(“＋Str(m)＋”)碼的褲子”EndSub程序劃線處應(yīng)填入的內(nèi)容是____________________________________。注：該示例程序在素材文件下vb10文件夾中。Int(n*0.3+7)PrivateSubCommand1_Click()In某書店出租圖書的費(fèi)用標(biāo)準(zhǔn)如下：借書一天內(nèi)，收費(fèi)2元；借書超過一天的，超過部分按每天0.8元收取。最后費(fèi)用按四舍五入折算成整數(shù)。程序算法結(jié)構(gòu)與運(yùn)行界面如下圖所示。某書店出租圖書的費(fèi)用標(biāo)準(zhǔn)如下：借書一天內(nèi)，收費(fèi)2元；借書超過下面VB程序用于解決此問題PrivateSubCommand1_Click()DimnAsInteger

'①n＝Val(Text1.Text)Ifn<1Then

MsgBox“輸入錯誤”ElseIfn＝1Then

s＝2Else

'②EndIfText2.Text＝Str(s)EndSubDimsAsSingles=2+n*0.8下面VB程序用于解決此問題DimsAsSingles=程序加框處代碼有誤，請修改以實(shí)現(xiàn)該程序的功能。(1)加框①處應(yīng)改為______________________________________。(2)加框②處應(yīng)改為______________________________________。DimsAsIntegers=2+(n-1)*0.8程序加框處代碼有誤，請修改以實(shí)現(xiàn)該程序的功能。DimsA下列VB程序?qū)崿F(xiàn)如下功能：程序運(yùn)行時，在文本框Text1和Text2中分別輸入x和n的值，單擊命令按鈕Command1后，調(diào)用函數(shù)f計(jì)算s的值，并在文本框Text3中顯示計(jì)算結(jié)果。其中下列VB程序?qū)崿F(xiàn)如下功能：程序運(yùn)行時，在文本框Text1和TPrivateSubCommand1_Click()DimxAsSingle,nAsInteger,sAsSinglex＝Val(Text1.Text)n＝Val(Text2.Text)s＝f(x,n)Text3.Text＝①EndIfPrivateFunctionf(xAsSingle,nAsInteger)AsSingleDimsumAsSingle,iAsInteger,tAsSinglesum＝0t＝1