《3.6顺序查找算法及程序实现》由会员分享，可在线阅读，更多相关《3.6顺序查找算法及程序实现（8页珍藏版）》请在金锄头文库上搜索。
1、36 顺序查找算法及程序实现,1查找 查找是一种查询数据的技术，其目标是能以比较少的步骤或较短时间内找到所需的对象。程序将按照查找的结果(找到或未找到)来决定接着应执行的步骤。查找的方法很多，对不同的数据结构有不同的查找方法。参加选考的同学，只需要掌握顺序查找和对分查找两种方法。 2顺序查找算法 顺序查找的基本思想是从第一个数据开始，按顺序逐个将数据与给定的数据(查找键)进行比较，若某个数据和查找键相等，则查找成功，输出所查数据的位置；反之，输出未找到。 顺序查找算法的处理过程 假定在数组d中有n个数据，查找键已经存储在变量key中。其处理过程是：从数组d的第1个元素d(1)开始，依次判断各元
2、素的值是否与查找键key相等，若某个数组元素d(i)的值等于key，则结束处理(找到了指定的数据)；若找遍了所有的n个元素，无任何元素的值等于key，则结束处理(输出未找到信息)。,顺序查找算法流程图,3顺序查找算法的程序结构,程序实现代码： k0 For i1 To n If a(i)key Then ki Next i If k0 Then 输出查找成功 Else 输出查找不成功 End If,本节的学习要求掌握顺序查找算法的基本思想，能用程序来实现顺序查找的算法。考查方式为选择题与填空题。 与排序比较，它只有一重循环，排序有两重循环，共同点都有数组,1为找自己第一次上幼儿园时的照片，小张
3、同学依次翻开自己的多本相册来逐张查找。这种查找方法为 ( ) A无序查找 B顺序查找 C对分查找 D随机查找,B,2由10个数组成的数列：25、36、45、87、96、84、71、65、99、27，从中查找数据36时，最适合的查找方式是 ( ) A随机查找 B顺序查找 C对分查找 D模糊查找,B,3在数组23、41、54、26、84、52、65、21中查找数字52，采用从后往前顺序查找，需要查找的次数是 ( ) A2次 B3次 C7次 D1次,B,4. 某校在进行新生录取工作时，建立了一个数据库，共有650位新生(没有重名)的记录，现需要找出某个学生是否已经报名参加该校的暑期军训。,Priva
4、te Sub Command1_Click() Dim search As Integer, Stu As String search 0 Stu Text1.Text For i 1 To 650 If Stu a(i) Then _ Exit For End If Next i If search 0 Then MsgBox “找到该学生，在数组位置：” Str(search) Else mxgbox “找不到该学生” End If End Sub,已知在一个事件过程中已经完成650个学生的数据录入，学生姓名信息存放在数组a(1 to 650)中，Command1_Click事件过程完成了
5、在对象Text1中输入学生姓名后，在Label1中输出查找结果。程序中画线部分应填入_，该程序主要采用了_算法。,Search=i,顺序查找,5现在的学业水平考试都进行网上报名，小李设计了一个模拟查询的程序，实现查询某位考生已经报考的科目信息。设数组zkh用来存放学生的报名序号，数组name和bmk分别存储对应考生的姓名和已报考科目信息。程序运行界面如下图所示：,Private Sub Command1_Click() Dim i As Integer, s As Integer Dim z As String, n As String, k As String z Text1.Text n
6、Text2.Text For i 1 To n If Name(i) Then s i Exit For End If Next i If s 0 Then Label3.Caption “该考生已报考的科目是：” Else msgbox “找不到该考生” End If End Sub Private Sub Form_Load() 考生报名序号、姓名和报考科目数组赋值部分，忽略 End Sub,(1)该程序采用的算法是_。 请将划线处的语句或表达式填充完整。 (2)划线处应填入_。 (3)划线处应填入_。,顺序查找算法,bmk(s),z=zkh(i) And n,输入报名序号与考生姓名，若报
7、名序号存在且考生姓名输入正确，则显示考生已报考科目信息。部分代码如下所示：,6要求从某一字符串中删除指定的字符(假设所含的英文字母均为小写字母)，并将处理后的字符串重新输出。 程序界面如图所示，在文本框Text_1中输入原始字符串，在文本框Text_2中输入需要删除的字符，单击“删除此字符”按钮(Command1)后，在文本框Text_3中输出处理后的结果。,Dim p As String, k As String Private Sub Command1_Click() Dim s As Integer, result As String, flag As Boolean result “”
8、 p Text_1.Text k Text_2.Text For s 1 To Len(p) flag f(s) If Not flag Then result result End If Next s End Sub Function f(s As Integer) As Boolean If Mid(p, s, 1) k Then f True End Function,(1)解决此问题的算法是_ (选填：顺序查找或对分查找) 在程序和划线处，填入适当的语句或表达式，把程序补充完整。 (2)程序中划线处应填入_。 (3)程序中划线处应填入_。,顺序查找,Mid(p,s,i),Text3.text=result,作业： 1、A+第12份（交起） 2、同步P27暂不交,
