文档介绍：粤教2003课标版选修1
课题：插入排序算法
西藏林芝市第一中学
授课教师：谢海军
活动一：测测眼力，看谁快
·查看表格，找出总分排名第五、第六的考生
·排序：将杂乱无章的数据元素，通过一定的方法按关键字顺序排列的过程叫做排序。
·排序方法：插入排序、冒泡排序、选择排序等。
·插入排序：将一个数据插入到已经排好序的有序数据中，从而得到一个新的、个数加一的有序数据。
活动二：查找规律，我最强
49 38 65 97 76 13 27 49
第1次
第2次
第3次
第4次
第5次
第6次
第7次
38 49 65 97 76 13 27 49
38 49 65 76 97 13 27 49
13 27 38 49 49 65 76 97
38 49 65 97 76 13 27 49
38 49 65 97 76 13 27 49
13 27 38 49 65 76 97 49
13 38 49 65 76 97 27 49
初始值
活动三：开动脑筋，抽象算法
·编写程序，将7,5,4,8,3这组数据按照由小到大的顺序进行输出显示。
5
7
4
8
3
4
5
7
8
3
4
5
7
8
3
3
4
5
7
8
活动三：开动脑筋，抽象算法
·你看到了几个循环？有内在关系吗？
·外层循环共执行几次？次数是确定的吗？
·某次排序内循环最多执行几次？
·内循环执行条件？
·数组中数字发生顺序变化，仅凭现有变量能完成吗？
需要怎么处理？
活动三：开动脑筋，抽象算法
For i = 2 To 5
temp = a(i)
j = i
While j >= 2 And a(j - 1)>temp
a(j) = a(j - 1)
j = j - 1
Wend
a(j) = temp
Next
2个条件
1个变量
1个嵌套
活动四：编写程序
Private Sub Command1_Click()
Dim a(1 To 5) As Integer
Dim temp As Integer
a(1) = 7
a(2) = 5
a(3) = 4
a(4) = 8
a(5) = 3
For i = 2 To 5
temp = a(i)
j = i
While j >= 2 And a(j - 1) > temp
a(j) = a(j - 1)
j = j - 1
Wend
a(j) = temp
Next
For i = 1 To 5
Print a(i);
Next
Print
End Sub
活动五：小试牛刀，巩固练****br/>·现将数字串9,8,6,4,1,2,3进行插入排序，结合算法
回答下面问题。
·完成排序，外部循环共计执行（）次

·假设用temp作为临时变量，第5次排序完成后temp为（）

活动五：小试牛刀，巩固练****br/>·现有数字串9,8,6,4,1,2,3按照插入排序算法
回答下面问题。
·请写出第3次排序完成后，数字串显示结果？