复习一基本算法实例.doc

基本算法实例教学复习篇 解析算法 概念 解析算法：是指用 解析 的方法找出表示问题的前提条件和结果之间关系的 数学表达式 ，并通过表达式的计算来实现问题的求解。 特点： 找出正确的数学表达式 ，在程序设计时，表达为 计算机表达式（算法表达式） 。 例题： 1）、输入直角三角形的两个直角边的边长a和b,计算出斜边的长度。 数学表达式： 计算机表达式： c=sqr(a^2+b^2) VB程序填空： Dim a As Double, b As Double, c As Double a = (InputBox(“请输入直角三角形的一直角边长：”)) b = (InputBox(“请输入直角三角形的另一直角边长：")) c = sqr(a^2+b^2) ’c为斜边长的变量 Print C_ 此解析算法应用了算法的 顺序 结构 2）、将n个电阻并联，计算n个并联电阻的总阻值。 数学表达式： 计算机表达式： 1/rs=1/R1+1/R2+……+1/Rn VB程序填空： Dim r As Double , rs As Double r = Val(InputBox("输入电阻阻值(输入0表示结束:")) rs = 0 ’rs是求解1/R1+1/R2+……+1/Rn的和的变量 Do While r< > 0 rs= rs+1/r r= _ Val(InputBox("输入电阻阻值(输入0表示结束:")) Loop Print “并联电阻的总电阻值为:” & Str(1 / rs) 此解析算法应用了算法的 循环 结构 3）、数学中的一元二次方程ax2+bx+c=0,现已知系数a、b、c，求方程的解x(已知d=b2-4ac) 1）a=0, 不满足一元二次方程 2）a<>0,d>0,有两个不等的根： 数学表达式： x1= ，x2= 计算机表达式： x1= (-b+sqr(d)) / (2*a)，x2= (-b-sqr(d)) / (2*a) 3）a<>0,d=0,有两个相等的根: 数学表达式： x= 计算机表达式：x= -b / (2*a) 4）a<>0,d<0,方程无根（假设没有虚根） VB程序填空： Dim a As Double, b As Double , c As Double, d As Double, x1 As Double, x2 As Double a = Val(InputBox("输入一元二次方程的系数a:")) b = Val(InputBox("输入一元二次方程的系数b:")) c = Val(InputBox("输入一元二次方程的系数c:")) d = b ^ 2 - 4 * a * c If a = 0 Then Print "不是一元二次方程" Else If d<0 Then Print "此一元二次方程无解" Else If d=0 Then x1= -b/(2*a) Print “此一元二次方程有两个相等的根” ;x1 Else x1 = (-b+sqr(d)) / (2*a) x2 =(-b-sqr(d)) / (2*a) Print "x1="; x1, "x2="; x2 End If End If End if 此解析算法应用了算法的 多重分支结构 结构 总结： 设计解析算法的关键是：寻找正确的数学表达式 解析算法的结构可能是 顺序 结构，也可能是 分支 或 循环 结构，甚至是 几种结构 的组合。 枚举算法 概念 枚举算法：按问题本身的性质,一一（ 列举 ）该问题所有