教科高中信息技术选修1 3.1 用解析法解决问题 教案

《3.1用解析法解决问题》教学设计一、教材分析

本节为《算法与程序设计》（教育科学出版社）第三章第一节的内容，包含解析法的概念、适用条件、使用方法。在了解解析法含义及适用条件的基础上，通过使用解析法解决具体问题，掌握解析法的使用方法。课本用钻石图案的例子介绍解析法的使用。本人认为这样的例子不太适合我所教的学生，一是程序过于复杂，二是不易引起学生的兴趣。二、学情分析高一学生好奇心强，已经学习了程序的三种基本结构，对算法和程序设计有了一定的认识，具备了一定的逻辑分析能力。但学生的数学基础为一般水平，对于设计完整的程序还存在困难。三、教学目标

1.知识与技能：了解解析法，学会用解析法分析问题、解决问题，学会编写程序实现解析法。2.过程与方法：经历分析问题、求出解析表达式、设计算法、编写和调试程序，了解解析法的思想，学会用解析法解决具体问题。培养分析、比较、迁移能力。3.情感态度与价值观：⑴养成积极主动的学习态度。⑵提升自主学习、合作学习和探究学习的能力。⑶增强与人合作交流的意识。

四、教学重难点

教学重点：求出解析表达式，编写程序实现算法以解决实际问题。

教学难点：用解析法分析问题，抽取出一个数学模型，用VB语言实现解析表达式以求解问题。五、教学策略选择与设计采用任务驱动—体验探究法，以学生为主体，以任务驱动为主线，布置三个任务，由易到难，层层递进，让学生学会分析问题和解决问题，提高学习兴趣。通过小组协作互相促进，以学生为中心，开展小组讨论，探索实践，努力让学生在自主、合作、探究的氛围中开展学习活动。六、教学资源与工具设计课件、不完整程序、学案、多媒体网络教室、投影仪。七、教学过程㈠情境导入展示金属丝做成的自行车工艺品，提出问题：金属丝的总长度与自行车的长宽高有没有约束关系？【设计意图：通过实例，引出本节课的内容，激发学生学习兴趣】㈡学习新知布置任务一：铁丝围成长方形 ⑴用长120厘米的铁丝围成一个长方形，长是宽的1.5倍，求它的宽是多少厘米？请用学过的数学知识解答。 ⑵用长c厘米的铁丝围成一个长方形，长是宽的n倍，求它的宽是多少厘米？ ①数学模型②编写代码实现算法DimcAsSingle'铁丝长度DimnAsSingle'长与宽的倍数DimaAsSingle'长方形的宽c=Val(Text1.Text)n=Val(Text2.Text)a=________________Text3.Text=Str(a)'输出宽【设计意图：通过在顺序结构中运用简单的解析表达式，让学生亲历分析问题、解决问题，通过完善程序强调重点，了解解析法的使用】 ⑶（选做）在问⑵中，它的面积s是多少？DimsAsSingle'长方形的面积s=________________Text4.Text=Str(s)'输出面积【设计意图：任务分层，使学有余力的学生进一步发展】布置任务二：出租车计费⑴桂林出租车白天起步价为2公里内9元，超过2公里的部分，每公里1.9元，请编写程序求解坐车费用。①分析问题②数学模型③解析表达式费用=④编写程序ⅰ伪代码描述算法输入里程If________________Then________________Else________________EndIf输出费用ⅱ实现算法DimsAsSingle'里程DimcostAsSingle'费用s=Val(Text1.Text) '输入里程If________________Then________________Else________________EndIfText2.Text=Str(cost) '输出费用⑵（选做）有时坐车还有等候费，出租车行驶中停车或车速低于12公里/小时，3分钟内不收等候费，超过3分钟后，每累计1分钟加收车公里价的20%。完善程序计算总费用。【设计意图：在选择结构中运用解析表达式，难度提升。提高学生探究能力】布置任务三：绘制正弦图像⑴用学过的数学知识在纸上画出正弦函数在[-2π，2π]内的轨迹。⑵VB绘制正弦图像①解析表达式②编写程序ⅰ自然语言描述算法ⅱ实现算法DimxAsSingle'横坐标DimyAsSingle'纵坐标Constpi=3.14159Form1.Scale(-10,5)-(10,-5)'定坐标Forx=_______To_______Step_____________________Form1.PSet(x,y),vbRed'画点Nextx#提示#设置坐标：对象名.Scale（左上角坐标）-（右下角坐标）画点：对象名.PSet（横坐标，纵坐标）,颜色【设计意图：在循环结构中使用解析表达式，难度进一步提高。让学生学会知识的有效迁移，提高学生自主、合作、探究能力】㈢巩固练习问题：求s=1×2－2×3＋3×4－4×5＋…－98×99＋99×100的值。算法描述如右图所示，请将下列程序补充完整。 PrivateSubForm_Click()DimkAsIntegerDimsAsIntegers=0Fork=1To(1)IfkMod2(2)0Thens=s+k*(k+1)Elses=(3)End