高中信息技术选修一数组查找课件PPT课件.ppt

算法的程序实现 数组 查找 信息技术组 1 目标导学 理解数组概念 学会用数组处理数据 掌握顺序查找和二分查找算法 会编写相应的程序 2 数组 引入 定义某个同学五门功课的成绩 可用五个变量yw sx yy wl hx 若定义全班学生的成绩 采用此种单个变量定义的方法 需要定义很多变量 可以利用变量的集合 数组来处理 繁琐 3 数组 数组不是一种基本数据类型 而是一组相同类型的变量的集合 集合中的每个元素都是独立的变量 能够通过数组的序号被引用 定义格式 Dim数组名 常量 As数据类型例 Dimyw 79 AsSingle其中包含80个变量 yw 0 yw 1 yw 2 yw 79 赋值及其他操作 一般要用到循环语句 求和 Sum 0Fori 0to79sum sum yw i Nexti 输入 Fori 0to79Yw i val inputbox 语文成绩 Nexti 4 实例 读右面的程序 回答问题 若输入78 98 100 87 89 67 88 90 96 80 得到的输出结果是 该程序的功能是 PrivateSubCommand1 Click Dimyw 9 AsInteger avgAsSingle iAsIntegerFori 0To9yw i Val InputBox 输入语文成绩 0 Nextiavg 0Fori 0To9avg avg yw i Nextiavg avg 10Print 平均成绩为 avgEndSub 平均成绩为 87 3 输入10个学生的语文成绩 求平均分 5 自主探究 读程序 回答问题 若输入100 得到的输出结果是 若输入60 得到的输出结果是 该程序段实现的功能是 实现这一功能的方法是 PrivateSubCommand1 Click Dimyw cjAsInteger iAsIntegeryw Array 78 98 100 87 89 67 88 90 96 80 cj Val InputBox 输入要查找的语文成绩 Fori 0To9Ifyw i cjThenPrint 第 i 1 个学生的成绩是 cjExitForEndIfNextIIfi 10ThenPrint 未找到成绩为 cj 的学生 EndIfEndSub 顺序查找法 第3个学生的成绩是100 未找到成绩为60的学生 查找某一成绩的学生 从前到后逐一比较 6 顺序查找 从数据的第一个元素开始 按照数据的顺序查找指定的关键值 如果被查找的某个数据元素和关键值匹配 查找成功 若所有数据元素均不与之匹配 查找失败 78 98 100 87 89 67 88 90 96 80 上例中若查找成功 则平均查找长度 比较次数 为 思考 有没有更好的查找方法 如果数组是有序的 5 5 1 2 3 10 10 7 做猜数游戏 8 67 78 80 87 88 89 90 96 98 100 分析 可以从中间开始查找 若小了从右侧的中间查找 或大了从左侧的中间开始查找 如图查找89 二分查找 78 98 100 87 89 67 88 90 96 80 9 设置上界和下界 取中间元素与关键值对比 若相符 查找成功 若不相符 判断关键值落在左半部还是右半部 重新确定上界和下界 进行第二次查找 直到查找成功 或下界大于上界 查找失败 思考 上一问题中 二分查找 查找成功的平均查找长度为 二分查找 1 2 2 4 3 3 3 3 4 4 1 1 2 2 3 4 4 3 10 2 9 10 实践一 二分查找 PrivateSubCommand1 Click Dimyw jAsIntegerDimlowAsInteger highAsIntegerDimmAsIntegeryw Array 67 78 80 87 88 89 90 96 98 100 cj Val InputBox 输入要查找的语文成绩 low 0high 9DoUntillow highm low high 2Ifyw m cjThenPrint 第 m 1 个学生的成绩是 cjExitDoElseIfcjhighThenPrint 未找到成绩为 cj 的学生 EndIfEndSub 11 实践二 猜数游戏 DimkeyAsInteger mAsIntegerDimlowAsInteger highAsIntegerPrivateSubCommand1 Click 开始low Val Text1 Text high Val Text2 Text m low high 2Label3 Caption Str m EndSubPrivateSubCommand2 Click 小了low m 1m low high 2Label3 Caption Str m EndSubPrivateSubCommand3 Click 正确Label