高中课程中的算法问题.pptVIP

数组应用之排序 选择法排序 (1)???? 从n个数中选出最小数的下标，出了循环，将最小数与第一个数交换位置； (2)???? 除第一个数外，在剩下的n-1个数中再按方法（1）选出次小的数，与第二个数交换位置； (3)???? 以此类推，最后构成递增序列。 例： 排序运动员的成绩 已知8名运动员100米成绩，请排出他们的名次（成绩相同名次相同，成绩由键盘输入） 本题的难点并不在排序，可以很轻松地用冒泡法或选择法排序进行成绩从小（快）到大（慢）的排列。问题是排序后的成绩对应于哪一个运动员，一维数组是无法记录的。因此就要定义一个二维数组，其中第一列放运动员的成绩，第二列存放成绩对应的运动员号。按二维数组的第一列排序后，产生交换不仅要交换第一列的数组元素，还要交换第二列的数组元素，这样运动员的编号就能跟着成绩“跑了”。在输出名次时，也要注意成绩相同、名次相同的问题。 排序过程（选择法排序） Private Sub sort(cj() As Single) Dim temp As Single For i = 1 To 7 For j = i + 1 To 8 If cj(i, 1) cj(j, 1) Then temp = cj(i, 1): cj(i, 1) = cj(j, 1): cj(j, 1) = temp temp = cj(i, 2): cj(i, 2) = cj(j, 2): cj(j, 2) = temp End If Next Next End Sub 输出名次过程 Private Sub output(cj() As Single) Dim j As Integer, p As Integer p = 1 Print 第; 1; 名是; cj(1, 2); 号运动员，成绩是:; cj(1, 1) For j = 2 To 8 If cj(j, 1) = cj(j - 1, 1) Then Print 第; p; 名是; cj(j, 2); 号运动员，成绩是:; cj(j, 1) Else Print 第; j; 名是; cj(j, 2); 号运动员，成绩是:; cj(j, 1) p = j End If Next Print End Sub 窗体事件过程 ’ 输入运动员成绩 Private Sub Form_Click() Dim i As Integer Dim pro As String, cj(8, 2) As Single Randomize For i = 1 To 8 pro = 请输入第 + Str(i) + 位运动员的成绩： cj(i, 1) = InputBox(pro) cj(i, 2) = i Print cj(i, 1); Next Print Print Call sort(cj) Call output(cj) End Sub 快速排序 快速排序由霍尔 (Hoare) 提出，它是一种对冒泡排序的改正。由于其排序速度快，故称快速排序 (quick sort) 。快速排序方法的实质是将一组关键字 [K 1 ,K 2 ,…,K n ] 进行分区交换排序。 快速排序 算法思路　　①以第一个关键字 K 1 为控制字，将 [K 1 ,K 2 ,…,K n ] 分成两个子区，使左区所有关键字小于等于 K 1 ，右区所有关键字大于等于 K 1 ，最后控制字居两个子区中间的适当位置。在子区内数据尚处于无序状态。 　　②将右区首、尾指针 ( 记录的下标号 ) 保存入栈，对左区进行与第①步相类似的处理，又得到它的左子区和右子区，控制字居中。 　　③重复第①、②步，直到左区处理完毕。然后退栈对一个个右子区进行相类似的处理，直到栈空。 　　 快速排序 试用 [6,7,5 1 ,2,5 2 ,8] 进行快速排序。排序过程简述如下：?6 ???7 ??51?? 2 ??52 ?8?? ???初始状态[52 ??7 ??51]? 6 ?[7 ??8] [2]??52 ?[51] ?6 ??7 ?[8] [2? ?52???51 ??6 ??7 ??8]???? 最后状态 　　从这个例子可以分析出快速排序法的稳定性问题，其中51和52表示