顺序查找算法及程序实现 ppt课件.ppt

之算法实现
2021/3/30
1
查找是一种查询数据的技术，其目标是能以比较少的步聚和较短的时间找到所需的对象
顺序查找的基本思想
是从第一个数据开始，按数据的顺序逐个将数据与给定的值进行比较。若某个数据和给定的值相等，则查找成功，找到所查数据的位置；反之，查找不成功。
查找算法
2021/3/30
2
精品资料
2021/3/30
3
你怎么称呼老师？
如果老师最后没有总结一节课的重点的难点，你是否会认为老师的教学方法需要改进？
你所经历的课堂，是讲座式还是讨论式？
教师的教鞭
“不怕太阳晒，也不怕那风雨狂，只怕先生骂我笨，没有学问无颜见爹娘 ……”
“太阳当空照，花儿对我笑，小鸟说早早早……”
2021/3/30
4
顺序查找
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的值相等。
2021/3/30
5
顺序查找的流程图
开始
i 1
d(i)=key?
i<=n?
i　i+1
未找到，输出结果：0
找到，输出结果：i
结束
Y
N
Y
N
2021/3/30
6
例题：顺序查找
2021/3/30
7
1、首先在通用声明事件里定义数组d变量为全局变量。
Dim d(1 To 10) As Integer
Dim i, key As Integer
2、程序一运行，生成10个3位整数，显示在标签1中。
Private Sub Form_Load()
= ""
Randomize
For i = 1 To 10
d(i) = Int(Rnd * 101 + 100)
= & d(i) & " "
Next i
End Sub
2021/3/30
8
3、在文本框1中输入要找的数，单击“顺序查找”按钮，在文本框2中显示找到的结果。
Private Sub Command1_Click()
key = Val()
num = 10
For i = 1 To num
If d(i) = key Then
= “在数组的 ” + Str(i) + 位置中"
Exit For
End If
Next i
If i = num + 1 Then
= “在数组中没有找到" + Str(key)
End If
End Sub
2021/3/30
9
某学校把每个学生的姓名和家长联系电话保存到计算机中，以便遇到紧急情况时可以及时通知学生家长。每个学生的姓名和家长联系电话已经保存在数组xm和phone(都为字符串类型)中。现在要设计一个根据输入的学生姓名查询该学生家长的联系电话的程序。程序运行时的界面如下图所示：
完善程序：下列程序运行时，在Text1中输入学生姓名，单击“查询家长电话”按钮Command1后，在标签Label2中显示对应的学生家长电话，若找不到则显示“未找到该学生”。程序代码如下：
2021/3/30
10