4.1用解析法设计程序.ppt

第四章算法与程序实现

分析问题在直角三角形 ANM 中可以得到： tanA 0 ＝ MN/AN 即： AN ＝ MN/ tan A 0 在直角三角形 BNM 中可以得到： tan B 0 ＝ MN/BN 即： BN ＝ MN/ tan B 0 所以： AB ＝ BN － AN ＝ MN/tan B 0 － MN/tan A 0 ＝ MN （ 1/ tan B 0 － 1/tan A 0 ）

Private Sub Command1_Click() a = Val(Text1.Text) Alpha = Val(Text2.Text) bata = Val(Text3.Text) pi = 3.14159265 COTA = 1 / Tan(Alpha * pi / 180) COTB = 1 / Tan(bata * pi / 180) MN = a / (COTB - COTA) Text4.Text = MN End Sub 代码

电阻计算问题并联电路示意图

分析问题根据并联电路电阻的计算公式， 1 ／ R=1 ／ R1 十 1 ／ R2 ，以 R2=R1 ＋ 2000 代入，即得： 1/R=1/R1+1/(R1+2000) 以 R1 为未知量、 R 为已知量，通过去分母整理可以得到关于 R1 的方程： R1 2 +(2000 － 2*R)*R1 － 2000*R=0 ，解这个关于 R1 的二次方程即可解决问题。

编写程序电阻设计问题的窗体设计图标签 1 标签 2 标签 3 文本框 1 文本框 3 文本框 2 命令按钮

代码 Private Sub Command1_Click() R = Val(Text1.Text) L = 2000 - 2 * R D = L * L + 4 * 2000 * R If D >= 0 Then R1 = (-L + Sqr(D)) / 2 Text2.Text = R1 Text3.Text = R1 + 2000 Else Text2.Text = " 不可能 " Text3.Text = " 不可能 " End If End Sub

4.1用解析法设计程序.ppt

More Related Content

Featured (20)

4.1用解析法设计程序.ppt