高中信息技术选修1《解析算法》ppt课件(浙教版)

解析算法 解析算法概念引入 找出表示问题的前提条件与结果之间关系的数学表达式； 并通过表达式转至计算机语言形式进行计算来实现问题的求解。 例1：求一元二次方程的解 分析： 问题的前提条件是什么？ 要求的解是什么？ a、b、c的值 x的值 例1：求一元二次方程的解 分析： a、b、c的值与x存在怎样的等量关系？ 根据a,b,c取值的不同，x的值有三种可能。 1）d<0，x无解 2）d=0， 3）d>0， 应该使用什么算法结构？ 最终用代码形式表示： dim x1,x2 as double dim a,b,c AS Double if b*b-4*a*c<0 then print “方程无解” else if b*b-4*a*c=0 then x1=-b/(2*a) : x2=x1 text1.text =“x1=“+str(x1) text2.text =“x2=“+str(x2) else x1=(-b+sqr(b*b-4*a*c))/(2*a) x2=(-b-sqr(b*b-4*a*c))/(2*a) text1.text =“x1=“+str(x1) text2.text =“x2=“+str(x2) end if end if 例2：求并联电阻阻值问题 分析： 已知条件是什么？ 要求的解是什么？ 已知与结果之间的表达式怎么写？ 并联后的阻值R 两电阻的阻值R1，R2 并联电阻阻值的倒数=各个支路上阻值的倒数之和 1、求两并联电阻的阻值 矩形框中应填入的语句为（ ） R=1/R1+1/R2 1/R=1/R1+1/R2 C.R=(R1+R2)/R1*R2 D. R=R1*R2/(R1+R2) D Dim R1,R2,R as double R1=Val(InputBox(“输入R1的阻值”)) R2=Val(InputBox(“输入R2的阻值”)) R=R1*R2/(R1+R2) Print “并联后的阻值为”;R 例2：求并联电阻阻值问题 所求问题的前提条件是什么？ 要求的解是什么？ 已知与结果之间的表达式怎么写？ 2、求多个并联电阻的阻值 把n个电阻并联在一起。请设计算法求n个并联电阻的总阻值（我们与使用者约定当输入的阻值为0时即输入完毕） R1、R2、R3……Rn的阻值 并联后的阻值Rs 使用算法中的什么结构来解题？ 例2：求并联电阻阻值问题 需要哪些变量？ 循环体语句怎么写？ 循环控制条件是什么？ R： 存储每一次输入的电阻值 RS： 存储电阻倒数的累加值 输入R的值 R=0？ 课堂作业： 储蓄顾问 纸张折叠问题 砖块问题（选做） 课堂小结 解析算法的解题思路： 1）明确问题的前提条件 2）明确要求的解 3）寻找前提条件与结果之间的数学表达式 解析算法的算法结构有哪些？ 输入 输出 处理 顺序 分支 循环 根据具体问题具体分析，解析算法没有固定的算法结构。 ① ② ③ 储蓄顾问: 银行将设计一个计算机程序，专门回答储户如下的问题：“M元钱需要存多少年，才能得到至少K元本息。（为简单起见，算法中暂不考虑利息税问题）为简单起见，假定银行公布的储蓄规则为： （1）存期以年为单位，存款以元为单位； （2）不论存期的长短，年利率均为2.8%； （3）不计复利。 Private Sub Command1_Click() Dim x As Double m = Val(Text1.Text) k = Val(Text2.Text) x = (k - m) / (0.028 * m) y = Fix(x) If y < x Then y = y + 1 Text3.Text = "存款应为" + Str(y) + "年" End Sub Private Sub Text1_Click() Text1.Text = "": Text2.Text = "": Text3.Text = "" End Sub 源程序 纸张折叠问题 一张 0.1毫米厚的纸张（假设其足够大，可以一直折叠），请问经过 次对折后它的厚度可以超过珠穆朗玛峰（8848米）？ 利用循环结构解决问题 算法分析： 1）需要的变量：c（计数器，记录折叠的次数）d（记录当前纸张厚度）。 2）循环体语句：每循环一次，就对折一次，并计数一次。 3）循环判断条件：什么时候停止循环？———即纸张厚度超过指定值时。 Dim c as Integer Dim d as Double c = 0 d = 0.0001 Do While d<8848 d=2*d c = c + 1 Loop Print "对折"; c; "次后,纸张的高度将超过珠穆朗玛峰" ? 纸张折叠问题 流程图框图如下： 谢 谢 ... ...