第二章算法实例解析算法.

1、n是指用解析的方法找出表示问题的前提条件与结果之间关系的，并通过表达式的计算来实现问题求解。n以此为基础，设计出合适的算法，从而编制出正确的程序，利用计算机的高速计算能力，便能快速地获得问题的解。21111RRRTR1R2计算公式：TR1开始结束输出输出R输入输入R1，R2T 1/R1+1/R2R 1/T例例3：计算：计算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统计100内偶数的各位数字之和恰好为10的个数C计算一辆车行驶100公里的油耗D寻找本年级身高最高的同学C 3. 有如下问题：已知圆锥的半径和高度，使用公式锥 求出此圆锥体的体积。已知班

3、级每位同学的期中成绩总分s，按照s的值从大到小进行成绩排名。已知圆的周长s，利用公式s/(2*3.14)求出圆的半径r。已知“水仙花数”的定义，找出110000范围内所有的水仙花数。用计算机解决上述问题时，适合用解析算法的是（ ）ABCDB hr312A 4出租车计价规则：3公里以内，10元；超出3公里每公里增加2元。假定公里数为x，金额为y。解决此问题的公式和流程图如下图所示： 流程图加框处部分的算法属于 ()A解析算法B排序算法C枚举算法D递归算法例例2：输入一元二次方程：输入一元二次方程ax2+bx+c=0的系数的系数a、b、c (a0)，计算一元二次方程的根。，计算一元二次方程的根。设

4、：设：d=b2-4ac当当d 0时：时：无实根无实根=-b/2an 用流程图来描述用流程图来描述开始开始结束结束yynn输出输出 “无实根无实根”输入输入 a,b,cVB中求平方根函数中求平方根函数 sqr(x)d b*b-4*a*cdc And bbc And bc a And cc a And ca b) Thena b) Then stst “这三条线不能构成一个三角形这三条线不能构成一个三角形 ElseIfElseIf a 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 c

5、a a* *a Thena Then stst 可以构成一个直角三角形可以构成一个直角三角形 ElseIfElseIf_ _Then_Then stst 可以构成一个等边三角形可以构成一个等边三角形 Else Elsestst “可以构成一个不等边斜三角形可以构成一个不等边斜三角形” 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. 下列VB程序

6、段实现计算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.Caption Str

7、(g)End Sub程序界面如下图所示：1478.根据臀围计算裤子尺寸的换算有以下公式：尺厘米*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元收取。最后费用按四舍五入折算成整数。程序算法结构与运行界面如下图

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程序实现如下功能：程序运行时，在文本框Text1和Text2中分别输入x和n的值，单击命令按钮Command1后，调用函数f计算s的值，并在文本框Text3中显示计算结果。其中。!nx!3x!2xxsn32Pr

9、ivate 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 As Sin

10、gle, 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 Funct

11、ion请在划线处填入合适的代码以实现该程序的功能。(1)划线处_。(2)划线处_。注：该示例程序在素材文件下vb11文件夹中。sum+tStr(s)11按下面公式计算f的值：现要求编写VB程序(运行界面如下图所示)，实现如下功能：在文本框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