资源简介

3.1 用解析法解决问题
任务一

铁丝围成长方形
⑴用长120厘米的铁丝围成一个长方形，长是宽的1.5倍，求它的宽是多少厘米？
2（1.5x+x）=120
⑵用长c厘米的铁丝围成一个长方形，长是宽的n倍，求它的宽是多少厘米？
2（nx+x）=c
数学模型
一元一次方程
Dim c As Single '铁丝长度
Dim n As Single '长与宽的倍数
Dim a As Single '长方形的宽
c = Val(Text1.Text)
n = Val(Text2.Text)
a = ________________
Text3.Text = Str(a) '输出宽
编写代码实现算法
c / (2 * (n + 1))
任务一

分析具体问题（找出已知与未知的关系）
抽取数学模型
写出解析表达式
编写程序以解决问题
解析法步骤

①分析问题
里程数不同，费用计算方法不同
费用=
分段函数
任务二

出租车计费
9
9+(里程－ 2) ×1.9
(里程≤ 2)
(里程﹥ 2)
②数学模型
③解析表达式
思考：分条件用程序的哪种基本结构？
ⅱ实现算法
Dim s As Single '里程
Dim cost As Single '费用
s = Val(Text1.Text) '输入里程
If ________________ Then

________________
Else
________________
End If
Text2.Text = Str(cost) '输出费用
④编写程序
任务二


输入里程

If________________ Then

________________
Else
________________
End If
输出费用
里程≤ 2
费用=9
费用=9 +(里程－ 2) ×1.9
s <= 2
cost = 9
cost = 9 + (s - 2) *1.9
ⅰ伪代码描述算法

①解析表达式
y=sin(x) x∈[-2π，2π]
任务三

绘制正弦图像
⑴用学过的数学知识在纸上画出正弦函数在[-2π，2π]内的轨迹。
⑵VB绘制正弦图像
ⅱ实现算法
Dim x As Single '横坐标
Dim y As Single '纵坐标
Const pi = 3.14159
Form1.Scale (-10, 5)-(10, -5) '定坐标
For x =_______ To _______ Step _____
________________
Form1.PSet (x, y), vbRed '画点
Next x
②编写程序
任务三

ⅰ自然语言描述算法

-2*pi
y = Sin(x)
Step1：建立坐标系
Step2：x=-2π
Step3：y=sin(x)
Step4：画点（x,y）
Step5：x=x+0.01
Step6：若x≤2π，返回Step3，
否则下一步
Step7：结束
2*pi
0.01
#提示#
设置坐标：对象名.Scale（左上角坐标）-（右下角坐标）
画点：对象名.PSet（横坐标，纵坐标）,颜色
思考：重复画点用程序的哪种基本结构？
练习

(2016学考)问题：求s=1×2－2×3＋3×4－4×5 ＋…－98×99＋99×100的值。
算法描述如右图所示，请将下列程序补充完整。
Private Sub Form_Click()
Dim k As Integer
Dim s As Integer
s=0
For k = 1 To (1)
If k Mod 2 (2) 0 Then
s=s+k*(k+1)
Else
s= (3)
End If
Next k
Print " s=";s
End Sub
99
<>
s - k*(k+1)
小结
⒈解析法适用范围
不能解决所有问题
可以解决通过定量分析，并能用解析表达式进行描述的问题
⒉解析法设计算法的关键
找出描述求解问题的解析表达式
谢谢

展开更多......

收起↑