1.1.2计算机解决问题的过程.pptVIP

海南中学三亚学校 梁榕玲 一、创设情境、提出问题 问题1：一张A4纸经过多次对折后，纸张的厚度能超过珠穆朗玛峰的高度吗？ 单张厚度为0.1毫米 珠穆朗玛峰高度为8844.43米 二、分析问题、讲授新课 问题2：从理论上来说，一张A4纸经过多少次对折后，纸张的厚 度能超过珠穆朗玛峰的高度？ 折纸次数 N：每次都递增加1， 折纸厚度 H：每对折一次，厚度翻倍 1、分析问题，寻找规律： 设折纸次数为N，纸的厚度为H 折纸次数N 纸的厚度H N=0 H=0.1 N=0+1=1 H=0.1*2=0.2 N=1+1=2 H=0.2*2 …… …… 从上表的计算出，你发现了什么？ 手工计算的一般过程 准备计算工具 手工计算 人工比较，得到最终的结果 编程计算折纸厚度的过程 选择计算机程序设计语言 编程计算纸张对折后厚度 计算机对比，得出结果 2、设计算法 算法：解决问题的步骤和方法 VB语言 手工计算的一般过程 准备计算工具 手工计算 人工比较，得到最终的结果 编程计算折纸厚度的过程 选择计算机程序设计语言 编程计算纸张对折后厚度 计算机对比，得出结果 2、设计算法 算法：解决问题的步骤和方法 VB语言 如何计算？ 纸厚度超过 8844.43米吗？ 对折，厚度加倍 折纸次数加1 纸的厚度 h 初值为0.1毫米 开始 no 输出折纸次数n Yes 结束 折纸次数n初值为0 h=0.1 n=0 h=h*2 n=n+1 输出n h8844430 设：h为纸的厚度，n为折纸的次数 Do while 条件 循环体 Loop Do while h8844430 h=h*2 n=n+1 Loop 3、编写代码 Private Sub Command1_Click() 单击按钮Command1时开始运行程序 Let n = 0 折纸次数为n,初始值为0 Let h = 0.1 一张纸的厚度为h，初始值为0.1毫米 Do While h 8844430 判断h是否小于8848430毫米，循环开始 Let h = h * 2 若h＜8848430毫米，纸张厚度翻倍 Let n = n + 1 折纸次数加1 Loop 循环结束 Print 对折; n; 次 输出折纸次数 Print 厚度为; h / 1000; 米 输出纸张厚度 End Sub 结束程序 问题3：一张A4纸对折多少次，就能超过100米的高度？ 提示：认真阅读程序代码，尝试修改程序。 知识迁移，技能提升 折纸次数n 折纸厚度h 20 100 21 200 22 400 23 800 24 1600 25 3200 26 6400 27 12800 4、调试运行 问题4：一个球从100米高处自由落下,每次着地后又跳回到原高度的一半再落下,球当它第十次着地时,第十次着地后反弹多高? 请用VB语言设计程序。 三、知识迁移，技能提升 问题：一个球从100米高处自由落下,每次着地后又跳回到原高度的一半在落下,编写程序,球当它第十次着地时,第十次着地后反弹多高? Private Sub Command1_Click() n = h= Do While h= n = Loop Print 落地第10次 Print 高度为; h; 米 End Sub