高中信息技术选修一解析法穷举法课件.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() t 0 = 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 注意:需要添加 picture1 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 3=2 x mod 5=3 x mod 5=3 x mod 7=2 x mod 7=2 ??采取从小到大一一尝试的办法。采取从小到大一一尝试的办法。很难得到有效的解析式。穷举法穷举法解韩信点兵问题: Private mand1_Click() i = 0 Do i = i + 1 Loo