高中信息技术选修一解析法穷举法课件.ppt

第三章算法的程序实现一、解析法、穷举法
信息技术组
例1:某超市规定,顾客购买同种商品10件以上(含10件)可享受批发价。请设计一个收款机程序,输入顾客所购买商品的零售价、批发价、购买数量、及付款数,计算出顾客的应付款及找零。
变量分析:
数学模型:
应付款=
找零=付款-应付款
零售价*数量,当数量<10
批发价*数量,当数量>=10
解析表达式
程序代码:
Private mand1_Click()
零售价= Val(InputBox("输入零售价:"))
批发价= Val(InputBox("输入批发价:"))
数量= Val(InputBox("输入购买数量:"))
付款= Val(InputBox("输入付款数:"))
If 数量< 10 Then
应付款= 零售价* 数量
Else
___________________
End If

_____________________
Print "应付款:", 应付款
Print "找零", 找零
End Sub
应付款= 批发价* 数量
找零= 付款- 应付款
解析法:
就是在分析具体问题的基础上,抽取出一个数学模型,这个数学模型能用若干解析表达式表示出来,解决了这些表达式,问题也就得以解决。
用解析法解决问题的关键是寻找_______。
解析表达式
练****已有的研究成果表明,海拔每升高100米,℃。编写程序输入山下的气温及山顶的相对海拔高度,输出山顶的气温。
Private mand1_Click()
t0 = Val(InputBox(“输入山下的气温:"))
h= Val(InputBox(“输入山顶的相对海拔高度:"))
t=_______________

Print “山顶的气温为:", t
End Sub
t0-h/100*
Private mand1_Click()
Const pi =
Dim i As Integer, j As Integer
Dim x1 As Single, y1 As Single
Dim x2 As Single, y2 As Single
Dim a As Single
Dim r As Single
Dim nodes As Integer
(-, )-(, -) '建立坐标系

r = 1
nodes = 15
a = 2 * pi / nodes '弧度数
For i = 1 To nodes '枚举求(x1,y1)
x1 = r * Cos(a * i)
y1 = r * Sin(a * i)
For j = 1 To nodes '枚举求(x2,y2)
If i <> j Then
x2 = r * Cos(a * j)
y2 = r * Sin(a * j)
(x1, y1)-(x2, y2), vbBlue '画线
End If
Next j
Next i
End Sub
注意:mand1
程序代码:
Private mand1_Click()
a1 = Val()
b1 = Val()
c1 = Val()
a2 = Val()
b2 = Val()
c2 = Val()

x = (c2 - b2 * c1) / (a2 - a1 * b2 / b1)
y = (c1 - a1 * x) / b1
= "X=" & x
= "Y=" & y

End Sub
例:韩信点兵
今有物不知其数,三三数之余二,五五数之余三,七七数之余二,问物几何?
求符合条件的最小的数。
尝试用解析法解决:
x mod 3=2
x mod 5=3
x mod 7=2
采取从小到大一一尝试的办法。
很难得到有效的解析式。
穷举法
穷举法解韩信点兵问题:
Private mand1_Click()
i = 0
Do
i = i + 1
Loop Until (i Mod 3=2) And (i Mod 5=3)And (i Mod 7=2)
Print i
End Sub
穷举范围?
条件?
Not((i Mod 3=2) And (i Mod 5=3)And (i Mod 7=2))
1~x
穷举法:(枚举法、列举法)
将求解对象