5.2解析算法的程序实现

1、第五章算法实例的程序实现,5.2 解析算法的程序实现,什么是解析算法（analysis algorithm）,是指用解析的方法找出表示问题的前提条件与结果之间关系的数学表达式，并通过表达式的计算来实现问题求解。 以此为基础，设计出合适的算法，从而编制出正确的程序，利用计算机的高速计算能力，便能快速地获得问题的解。,例1 计算n个并联电阻r的总阻值，输入0表示输入结束。,计算公式：,开始,y,n,结束,输入 r,rs=0,n,输出 “无连接”,y,rs rs+1/r,r 0,rs0,输出 1/rs,输入 r,开始,y,n,结束,输入 r,rs=0,n,输出 “无连接”,y,rs rs+1/r,r

2、 = 0,rs0,输出 1/rs,例2 输入一元二次方程ax2+bx+c=0的系数a、b、c (a0)，计算一元二次方程的根。,设：d=b2-4ac,当d 0时：,h1=,h2=,当d =0时： x1=x2,当d 0时：,无实根,=-b/2a, 用流程图来描述,开始,结束,y,y,n,n,输出 “无实根”,输入 a,b,c,VB中求平方根函数 sqr(x),d b*b-4*a*c,d0,d=0,输出 -b/(2*a),输出 ,(-b+sqr(d)/(2*a) (-b-sqr(d)/(2*a),练习1：现要求编写VB程序实现如下功能：分别在文本框Text1、Text2和Text3中输入三条线段的

3、长度，单击“判断”按钮Command1后，在标签Label1中显示判断结果。程序运行界面如下图所示：,按此要求编写的程序如下：,Private Sub Command1_Click() Dim a As Single, b As Single Dim c As Single, st As String a Val(Text1.Text) b Val(Text2.Text) c Val(Text3.Text) If Not (abc And bc a And ca b) Then st “这三条线不能构成一个三角形 ElseIf a*ab*bc*c Or a*ac*cb*b Or b*bc*ca

4、*a Then st 可以构成一个直角三角形 ElseIf_ a=b And a=c Then st 可以构成一个等边三角形 Else st “可以构成一个不等边斜三角形” End If Label1.Caption st End Sub,练习2 按下面公式计算f的值：,现要求编写VB程序(运行界面如下图所示)，实现如下功能：在文本框Text1中输入x的值，单击“计算”按钮Command1，在标签Label3中显示f的值。,Function f (x As Integer) As Single If x 1 And x 2 Then f Abs(x+3) Else f 2 * x End If End Function Private Sub Command1_Click() Dim x As Single, y As Single x Val(Text1.Text) y f(x) Label3.text=str (y) End Sub,按此要求编