粤教版高中信息技术选修1教案-2.3.1从制作矩形框问题开始-

程序的选择结构 【教学分析】 算法与程序设计是普通高中信息技术课程中选修模块之一，本模块旨在使学生进一步体 验算法思想，了解算法和程序设计在解决问题过程中的地位和作用；能从简单问题出发，设 计解决问题的算法，并能初步使用一种程序设计语言编制程序实现算法解决问题。 “程序的选择结构”是广东教育出版社出版的信息技术选修 1《算法与程序设计》第二 章第三节的内容，共分三课时，本课为第一课时。主要内容是理解选择结构的基本格式并能 用选择结构编写简单的程序解决具体问题。用选择结构编写简单的程序解决具体问题是在学 生已经掌握了程序设计数据的表示与处理的基础上，理解了顺序结构的前题下提出的。 通过本课的学习，可以促进学生对问题解决方法和思想的理解与掌握，从而提升学生的 问题解决能力，让学生在按照一定的流程解决问题的过程中，去体会和理解程序设计的思想, 而且也为条件语句的学习打下基础。 【教学目标】 1、知识与技能: (1)掌握选择结构实现条件判断控制。 (2)能够运用分支选择结构设计编制程序解决生活中一些简单的问题。 (3)培养学生分析解决问题的能力。 2、过程与方法: 通过对实际问题的思考,探究,分析,解决进一步体验用计算机程序解决问题 的过程与方法。 3、情感态度与价值观: 通过针对性,实践性很强的实例的学习,调动学生的学习兴趣,在可操作性很 强的实践中获得成功的喜悦。 【学情分析】 高二的学生随着年龄的增长与生理的渐趋成熟,思维能力也相应地有了很大 的提升,在通过对事物进行分析来解决问题的能力方面也有了一定的水平。在此 基础上,在老师的引导与点拔下,通过思考、讨论、探究等方式,再加上学生比较感 兴趣的游戏,和贴近学生日常学习生活的实例来分析选择结构,我想学生会很容易 接受本节课的内容的也会因此而产生较浓兴趣的。 【重点难点】 教学重点:掌握选择结构的格式。 教学难点:灵活运用选择结构的程序来解决生活中的实际问题。 【教学过程】 导入 我们日常中经常会遇到进一些需要选择才能进行下去的的事情。比如：周末了（五一）， 你们准备到哪游玩？去户外玩，前提条件是。如果不下雨，我就…..,如果下雨，则……..。 这就是选择语句。我们来看一句英文：If you enjoy running every morning ,then please put your right hand,else please put your left hand.这个英语对话,主要是引出选择结构的语法(If…… Then……Else) 新课 任务一： 问题：张军找来了一条长度为 L 的铁丝，希望用来制作一个面积为 S 的矩形框。 他问李明：这个矩形的长和宽各为多少，才能使制作出来的矩形框面积为指定值呢？ （一） 分析问题 设矩形长为 x，根据题意，则宽 x1 为(L/2-X),面积 S=x (L/2-X), 化简方程 得： X^2-1/2Lx+S=0，通过求根公式可以得出 x 和 x1 的值。 （二） 设计算法 算法如下： ž 1，输入铁丝长度 L； ž 2，输入矩形框面积 S； ž 3，计算判别式 D=L*L/4-4S; ž 4，如果 D>=0，则计算 ž X=(L/2+sqr(D)/2 和 x1=L/2-X; ž 否则输出“找不到这样的矩形”。 ž 5，结束 （三） 编写代码 ž 请同学把程序空缺的部分补充完整： ž Dim L, s, x, y, d As Single ž L = InputBox("请输入铁丝的长度 L") ž S = InputBox("请输入要围成的矩形面积 S") ž D = L * L / 4 - 4 * S ž If Then ž Print "长方形的长="; (L / 2 + Sqr(D)) / 2 ž Print "长方形的宽="; L / 2 -X ž Else ž Print “ 找不到这样的矩形" ž End If 任务二：猜价格游戏程序填空 ž Dim price as integer ž Price=val(text1.text) ž If then msgbox”猜对了“ ž If then msgbox”猜错了“ 思考：如何用一个 IF 语句完成价格竞猜程序？ price =3899 Msgbox“猜对了！” True Flase 猜错了，再试试 ž 程序填空： Dim price as integer Price=val(text1.text) price =3899 msgbox”猜对了“ msgbox”猜错了“ 任务三：某火车站规定行李托运收费标准：行李重量小于等于 50kg，收行李托运费用 为 50 元；行李重量大于 50kg，多出的部分每公斤收费 0.8 元。请解决这个问题。 1).（学生思考，并到黑板写出函数） 50(x50) 2).学生讨论思考着画出流程图： 3）程序代码： Dim x as Single Dim m as Single x=val(text1.text) If x>50 then m=50+(x-50)*0.8 else m=50 End if Print m 4）学生上机操作： 【总结语法结构】 选择语句 If then 结束 输入公斤数x x>50 m= (x－50)×0.8+50 开始 Y N 输出m m=50 语句 1 或语句组 1 else 语句 2 或语句组 2 Endif 【学生思考】 1.编写一个 vb 程序，输入三个整数，输出其中最大的数。 2.判断一个考试成绩，若大于等于 60，则输出“Pass！”，否则输出“Work hard！”。