解析算法的程序实现(ppt课件).pptx

解析算法的程序实现
追一追
Dim v1, v2, t As Double
v1=Val()
v2=Val()

= Str(t)
t=20/(v1-v2)
t=20/(v1-v2)
在某一集中，猫发现了老鼠，准备实施抓捕，老鼠也发现了猫，准备逃跑，已知二者相距20m，猫速度为v1，老鼠速度为v2，求猫需要多久（t）可追到老鼠？
解析算法基本思想
找出表示问题的前提条件与结果之间关系的数学表达式，并通过表达式的计算来实现问题求解。
用VB编写解析算法程序时需注意两点：
1、建立正确的数学表达式；
2、将数学表达式转换成正确的VB表达式。

收费标准:;；，用VB编制程序来表示每次打车相应的车费情况。(X表示路程，Y表示车费)
Y=6 X≤
Y=6+2（X-） <X≤10
Y=6+17+（X-10）X>10
数学表达式：
程序流程图
开始
结束
输入公里数X
X≤
Y=6
Y=23+*(X-10)
输出价格Y
N
Y
Y=6+2*(X-)
X≤10
Y
N
Private Sub Command1_Click()
Dim x As double
Dim y As integer
x = Val()
？
= Str(y)
End Sub
做一做

已知一张足够大的纸的厚度s，折叠多少次(i)后超过世界屋脊珠穆朗玛峰的高度8844米？根据问题设计一个能够给出正确答案的算法，并编写程序。
……
S=S*21
S=S*22
S=S*2i
S>8844?
程序流程图
开始
结束
输入纸厚度s
S<=8844
S=S*2
i = i+1
输出次数i
N
Y
i =0
Private sub command1_click()
Dim i as integer
Dim s as double
s=Val()
i=0
？
=Str(i)
End sub
做一做
课堂小结
解析算法的解题思路：
1）明确问题的前提条件
2）明确要求的解
3）寻找前提条件与结果之间的数学表达式
解析算法的算法结构有哪些？
输入
输出
处理
顺序
分支
循环
根据具体问题具体分析，解析算法没有固定的算法结构。
①
②
③