信息技术选修一.PPT

信息技术（选修一） 算法与程序设计算法与程序设计 指导教师：刘玉军 佛山市顺德区伦教中学 www.sdlunzhong.cn 开心 快乐 学习 信息技术（选修一） 指导教师：刘玉军 准备 o一、学生按座位自由分组、小组编号、推荐 小组长； o二、选课，实名注册 o三、熟悉天空教室网络平台 第一课 计算机如何解决问题 国际象棋“人机大战”落幕 世界冠军惜败“深奥的德国人 ” 中国象棋人机大战 计算机微弱优势取胜 古典问题韩信点兵 韩信是我国西汉初著名的军事 家，刘邦得天下，军事上全依靠 他。韩信点兵，多多益善，不仅 如此，还能经常以少胜多，以弱 胜强。在与楚军决战时韩信指挥 诸侯联军，在垓gi下十面埋伏 ，击败楚军，楚霸王项羽因此自 杀。 韩信点兵问题：相传汉高祖刘邦问大将军韩信统御士兵多少，韩信答说，每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、写出答案 韩信点兵问题二 o 求整除3余1、整除5余2、整除7余4、整 除13余6、整除17余8的最小自然数。 编写程序：VB语言参考代码 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 计算机解决问题的步骤 o1、分析问题 o2、设计算法 o3、编写程序 o4、调试程序 交流 求解决问题的方 式 相同点不同点 人工求解 用计算机求解 速度慢,易出错. 都需要分析问题, 设计算法. 速度快,需编写程序 和调试程序 实践 o1、模仿学过的用计算机程序解决问题的方 法，设计一个算法，尝试求解鸡兔同笼问题 ： 今有鸡兔同笼，上有三十五头，下有九十四 足，问鸡兔各几何？ 实践 2.设计一个算法,求两个数中的最大数 算法和算法的描述 欧几里得:求两个整数的最大公约数的过程 辗转相除法，其具体过程如下： 设给定的两个正整数为m和n,求它们的最大公 约数的步骤为： 、以m除以n,令所得的余数为r. 、若r=0，则输出结果n,算法结束；否则继 续步骤（）。 、令m=n,n=r,并返回步骤（）继续进行 。 实践 设给定的两个正整数m=112和n=64，利用 辗转相除法，求它们的最大公约数。 （）除以，余数为 （）除以余数为 （）除以余数为 答和的最大公约数 思考：和的最小公倍数 算法 algorithm: ælgriðm 概念 o通俗地说，算法就是用计算机求解某一问题 的方法，是能被机械地执行的动作或指令的 有穷集合。 算法 algorithm: ælgriðm 特征 1、输入 2、确定性 3、有穷性 4、输出 5、能行性 三、算法 algorithm: ælgriðm 的描述 o表示算法的语言 主要有自然语言 、流程图、伪代 码等。 例1-2：鸡兔同笼 问题。35个头 ，94只脚，鸡 和兔各有多少只 ？画出流程图。 开始 输入a和b的值 求x=2a-b/2 求y=b/2-a 输入x,y的值 结束 例1-2的算法流程图 探究 1.求两个大整数的最大公约问题.(9147485 和5147480) 2.设计一个算法,求出100以内能被3整除的所 有正整数 计算机解决问题的过程 例2：从键盘输入三角形的三边长a、b、c，如果能构成 一个三角形，则输出其面积，否则输出“不能构成一个 三角形！”的提示信息。提示：计算机三角形面积的 公式为： 其中 p=(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 tao = (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 s=sqr(s) print “s=“;s else print “不能构成三角形“ end if 编写一程序，判断年份是否为闰年。 公历闰年判定遵循的规律为: 四年一闰,百年不闰,四百年再闰. 公历闰年的简单计算方法（符合以下条件之一的年份即为闰年） 1 能被4整除而不能被100整除。 2 能被400整除。 测试年份是否闰年 2008年 2100年 2400年 测验题一 1、从键盘任意输入一个数，如果是正数，则 输出该数的平方根;如果是负数，则输出该 数的立方根;否则就输出零。 2、输入两个数a,b，输出较大数的立方值， 输出较小数的平方值。 测验题二 3、铁路托运行李规定：行李重不超过50公斤的，托 运费按每公斤0.15元计费；如超过50公斤，超过 部分每公斤加收0.10元。编一程序完成自动计费 工作。 4、某超市为了促销，规定：购物不足50元的按原价 付款，超过50不足100的，超过部分按九折付款 ，超过100元的，超过部分按八折付款。编一程 序完成超市的自动计费的工作。 练习题三 5、输入a,b,c三个不同的数，将它们按由小 到大的顺序输出。 6、当前小学生的成绩单由以前的百分制改为 优秀、良好、合格、不合格四个等级的等级 制。编一程序完成分数的自动转换工作。转 换规则如下：60分以下的为不合格；60到 69分为合格；70到89分为良好；90分以 上包括90分的为优秀。 2.3 程序的选择结构 o登录天空教室网络平台 查看教程2.3 n192.168.0.1/school n公用帐号:student 密码:student 猜数字大小游戏 o点击游戏地址,下载并运行 简单解释“大”按钮事件部分代码 部分代码一： If x 7 Then Flag = True Flag=True表示猜中 Else Flag = False Flag=False表示未猜中 LOST = LOST + 10 多输10元 Label7.Caption = “你现在的金额是：“ o计算判别式D=L*L/4-4*S o如果D=0,则 计算 x1=(L/2+sqr(D)/2 x2=(L/2-sqr(D)/2 并输出x1和x2，否 则输出“找不到这样的矩形” o结束 3、编写程序 Dim L as double Dim S as double Dim D as double L=inputbox(“请输入铁丝的长度：”) S=inputbox(“请输入矩形的面积：”) 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语句组1 是否 2.3.2 条件语句 3.关系表达式 关系运算符号有： 运算 符号 = 含义等于大于大于等于小于小于等于不等于 关系表达式的值：假（False）和真（True） 数据类型：逻辑型(Boolean) 2.3.2 条件语句 4.逻辑表达式 逻辑运算符： Not(非) And(与) Or(或) 5.逻辑运算的顺序 算术运算关系运算逻辑运算 例：a+bc+d And a=5 or Not c0 Or d=0 then Print “Y=“;A else Print “Y=”;-A 实践 2、某商场为了对苹果进行促销，规定购买2千克以上 可以在原价每千克1.5元的基础上打8折。请设计 一个程序计算购买x千克苹果的应付款。 练习1 编写一程序，判断年份是否为闰年。闰年的条 件：年份能被4整除但不能被100整除，或 能够被100整除也能被400整除。 X=inputbox(“输入年份”) If (x mod 4=0) and (x mod 100max then max=b If cmax then max=c Print “最大数是”;max 练习 Dim x 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.多重选择语句的格式 o基本格式： 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=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 “字母大写类别“ next j print Next i 2.4 程序循环结构 Do 循环语句（循环次数不确定） 一、当条件满足时执行循环体 Do while 条件 循环体 loop = 二、当条件满足时退出循环 Do 循环体 loop until 条件 问题： 陈婷今年17岁了，她的生日正好是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，使得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 练习 o求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 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 综合练习 o现在面值为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 + 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*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 = 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