5.2 解析算法的程序实现课件（18张幻灯片）

课件18张PPT。解析算法的程序实现理解解析算法的思想 2.用解析法解决实际问题，体验程序开发流程简 单 程 序 开 发 流 程 需求分析 设计算法 编写代码 调试运行 用户需求 小明在计算并联电阻的总阻值时，觉得非常难算，请你使用VB编程帮其解决计算两个并联电阻的总电阻值。解析算法思想解析算法：用解析的方法找出表示问题的前提条件与结果之间关系的数学表达式，并通过表达式的计算来实现问题求解。解析算法的关键点找出已知条件和结果之间关系的数学表达式。设计算法，画出流程图流程图转化为代码，并上机调试Private Sub Command1_Click() '定义r1，r2,t,r均为double型 r1 = Val(Text1.Text) r2 = Val(Text2.Text) t = 1 / r1 + 1 / r2 r = 1 / t Text3.Text = Str(r) End Sub用户需求 我们的上帝（客户小明）提出了新的改进要求，小明说：两个电阻的并联阻值我自己还是可以完成的，要不你们帮我改成计算10个电阻的并联阻值吧。调整算法、画出流程图r：电阻值 s：总电阻值 x：循环控制变量输入rs←s+1/r代码编写初始化部分的代码写在哪个事件过程比较合适？Private Sub Text1_Click() List1.Clear Text1.Text = "" Text2.Text = "" s = 0: x = 1 End SubPrivate Sub Form_Load() List1.Clear Text1.Text = "" Text2.Text = "" s = 0: x = 1 End Sub调整算法、画出流程图r：电阻值 s：总电阻值 x：循环控制变量输入rY调整算法、画出流程图r：电阻值 s：总电阻值 x：循环控制变量输入rr>0?清空Text1NY调整算法、画出流程图r：电阻值 s：总电阻值 x：循环控制变量输入rr>0?清空Text1NYText1_ClickText1_KeyPressText1_KeyPress事件过程（示例）Private Sub Text1_KeyPress(KeyAscii As Integer) Dim r As Double If x <= 10 And KeyAscii = 13 Then r = Val(Text1.Text) If r > 0 Then s = s + 1 / r List1.AddItem Str(r) x = x + 1 End If Text1.Text = "" End If If x = 11 Then Text2.Text = Str(1 / s) End Sub 用户需求 哦，My God!!!我们的上帝（客户小明）又来了：我为什么不让你们编一个能算任意个并联电阻的总阻值程序呢。计算多个并联电阻的总阻值r：电阻值 s：总电阻值Text1_ClickText1_KeyPressCommand1_Clickr>0？YN小 结1.解析算法解决实际问题的关键点：找出已知条件和结果之间关系的数学表达式。 2.计算机解决实际问题的一般过程：分析问题?设计算法?编写程序?调试运行。作 业《算法与程序设计》的P105-106实践体验