信息技术选修一.PPT

《信息技术选修一.PPT》由会员分享，可在线阅读，更多相关《信息技术选修一.PPT（116页珍藏版）》请在三一文库上搜索。

1、信息技术（选修一）,算法与程序设计,指导教师：刘玉军,佛山市顺德区伦教中学,,开心,快乐,学习,信息技术（选修一）,指导教师：刘玉军,准备,一、学生按座位自由分组、小组编号、推荐小组长； 二、选课，实名注册 三、熟悉天空教室网络平台,第一课 计算机如何解决问题,国际象棋“人机大战”落幕 世界冠军惜败“深奥的德国人”,中国象棋人机大战 计算机微弱优势取胜,古典问题韩信点兵,韩信是我国西汉初著名的军事家，刘邦得天下，军事上全依靠他。韩信点兵，多多益善，不仅如此，还能经常以少胜多，以弱胜强。在与楚军决战时韩信指挥诸侯联军，在垓gi下十面埋伏，击败楚军，楚霸王项羽因此自杀。,韩信点兵问题：相传汉高祖刘

2、邦问大将军韩信统御士兵多少，韩信答说，每3人一列余1人、5人一列余2人、7人一列余4人、13人一列余6人刘邦听后茫然而不知其数。你能说出有多少士兵吗？,韩信点兵问题一,求整除3余1、整除5余2、整除7余4的最小自然数。,分析问题,设所求的数为X，则x应满足：x整除3余1、x整除5余2、x整除7余4。,解题步骤（思路）,1、令X为1 2、如果X整除3余1，X整除5余2，X整除7余4，这就是题目要求的数，则记下这个X 3、令X为X+1 4、如果算出，则结束，否则跳转2 5、写出答案,韩信点兵问题二,求整除3余1、整除5余2、整除7余4、整除13余6、整除17余8的最小自然数。,编写程序：VB语言参

3、考代码,X=1 Y=0 Do if x mod 3=1 and x mod 5=2 and x mod7=4 and x mod 13=6 and x mod 17=8 then y=x X=x+1 Loop until y0 Print y,计算机解决问题的步骤,1、分析问题 2、设计算法 3、编写程序 4、调试程序,交流,速度慢,易出错.,都需要分析问题,设计算法.,速度快,需编写程序和调试程序,实践,1、模仿学过的用计算机程序解决问题的方法，设计一个算法，尝试求解鸡兔同笼问题： 今有鸡兔同笼，上有三十五头，下有九十四足，问鸡兔各几何？,实践,2.设计一个算法,求两个数中的最大数,算法和算

4、法的描述,欧几里得:求两个整数的最大公约数的过程辗转相除法，其具体过程如下： 设给定的两个正整数为m和n,求它们的最大公约数的步骤为： 、以m除以n,令所得的余数为r. 、若r=0，则输出结果n,算法结束；否则继续步骤（）。 、令m=n,n=r,并返回步骤（）继续进行。,实践,设给定的两个正整数m=112和n=64，利用辗转相除法，求它们的最大公约数。 （）除以，余数为 （）除以余数为 （）除以余数为 答和的最大公约数 思考：和的最小公倍数,算法 algorithm: lgrim 概念,通俗地说，算法就是用计算机求解某一问题的方法，是能被机械地执行的动作或指令的有穷集合。,算法 algorit

5、hm: lgrim 特征,1、输入 2、确定性 3、有穷性 4、输出 5、能行性,三、算法 algorithm: lgrim 的描述,表示算法的语言主要有自然语言、流程图、伪代码等。 例1-2：鸡兔同笼问题。35个头，94只脚，鸡和兔各有多少只？画出流程图。,例1-2的算法流程图,探究,1.求两个大整数的最大公约问题.(9147485和5147480) 2.设计一个算法,求出100以内能被3整除的所有正整数,计算机解决问题的过程,例2：从键盘输入三角形的三边长a、b、c，如果能构成一个三角形，则输出其面积，否则输出“不能构成一个三角形！”的提示信息。提示：计算机三角形面积的公式为： 其中 p=

6、(a+b+c)/2,递归算法,一天,小猴子从树上摘下若干个桃子,当即吃了一半,觉得好吃,又吃了一个.第二天小猴子接着吃剩下的一半,再多吃一个.以后每天都是吃前一天剩下的一半,再多吃一个.到第四天,只剩下一个桃子.试设计一下算法流程图.求小猴子第一天摘下多少个桃子.,算法描述：,function你有多少桃子？（第几天） 如果我第10天，那么我就有一个桃子。 否则，我的桃子数=（前一天的桃子数+1）*2 end function,参考代码,Function tao(ByVal days As Integer) As Integer If days = 10 Then tao = 1 Else ta

7、o = (tao(days + 1) + 1) * 2 End If End Function,循环算法,Dim k, i As Integer k = 1 For i = 1 To 4 Print k k = (k + 1) * 2 Next i,算法流程图,P11 图1-3,伪代码,Input m,n R=m mod n Do while r0 then m=n n=r r=m mod n Loop Print n,例1：从键盘输入圆的半径r,编程计算圆的面积。,1、分析问题 圆的半径为r,则圆的面积s=3.14*r2 2、设计算法 根据题意，用顺序结构来完成。 第一步输入圆的半径r； 第

8、二步求s=3.14*r*r的值 第三步输出结果,例1：从键盘输入圆的半径r,编程计算圆的面积。,3、编写程序（visual Basic语言） Dim r as double Dim s as double r=inputbox(“r=”) s=3.14*r*r Print “s=“;s 4、调试程序 程序编好后，通过键盘输入计算机，运行程序，并输出结果，直到没有错误为止。,四、课堂练习：画流程图和编写代码,例2：从键盘输入三角形的三边长a、b、c，如果能构成一个三角形，则输出其面积，否则输出“不能构成一个三角形！”的提示信息。提示：计算机三角形面积的公式为： 其中 p=(a+b+c)/2,练习

9、,有三个装油的瓶子,大瓶子可装1L,中瓶子可装0.7L,小瓶,自然语言算法,1，把7升的倒满； 2，从7升里把3升的倒满，再把这3升倒到10升里去； 3，从7升里把3升的倒满，再把这3升倒到10升里去，这样7升的剩1升； 4，把7升里的最后1升倒到3升的里去； 5，从10升把7升的倒满，这样10升里剩2升； 6，从7升里把3升的倒满，再把这3升倒到10升里去，ok，结束。,五、程序与程序设计语言,程序设计语言 机器语言 汇编语言 高级语言 程序 编辑程序 编译程序（解释程序） 连接程序,第二课 程序设计基础,目标:学习如何使用VB语言来编写程序,知识要点回顾:,程序的基本结构: 顺序结构 选择

10、结构 循环结构 程序设计 程序设计就是编写程序的过程.需要把计算机做的工作写成一种计算机能接受的程序. 算法 算法就是求解某一问题的方法.,课堂实践探究,求”半径为r的圆的面积”的程序 dim r as single dim s as single r=inputbox(“r”) s=3.14*r*r print s,2.1 VB语言及程序开发环境,基础数据类型 常量与变量 运算符、函数和表达式,2.2程序的顺序结构,赋值语句（=） 输入数据的函数（inputbox） 输出数据的方法 (print),问题1,2-2：已知长方体的长、宽、高，编写一个程序，求长方体的全面积和体积。 分析问题 设计

11、算法 编写程序 调试程序,问题2,2-3：从键盘上输入一个三位整数，然后将它反向输出。例如输入456，输出应为654。 分析问题 设计算法 编写程序 调试程序,代码参考,X1=x mod 10 X2=x10 mod 10 X3=x100 Y=x1*100+x2*10+x3,练习,1：从键盘输入三角形的三边长a、b、c，计算机三角形面积. 提示：计算机三角形面积的公式为：p(p-a)(p-b)(p-c)的平方根,其中p=(a+b+c)/2,练习,甲乙进行百米赛跑，甲从开始到终点都以每秒2米，乙第一秒跑1米以后每秒都比前一秒多跑005米，编写程序求谁能获胜。,练习,古希腊有位大数学家Diophan

12、tus丢番图有一段有名的墓志铭： 过路人，这里埋著Diophantus的骨灰，下面的数字，可以告诉你，他的一生有多长。他的生命的六分之一是愉快的童年；在过了他生命的十二分之一，他的面颊上长了细细的胡须，如此，又过了一生的七分之一，他结了婚。婚后五年，他获得了第一个孩子，感到很幸福。可是，命运给这孩子在这世界上光辉灿烂的生命，只有他父亲的一半。自从儿子死了以后，他在深切的悲痛中活了四年，也结束了尘世的生涯。试问Diophantus活了多少年？,练习,试编写一个程序，求平面中两点之间的距离 一列火车在某地时的速度为v0=40km/h,现以加速度m/s2加速度行驶，试编写一个程序，求2min后的速度

13、V和距开始点的距离（v=v0+at,s=v0t+at2/2）,2.3 程序的选择结构,（1）、条件语句的格式一： If 条件 then 语句1 （2）、条件语句的格式二： If 条件 then 语句组1 End if （3）、条件语句的格式三 If 条件 Then 语句组1 Else 语句组2 End If,练习,从键盘输入三角形的三边长a、b、c，如果能构成一个三角形，则输出其面积，否则输出“不能构成一个三角形！”的提示信息。提示：计算机三角形面积的公式为： S=p(p-a)(p-b)(p-c) ，p=(a+b+c)/2,程序代码,dim a as single dim b as singl

14、e dim c as single dim p as single dim s as single a=inputbox(“a“) b=inputbox(“b“) c=inputbox(“c“) p=(a+b+c)/2 s=p*(p-a)*(p-b)*(p-c) if s0 then s=sqr(s) print “s=“;s else print “不能构成三角形“ end if,编写一程序，判断年份是否为闰年。,公历闰年判定遵循的规律为: 四年一闰,百年不闰,四百年再闰. 公历闰年的简单计算方法（符合以下条件之一的年份即为闰年） 1 能被4整除而不能被100整除。 2 能被400整除。,测

15、验题一,1、从键盘任意输入一个数，如果是正数，则输出该数的平方根;如果是负数，则输出该数的立方根;否则就输出零。 2、输入两个数a,b，输出较大数的立方值，输出较小数的平方值。,测验题二,3、铁路托运行李规定：行李重不超过50公斤的，托运费按每公斤0.15元计费；如超过50公斤，超过部分每公斤加收0.10元。编一程序完成自动计费工作。 4、某超市为了促销，规定：购物不足50元的按原价付款，超过50不足100的，超过部分按九折付款，超过100元的，超过部分按八折付款。编一程序完成超市的自动计费的工作。,练习题三,5、输入a,b,c三个不同的数，将它们按由小到大的顺序输出。 6、当前小学生的成绩单

16、由以前的百分制改为优秀、良好、合格、不合格四个等级的等级制。编一程序完成分数的自动转换工作。转换规则如下：60分以下的为不合格；60到69分为合格；70到89分为良好；90分以上包括90分的为优秀。,2.3 程序的选择结构,登录天空教室网络平台 查看教程2.3 192.168.0.1/school 公用帐号:student 密码:student,猜数字大小游戏,点击游戏地址,下载并运行,简单解释“大”按钮事件部分代码,部分代码一： If x 7 Then Flag = True Flag=True表示猜中 Else Flag = False Flag=False表示未猜中 LOST = LOS

17、T + 10 多输10元 Label7.Caption = “你现在的金额是：“ & WIN - LOST & “元” End If 部分代码二： If k = 5 And Flag = True Then 连续5次并且都猜中 WIN = WIN + 100 多赢100元 Label7.Caption = “你现在的金额是：“ & WIN - LOST & “元” End If,条件语句常见的几种使用格式,（1）、条件语句的格式一： If 条件 then 语句1 （2）、条件语句的格式二： If 条件 then 语句组1 End if （3）、条件语句的格式三 If 条件 Then 语句组1

18、Else 语句组2 End If,探究活动,网址：http:/192.168.0.1/if 问题 简单介绍一种测试体型的方法：体重估算法，对于青少年来说，假设某同学的体重为W（公斤），身高为H（厘米），标准体重用B（公斤）来表示，体重指数用T来表示，可得： B=H105 T=（WB）B。 当体重指数（T）大于0.1时，表示该同学偏胖； 当体重指数（T）小于负的0.1时，表示该同学偏瘦； 当体重指数（T）在负的0.1和0.1之间时，表示该同学体型标准。,活动要求：,同学们根据自己对if语句的掌握情况，选做“任务目标”中的第一层任务或第二层任务，保存并提交作业（.frm） 程序一般四个组成部分:

19、定义变量 输入数据 处理数据 输出结果,五组测试数据,作业评讲,应用拓展,学生根据情况任选一题 编写一元二次方程的求解程序，要求能够判断方程是否有根，如果没有根则给出相应的提示信息。 编一个程序，输入三个数，输出其中的最大数。,回顾小结,通过这节课的学习，我们了解if语句三种常用格式的使用方法，并利用if语句来编写程序。希望大家在日常生活学习多发现问题，并思考如何利用学过的计算机知识来解决问题,2.3.1 从制作矩形框问题开始,问题 张军找来一条长度为L的铁丝，希望用来制作一个面积为S的矩形框。他问李明：这个矩形的长和宽应当是多少，才能使制作出来的矩形框面积为指定的值呢？,1、分析问题,设所求

20、矩形的宽为x,根据题目的条件，矩形的周长是L，那么它的长与宽的和就是L/2，长应为L/2-x，根据矩形的面积公式，方程如下：x(L/2-x)=s,通过求根公式可得出解答,2、设计算法,输入铁丝的长度L； 输入矩形的面积S; 计算判别式D=L*L/4-4*S 如果D=0,则 计算 x1=(L/2+sqr(D)/2 x2=(L/2-sqr(D)/2 并输出x1和x2，否则输出“找不到这样的矩形” 结束,3、编写程序,Dim L as double Dim S as double Dim D as double L=inputbox(“请输入铁丝的长度：”) S=inputbox(“请输入矩形的面积

21、：”) D=L*L/4-4*S If D=0 then x1=(L/2+sqr(D)/2 x2=(L/2-sqr(D)/2 print “这个矩形的长和宽分别为：”；x1;”和”；x2 Else print “找不到这样的矩形” End IF,2.3.2 条件语句,1.条件语句的格式 If 条件 Then 语句组1 Else 语句组2 End If,2.3.2 条件语句,2.条件语句的执行过程,2.3.2 条件语句,3.关系表达式 关系运算符号有：,关系表达式的值：假（False）和真（True） 数据类型：逻辑型(Boolean),2.3.2 条件语句,4.逻辑表达式 逻辑运算符： Not(

22、非) And(与) Or(或) 5.逻辑运算的顺序 算术运算关系运算逻辑运算 例：a+bc+d And a=5 or Not c0 Or d0 当a=5,b=7,c=-2,d=1时运算结果的值_?,实践,1、当A=15和A=-9时程序的运行结果 Dim A as integer A=inputbox(“请输入A的值：”) If A=0 then Print “Y=“;A else Print “Y=”;-A,实践,2、某商场为了对苹果进行促销，规定购买2千克以上可以在原价每千克1.5元的基础上打8折。请设计一个程序计算购买x千克苹果的应付款。,练习1,编写一程序，判断年份是否为闰年。闰年的条件

23、：年份能被4整除但不能被100整除，或能够被100整除也能被400整除。 X=inputbox(“输入年份”) If (x mod 4=0) and (x mod 1000) then print x;”闰年” If (x mod 100=0) and (x mod 400=0) then print x;”闰年”,练习2,编一个程序，输入三个数，输出其中最大数 a=inputbox(“a”) b=inputbox(“b”) c=inputbox(“c”) Max=a If bmax then max=b If cmax then max=c Print “最大数是”;max,练习,Dim x

24、 as double X=inputbox(“x”) If x8 then X=x-8 Print x End if If x5 then print x+9 1、当输入9时程序运行结果是多少？ 2、当输入20时程序运结果是多少？,2.多重选择语句的格式,基本格式： Select Case 表达式 Case 表达式列表1 语句组1 Case 表达式列表2 语句组2 Case Else 语句组N+1 End Select,实践,1、当F=1，2，3，4时程序运行的结果 Dim a,b,c as single Dim d as string F=inputbox(“请输入F的值：”) A=2 B=

25、3 Select case f case 1:c=a+b:d=“+” case 2:c=a-b:d=“-” case 3:c=a*b:d=“*” case 4:c=a/b:d=“/” End select Print a;d;b;”=”;c,综合练习1,我们把字符作为如下的分类：大写字母：A-Z；小写：a-z;数字：0-9；其他字符。编写一个程序，根据上述分类的方法，输入一个字符，报告该字符所属的类型。,代码参考,Dim c As String c = InputBox(“输入任意字符“) Select Case c Case “A“ To “Z“ print “字母大写类别“ & c Cas

26、e “a“ To “z“ print “字母小写类别“ & c Case “0“ To “9“ print “数字类别“ & c Case Else print “其他类别“ & c End Select,综合练习2,编写一个程序，让计算机同我们一起玩剪发、钉锤、布游戏。如果人输了，则输出“LOSE”,人赢了，则输出”WIN”,人与计算机平了，则输出“DEUCE”.,思考问题,编程输出10以内的所有偶数? 程序代码: print 2 print 4 print 6 print 8 print 10,如果要依次输出100甚至1000以内的所有偶数。怎么办？,循环结构思想,利用循环结构，使我们只要

27、通过少量的语句，让计算机重复执行许多次，从而完成要求。 重复要做的事情就是循环体。在上例中循环体是什么？ print i 利用计数变量来控制循环执行的次数,否则是死循环。 变化规律:后一个常量总比前一个常量大2。即i=i+2。,新课：For循环结构,本节课学习目标 1. 理解循环结构的基本思想。 2. 掌握用For循环语句编写程序。 基本格式： For 循环变量=初值 to 终值 Step 步长 语句组 Next 循环变量,说明：,For语句：其作用是确定循环变量的值如何变化，从而控制循环的次数。 循环变量：它是一个数值变量。 初值、终值和步长可以是常量、变量和表达式； 步长：如果步长为1，则

28、可省略不写。 循环体在For语句和Next语句之间的语句序列，可是一个或多个语句。 Exit For语句：退出循环。 Next语句：循环终端语句，在其后的循环变量须与For语句中的“循环变量”一致。,For 循环变量=初值 to 终值 Step 步长 语句组 Next 循环变量,观察：单步执行i值变化情况,输出10以内的所有偶数 For i=2 to 10 step 2 Print i Next i,源程序,自主探究,视频 袁隆平：一粒种子改变世界,背景介绍：杂交水稻之父袁隆平,登录天空教室网络平台 查看教程2.4.1 网 址：192.168.0.1/school 公用帐号:student 密

29、码:student,探究任务：超级水稻种植实验的统计分析,要求：用For循环语句实现，并上传探究结果。 现已知某个因素M种水平5次试验的亩产量（单位：千克）如下表所示，求各种水平影响下的亩产量。,作品展示评价,评价量表,参考作品,实践,编程求1+2+3+100的和 编程求10！,拓展任务,要求：用For循环语句实现 猴子吃桃问题 一天，小猴子从树上摘下若干上桃子，当即吃了一半，觉得不过瘾，又吃了一个。第二天小猴子接着吃剩下的一半，还觉得不过瘾，又吃了一个。以后每天都是吃前一天剩下的，就再多吃一个。到第四天，只剩一个桃子。试设计一个算法，求小猴子第一天摘下多少个桃子。,小结：,For语句与Nex

30、t语句必须成对出现，缺一不可。 For语句必须在Next语句之前。 For语句中的循环变量与Next语句中的循环变量必须一致。 如果步长为1，则step 1可省略。,For 循环变量=初值 to 终值 Step 步长 语句组 Next 循环变量,2.4 程序循环结构,For 循环语句 格式： For 循环变量=初值 To 终值 Step 步长 语句组 Next 循环变量,实践写出循环结束时变量A的值、循环次数、运行结果。,1、for a=1 to 10 print a next a,2、for a=1 to 100 s=s+a next a print s,3、for a=100 to 1 s

31、tep -1 s=s+a next a Print s,4、for a=1 to 10 a=a+1 print a next a,实践,编程输出：九九乘法表P57(图2-19) 1*1=1 2*1=2 2*2=4 3*1=3 3*2=6 3*3=9 4*1=4 4*2=8 4*3=12 4*4=16 5*1=5 5*2=10 5*3=15 5*4=20 5*5=25 6*1=6 6*2=12 6*3=18 6*4=24 6*5=30 6*6=36 7*1=7 7*2=14 7*3=21 7*4=28 7*5=35 7*6=42 7*7=49 8*1=8 8*2=16 8*3=24 8*4=32

32、 8*5=40 8*6=48 8*7=56 8*8=64 9*1=9 9*2=18 9*3=27 9*4=36 9*5=45 9*6=54 9*7=63 9*8=72 9*9=81,代码参考,Dim i as integer Dim j as integer For i=1 to 9 for j=1 to I print i next j print Next i,2.4 程序循环结构,Do 循环语句（循环次数不确定） 一、当条件满足时执行循环体 Do while 条件 循环体 loop = 二、当条件满足时退出循环 Do 循环体 loop until 条件,问题：,陈婷今年17岁了，她的生日

33、正好是3月12日植树节。今年植树节老师带同学们到公园里去植树。陈婷很高兴，一个人就栽了3棵树，过了一个很有意义的生日。她想，如果从明年开始每年过生日的时候都去植树，并且每一年要比前一年多栽一棵树，这样下去，到多少岁时才能累计种到或超过100棵树呢？,代码参考,Dim age as integer Dim tree as integer Age=17 Tree=3 Do age=age+1 tree=tree+age-14 Loop until tree=100 Print age,tree,实践,1、已知s=1+2+3+N，找出一个最大的整数N，使得S30000。,代码参考,S=0 N=0 D

34、o n=n+1 s=s+n Loop until s=30000 Print n,实践,2、假设纸的长度足够长，厚度为0.1毫米，对折一次厚度增加1倍，现在对折纸张，直到总厚度超过珠穆朗玛峰的高度为止（最新高度：8844.43米），对折纸张的次数。,代码参考,K=0 H=0.1 Do k=k+1 h=h*2 Loop until h=8844.43*1000 Print k,练习,求2-1000中完全数（因子之和等于它本身的数为完全数），例如28的因子是1、2、4、7、14，且1+2+4+7+14=28，则28是完全数,Dim x As Long Dim k As Long Dim s As

35、Long For x = 2 To 1000 s = 0 For k = 1 To x - 1 If x Mod k = 0 Then s = s + k End If Next If s = x Then print x End If Next,综合练习,现在面值为1元、2元和5元的钞票（假设每种钞票的数量足够多），从这些钞票中出30张使其总面值为100元，问有多少种取法？输出每种取法中各面额钞票的张数。,Dim k1, k2, k5 As Integer For k1 = 1 To 100 For k2 = 1 To 100 For k5 = 1 To 100 If k1 + 2 * k2

36、 + 5 * k5 = 100 And k1 + k2 + k5 = 30 Then MsgBox(k1 & “|“ & k2 & “|“ & k5) End If Next Next Next,综合练习,2.如果一个3位数等于它的各位数字的立方和，则这个3位数称为“水仙花”数。例如153=13+53+33。试编程求出所有水仙花数。,Dim n as long Dim a as integer Dim b as integer Dim c as integer For n=100 to 999 a=n mod 10 b=(n10) mod 10 c=n 100 If a*a*a+b*b*b+c

37、*c*c=n then print n,综合练习,3.如果一个4位数等于它的各位数字的4次方和，则这个4位数称为“玫瑰花”数，例如1634=14+64+34+44。试编程求出所有玫瑰花数。,综合练习,4、如果一个正整数的立方能够分解为另外3个正整数的立方和，那么我们把这个正整数称为“好数”。即A、X、Y、Z都是正整数，且满足A3=X3+Y3+Z3，则称A为好数。例如，6是最小的好数（63=33+43+53）。请求出最小的10个好数。,a = 6 k = 1 Do While k = 10 a = a + 1 For i = 1 To a - 1 For j = 1 To a - 1 For z

38、 = 1 To a - 1 If a * a * a = i * i * i + j * j * j + z * z * z Then Print a, i, j, z k = k + 1 i = a j = a z = a End If Next z Next j Next i Loop,综合练习,有一根长为600cm的钢筋，需要截成长度为69cm、39cm、29cm的三种规格的短料，在三种规格的短料至少各截1的前提下，如何截取才能使所余下的材料最少？,Dim x, y, z As Int16 Dim min As Integer min = 600 Dim a, b, c As Integer For x = 1 To 20 For y = 1 To 20 For z = 1 To 20 If 600 - 69 * x - 39 * y - 29 * z = 0 Then min = 600 - 69 * x - 39 * y - 29 * z a = x b = y c = z End If Next Next Next print min & “|“ & a & “|“ & b & “|“ & c,