顺序查找算法跟程序实现.ppt

比较 顺序查找是一种基本、简单的查找算法，但查找的效率往往过低； 对分查找时每次都把查找范围缩小一半 对分查找算法数据次数较少，效率较高，但它要求数组中的数据是有序的。 查找算法之算法实现 查找是一种查询数据的技术，其目标是能以比较少的步聚和较短的时间找到所需的对象 顺序查找的基本思想 是从第一个数据开始，按数据的顺序逐个将数据与给定的值进行比较。若某个数据和给定的值相等，则查找成功，找到所查数据的位置；反之，查找不成功。 查找算法 顺序查找 27 36 32 18 d (1) d (2) d (3) d (4) 输入查找的元素值key=32 i=1 i=2 i=3 此时d(i)=key,数组中的第3个位置 如果输入查找的元素值key=22 i=1 i=2 i=3 i=4 i=5 27 36 32 18 d (1) d (2) d (3) d (4) 此时i等于5,超过数组中元素个数,找不到 从数组d的第1个元素d(1)开始，依次判断各元素的值是否与查找键key的值相等。 顺序查找的流程图 开始 i 1 d(i)=key? i=n? i　i+1 未找到，输出结果：0 找到，输出结果：i 结束 Y N Y N 例题：顺序查找 1、首先在通用声明事件里定义数组d变量为全局变量。 Dim d(1 To 10) As Integer Dim i, key As Integer 2、程序一运行，生成10个3位整数，显示在标签1中。 Private Sub Form_Load() Label1.Caption = Randomize For i = 1 To 10 d(i) = Int(Rnd * 101 + 100) Label1.Caption = Label1.Caption d(i) Next i End Sub 3、在文本框1中输入要找的数，单击“顺序查找”按钮，在文本框2中显示找到的结果。 Private Sub Command1_Click() key = Val(Text1.Text) num = 10 For i = 1 To num If d(i) = key Then Text2.Text = “在数组的 ” + Str(i) + 位置中 Exit For End If Next i If i = num + 1 Then Text2.Text = “在数组中没有找到 + Str(key) End If End Sub 某学校把每个学生的姓名和家长联系电话保存到计算机中，以便遇到紧急情况时可以及时通知学生家长。每个学生的姓名和家长联系电话已经保存在数组xm和phone(都为字符串类型)中。现在要设计一个根据输入的学生姓名查询该学生家长的联系电话的程序。程序运行时的界面如下图所示： 完善程序：下列程序运行时，在Text1中输入学生姓名，单击“查询家长电话”按钮Command1后，在标签Label2中显示对应的学生家长电话，若找不到则显示“未找到该学生”。程序代码如下： Dim xm(1 To 1000) As String Dim phone(1 To 1000) As String Dim n as integer n ＝ 1000 Private Sub Command1_Click() Dim x As String Dim find As Boolean Dim i As Integer x ＝ Text1.Text i ＝ 0 find ＝ False Do While (i n) And find ＝ False 　 ① 　 If ② Then find ＝ True Loop If find ＝ True Then 　 Label2.Caption ＝ “该学生家长联系电话为：” ＋ phone(i) Else 　 Label2.Caption ＝ “未找到该学生” End If End Sub ? Private Sub Form_Load() 学生姓名及家长电话数组赋初值语句，忽略 End Sub 请阅读代码并问答下列问题。 (1)解决此问题的算法是_______________________。 在程序①和②划线处填入适当的语句或表达式，将程序补充完整： (2)程序中①划线处应填入_____________________。 (3)程序中②划线处应填入_____________________。 注：该示例程序在素材文件夹下vb33文件夹中。 顺序查找算