高中信息技术2.2.1 数组评优课ppt课件

这是一份高中信息技术2.2.1 数组评优课ppt课件

2.2.1 程序的顺序结构 思考：如何测量金字塔的高度M在水平面上选取一条与N点处在同一直线的线段AB作为基线ABa AB长度a、AM与AN之间的夹角α和BM与BN之间夹角β都可以通过测量得到AM与AN之间的夹角为仰角α，BM与BN之间的夹角为仰角βMABa由三角形知识可知：在 RT∆ANM中AN=MN/tanα，同理BN= MN/tanβ而a=BN-AN= MN(1/tanβ-1/tanα)讨论MABaMN=a/(1/ tanβ-1/ tanα) 测量不可抵达物体高度”问题一、分析问题：本质上是具体问题=》数学问题 MN=a/(1/ tanβ-1/ tanα) 二、设计算法三、编写程序四、调试程序MABaMN=a/(1/ tanβ-1/ tanα) 二、设计算法1、输入基线a的长度和仰角α、β的值2、计算1/ tanβ、1/ tanα3、计算MN的值4、输出结果MABa测量不可抵达物体高度”问题一、分析问题：本质上是具体问题=》数学问题 MN=a/(1/ tanβ-1/ tanα) 二、设计算法： 1、输入基线a的长度和仰角α、β的值 2、计算1/ tanβ、1/ tanα 3、计算MN的值 4、输出结果三、编写程序四、调试程序Private Sub Command1_Click()Const pi As Single = 3.14Dim r As Single, s As Singler = InputBox(“r=”, “输入半径”)s = pi * r * rPrint "圆的面积S="; sEnd Sub数据类型说明部分数据输入部分数据输出部分数据处理部分程序中应该有哪些内容？他山之石:MN=a/(1/ tanβ-1/ tanα) 数据的说明：常量说明语句： Const 常量 As 类型 = 表达式变量说明语句： Dim 变量 As 类型单精度类型（Single）Ａ J1 J2 COT1 COT2 MN数据说明部分的代码：Const Pi as single =3.14159Dim Mn As Single, A As singleDim J1 As Single,j2 As SingleDim Cot1 As Single,Cot2 As Single任务1：赋值语句的学习 登录LearnSite学习网站，进入我的学案。点击学案“程序的顺序结构”处的链接。在学案界面按照提示进行操作。数据的输入和处理变量赋值的特性：1、变量中的值被引用后，其值保持不变2、变量被重新赋值后，其总保持最后一次被赋予的值任务2：输入数据的函数inputbox 点击段落后方的“输入数据的函数inputbox.PPT”链接，将本部分的PPT资源下载，保存至本地磁盘。用PowerPoint打开，按功能键F5进行播放，进行InputBox（）函数的学习。2、 InputBox()函数将接收的数据默认为字符型数据！1、如果函数中有缺省内容，对应位置的间隔符"，"不能缺少！ 例：A=InputBox(“A的值为”， ， ，300，90)X=InputBox( "提示信息"，"标题"，默认值，坐标位置) 提示信息 标题 默认值 坐标位置使用InputBox( )函数时应注意的问题：例：Age=InputBox("请输入你的年龄：", "调查", 18) 当该语句被执行时，单击“确定”按钮后，Age的值为字符串“18”观察下面三组代码执行后的结果思考：为什么会出现这种现象？代码3Private Sub command3_click()Dim A As Integer, B As IntegerA = InputBox("A=", "输入A的值")B = InputBox("B=", "输入B的值")A = A + BPrint “代码3的结果为"; AEnd Sub代码1Private Sub command1_click()A = InputBox("A=", "输入A的值")B = InputBox("B=", "输入B的值")A = A + BPrint "代码1的结果为"; AEnd Sub代码2Private Sub command2_click()A = Val(InputBox("A=", "输入A的值"))B = Val(InputBox("B=", "输入B的值"))A = A + BPrint "代码2的结果为"; AEnd Sub程序运行时：两次分别输入123，456数据输入部分的代码：A=Inputbox("基线A=","输入基线A的长度")J1=Inputbox("仰角α=","输入仰角α的弧度值")J2=Inputbox("仰角β =","输入仰角β的弧度值")数据处理部分的代码：Cot1=1/Tan(J1*Pi/180)Cot2=1/Tan(J2*Pi/180)Mn=A/(Cot2-Cot1)任务3：输出语句print 点击段落后方的“输出语句print.PPT”链接，将本部分的PPT资源下载，保存至本地磁盘。用PowerPoint打开，按功能键F5进行播放，进行输出语句Print的学习。输出数据的语句Print格式：Print 输出内容[,输出内容][,……] 输出内容可以是数、变量、表达式，也可以是用双引号括起来的字符串。输出内容可以是一项，也可以是多项。 多项输出格式有2种： 1.输出项目间用逗号隔开为分区输出格式 2.输出项目间用分号隔开为紧凑输出格式数据输出的代码：Print "被测物的高度为";Mn;"米" 各组成部分的代码已经齐备了，只须将各部分代码按照其逻辑顺序汇总一起，就形成了整个程序的代码。三、编写程序Private Sub command1_click()Const Pi as single =3.14159Dim Mn As Single, A As singleDim J1 As Single,j2 As SingleDim Cot1 As Single,Cot2 As SingleA=Inputbox("基线A=","输入基线A的长度")J1=Inputbox("仰角α=","输入仰角α的弧度值")J2=Inputbox("仰角β =","输入仰角β的弧度值")Cot1=1/Tan(J1*Pi/180)Cot2=1/Tan(J2*Pi/180)Mn=A/(Cot2-Cot1)Print "被测物的高度为";Mn;"米"End Sub构建程序界面、输入程序代码： 打开VB程序界面，将窗体调整至合适大小。在窗体内添加一个命令按钮（CommandBox1），双击CommandBox1按钮，将网站上“代码资源”处提供的代码复制至 Private Sub command1_click() 和 End Sub 两行之间。代码录入：测量不可抵达物体高度”问题一、分析问题：本质上是具体问题=》数学问题 MN=a/(1/ tanβ-1/ tanα) 二、设计算法： 1、确定基线a的长度和仰角α、β的值 2、计算1/ tanβ、1/ tanα 3、计算MN的值 4、输出结果三、编写程序四、调试程序运行调试程序：1、检查程序代码中的语法错误2、检查程序的功能性错误 检查方法：单词拼写之类的错误在编辑期间系统能查出报错，其他错误在程序运行时会自动报错。 检查方法：用测试数据验证a、α、β的取值分别为20、38.4、22.8 由于几何原理的原因，这里角α、β之间隐藏了一个约束关系，角α永远大于角β 再运行一次程序，a值不变，α、β的值 互换:a、α、β的取值分别为20、22.8、38.4测量不可抵达物体高度”问题一、分析问题： MN=a/(1/ tanβ-1/ tanα) 二、设计算法： 1、确定基线a的长度和仰角α、β的值 2、计算1/ tanβ、1/ tanα 3、计算MN的值 4、输出结果三、编写程序四、调试程序单步执行代码，监控程序详细运行过程： 1、在代码中选中要监控的表达式，打开VB界面“调试”菜单，选择“快速监视”，将要监控的表达式逐一添加。 2、打开“调试”菜单，选择“逐语句”，然后单击程序界面的命令按钮执行程序，出现黄色提示后，继续按功能键F8可执行后续代码，同时在监视窗口内可观察到表达式值的变化。 从程序语句执行流向的角度上看（程序结构上），此程序是一典型顺序结构的程序特点：1.这个结构按由上到下书写的顺序执行。2.只有一个入口和一个出口。这是一种最简单，最基本的结构。 什么是顺序结构？ 执行时按语句排列的先后顺序依次执行的控制结构称为顺序结构。 同时，从解决问题的模式来看，此程序又是典型的用解析法来解决问题的方法 所谓解析法是指通过分析问题中各要素之间的关系，用最简练的语言或形式化的符号来表达它们的关系，得出解决问题所需的表达式，然后设计程序求解问题的方法。 简单的说，解析法就是把具体问题中的各种关系转化成数学公式，用解数学题的模式解决具体问题。评测与练习： 点右上方的“返回”按钮，在LearnSite学习网站主界面上方的导航栏中单击“常识测验”一栏，在右侧找到 “开始测验”按钮，进行测验。答题结束后在相同位置单击“查看答案”按钮可查看参考答案。鼠标指向题目后方的“提示”位置时可以查阅本题的分析解释。小结：1、什么是顺序结构？ 执行时按语句排列的先后顺序依次执行的控制结构称为顺序结构。2、什么是解析法？ 简单的说，解析法就是把具体问题中的各种关系转化成数学公式，用解数学题的模式解决具体问题。4、键盘输入数据的函数InputBox( ) 格式： X=InputBox( "提示信息"，"标题"，默认值，坐标位置)3、赋值语句基本格式：变量 = 表达式5、输出数据语句Print基本格式： Print 输出内容