4－1节用解析法设计程序.ppt

4 1节用解析法设计程序 解析法的概念 通过分析问题中各要素之间的关系 用最简练的语言或形式化的符号来表达它们的关系 得出解决问题所需的表达式 然后设计程序求解问题的方法称为解析法 问题 p96 如图下土所示 MN是竖直于地面的物体 其底部N不可到达 为了测量MN的高度 在地面上选取一条与MN在同一平面的水平线线段AB为基线 测得AB的长为a 20米 在A点向M点张望的仰角A 38 40 在B点向M点张望的仰角B 22 80 试设计程序计算高度MN 20米 1 分析问题 在直角三角形ANM中可以得到 tanA0 MN AN即 AN MN tanA0 在直角三角形BNM中可以得到 tanB0 MN BN即 BN MN tanB0 所以 AB BN AN MN tanB0 MN tanA0 MN 1 tanB0 1 tanA0 设计输入输出界面 从三个文本框中输入基线长a 仰角A0用Alpha代替 B0用Bata代替 计算tanA0的倒数 用COTA表示 即COTA 1 tan A0 3 14159 180 计算tanB0的倒数 用COTB表示 即COTB 1 tan B0 3 14159 180 计算a COTB COTA 输出结果 2 设计算法 3 编写程序 设计窗体如图 PrivateSubCommand1 Click a Val Text1 Text Alpha Val Text2 Text bata Val Text3 Text pi 3 14159265COTA 1 Tan Alpha pi 180 COTB 1 Tan bata pi 180 MN a COTB COTA Text4 Text MNEndSub 参考程序 4 调试程序 参考程序运行的结果 用解析法求解问题的实践 1 电阻计算问题 在一家工厂作社会调查时 张军了解到他们正在进行一项技术改革 其中有一个环节是改变一个局部电路的电阻以观察对整个器件的影响 这个局部电路由并联的两个分支组成 如图4 5 其中一个分支的等效电阻是R1 而另一个分支的等效电阻为R2 因为电路特性的需要 必须保持R2 R1 2000 工厂技术人员希望由这两个分支并联的电路的总电阻R分别取为1000 2000 100000 这样得多次计算R1和R2的电阻值 而这种计算每次都很麻烦 于是张军就编制了一个程序帮他们解决问题 只要输入总电阻R的值 程序就计算出相应的R1和R2的值 张军因此受到了技术员的称赞 你也能编出这个程序吗 R1 R2 1 分析问题 根据并联电路电阻的计算公式 1 R I R1十1 R2 以R2 R1 2000代入 即得 1 R 1 R1 1 R1 2000 以R1为未知量 R为已知量 通过去分母整理可以得到关于R1的方程 R12 2000 2 R R1 2000 R 0 解这个关于R1的二次方程即可解决问题 2 设计算法 输入总电阻R 计算方程R12 2000 2R R1 2000 R 0的判别式 2000 2 R 2 8000 R 如果D 0转 否则转 计算出方程R12 2000 2 R R1 2000 R 0的根R1 2 R 2000 sqr D 2 R1 2 R 2000 sqr D 2肯定是增根 不必计算 把R1和R1 2000在两个文本框内输出 转 输出方程没有解的信息 不可能 结束 3 编写程序 PrivateSubCommand1 Click R Val Text1 Text L 2000 2 RD L L 4 2000 RIfD 0ThenR1 L Sqr D 2Text2 Text R1Text3 Text R1 2000ElseText2 Text 不可能 Text3 Text 不可能 EndIfEndSub 程序代码 学生实践与讨论 1 计算下面表达式的值 1 3 5 999 2 4 6 1000 第一方法 先求分子和分母的乘积 再用分子除以分母 PrivateSubCommand3 Click s 1v 1Fori 1To999Step Nextiss s vText1 Text ssEndSub 分子分S和分母V的结果均超出了取值范围 结果分析 第二方法 1 2 4 6 8 10 1000 3 5 7 999 PrivateSubCommand2 Click m 1n 2s 1Do LoopUntiln 1000Do LoopUntilm 999Text1 Text sEndSub 结果为零 因为做完第一次循环后S的结果已经很小无限趋近零了 结果分析 第三方法 1 2 3 4 5 6 999 1000 Priv