第二章算法實例算法

1、n是指用解析的方法找出表示問題的前提條件與結果之間關系的，并通過表達式的計算來實現(xiàn)問題求解。n以此為基礎，設計出合適的算法，從而編制出正確的程序，利用計算機的高速計算能力，便能快速地獲得問題的解。21111RRRTR1R2計算公式：TR1開始結束輸出輸出R輸入輸入R1，R2T 1/R1+1/R2R 1/T例例3：計算：計算n個并聯(lián)電阻個并聯(lián)電阻r的總阻值，輸入的總阻值，輸入0表示輸入結束。表示輸入結束。r1r2rnnrrrrrs1.11121計算公式：開始開始yn結束結束輸入輸入 rrs=0n輸出輸出 “無連接無連接”ynrrrrrs1.11121rs rs+1/rr 0rs0輸出輸出 1/r

2、s輸入輸入 r開始開始yn結束結束輸入輸入 rrs=0n輸出輸出 “無連接無連接”ynrrrrrs1.11121rs rs+1/rr = 0rs0輸出輸出 1/rs1. 計算長方體體積的算法描述如下：輸入長方體的長(z)、寬(w)、高(h)計算長方形體積vz*w*h輸出結果結束上述算法屬于()A枚舉算法B排序算法C解析算法D遞歸算法C 2. 下列問題適合用解析算法求解的是 ()A將十三張紙牌按從小到大進行排列B統(tǒng)計100內偶數(shù)的各位數(shù)字之和恰好為10的個數(shù)C計算一輛車行駛100公里的油耗D尋找本年級身高最高的同學C 3. 有如下問題：已知圓錐的半徑和高度，使用公式錐 求出此圓錐體的體積。已知班

3、級每位同學的期中成績總分s，按照s的值從大到小進行成績排名。已知圓的周長s，利用公式s/(2*3.14)求出圓的半徑r。已知“水仙花數(shù)”的定義，找出110000范圍內所有的水仙花數(shù)。用計算機解決上述問題時，適合用解析算法的是（ ）ABCDB hr312A 4出租車計價規(guī)則：3公里以內，10元；超出3公里每公里增加2元。假定公里數(shù)為x，金額為y。解決此問題的公式和流程圖如下圖所示： 流程圖加框處部分的算法屬于 ()A解析算法B排序算法C枚舉算法D遞歸算法例例2：輸入一元二次方程：輸入一元二次方程ax2+bx+c=0的系數(shù)的系數(shù)a、b、c (a0)，計算一元二次方程的根。，計算一元二次方程的根。設

4、：設：d=b2-4ac當當d 0時：時：無實根無實根=-b/2an 用流程圖來描述用流程圖來描述開始開始結束結束yynn輸出輸出 “無實根無實根”輸入輸入 a,b,cVB中求平方根函數(shù)中求平方根函數(shù) sqr(x)d b*b-4*a*cdc And bbc And bc a And cc a And ca b) Thena b) Then st st “這三條線不能構成一個三角形這三條線不能構成一個三角形 ElseIf a ElseIf a* *a ab b* *b bc c* *c Or ac Or a* *a ac c* *c cb b* *b Or bb Or b* *b bc c* *c

5、 ca a* *a Thena Then st st 可以構成一個直角三角形可以構成一個直角三角形 ElseIf_ ElseIf_Then_Then st st 可以構成一個等邊三角形可以構成一個等邊三角形 Else Elsest st “可以構成一個不等邊斜三角形可以構成一個不等邊斜三角形” End If End If Label1.Caption Label1.Caption _ _ _ End Sub End Sub 劃線處應填寫的正確的語句是劃線處應填寫的正確的語句是 (1) (1)劃線處劃線處 _（2 2）劃線處）劃線處 _ _sta=b And a=c s+(i-1)/i 6. 下

6、列VB程序段實現(xiàn)計算s11/22/33/499/100的值。請將下面劃線處的代碼補充完整。Private Sub Command1_Click() Dim i As Integer Dim s As Double s 1 For i 2 To 100 s _ Next i text1.Text Str(s)End Sub程序劃線處應填入的內容是_。7. 用解析算法求物體重力的VB程序代碼如下：Private Sub Command1_Click() Dim g As Single Dim m As Single m Val(Text1.Text) g m * 9.8 Label1.Captio

7、n Str(g)End Sub程序界面如下圖所示：1478.根據(jù)臀圍計算褲子尺寸的換算有以下公式：尺厘米*0.03；碼厘米*0.37。如臀圍為90厘米，那么在購買時需要選2.7尺(90*0.03)也即34碼(90*0.3+7)的褲子。下面VB程序可用于解決此實際問題，程序運行界面如下圖所示。運行程序，在文本框Text1中輸入臀圍，單擊“計算”按鈕Command1，在標簽Label2中顯示褲子購買的參考尺寸，程序代碼如下：Int(n*0.3+7) 9. 某書店出租圖書的費用標準如下：借書一天內，收費2元；借書超過一天的，超過部分按每天0.8元收取。最后費用按四舍五入折算成整數(shù)。程序算法結構與運行

8、界面如下圖所示。下面VB程序用于解決此問題Private Sub Command1_Click() Dim n As Integer n Val(Text1.Text) If n 1 Then MsgBox “輸入錯誤” ElseIf n 1 Then s 2 Else End If Text2.Text Str(s) End SubDim s As Singles=2+n*0.810. 下列VB程序實現(xiàn)如下功能：程序運行時，在文本框Text1和Text2中分別輸入x和n的值，單擊命令按鈕Command1后，調用函數(shù)f計算s的值，并在文本框Text3中顯示計算結果。其中。!nx!3x!2xxs

9、n32Private Sub Command1_Click ( ) Private Sub Command1_Click ( ) Dim x As Single , n As Integer, s As Single Dim x As Single , n As Integer, s As Single x x Val(Text1.Text)Val(Text1.Text) n n Val(Text2.Text)Val(Text2.Text) s s f(x , n)f(x , n) Text3.Text Text3.Text End IfEnd IfPrivate Function f(x A

10、s Single, n As Integer ) As SinglePrivate Function f(x As Single, n As Integer ) As Single Dim sum As Single, i As Integer, t As Single Dim sum As Single, i As Integer, t As Single sum sum 0 0 t t 1 1 For i For i 1 To n1 To n t t t t * * x / i x / i sum sum Next Next i i f f sumsum End Function End

11、Function請在劃線處填入合適的代碼以實現(xiàn)該程序的功能。(1)劃線處_。(2)劃線處_。注：該示例程序在素材文件下vb11文件夾中。sum+tStr(s)11按下面公式計算f的值：現(xiàn)要求編寫VB程序(運行界面如下圖所示)，實現(xiàn)如下功能：在文本框Text1中輸入x的值，單擊“計算”按鈕Command1，在標簽Label3中顯示f的值。按此要求編寫的程序如下。Function f(x As Integer) As Single If x 1 And x 2 Then f Else f 2 * x End IfEnd FunctionPrivate Sub Command1_Click() Dim x As Single, y As Single x Val(Text1.Text) y f(x) End SubAbs(x+3)Labe