第6讲排序算法及应用研讨.ppt

第六讲　排序算法及应用;排序算法的种类：;1、选择排序 算法基本思想： 对待排序的序列进行n-1遍处理： 第1遍处理是从a[1],a[2],……a[n]中选择最小的放在a[1]位置； 第2遍处理是从a[2],a[3],……a[n]中选择最小的放在a[2]位置； …… 第I遍处理是将a[ i ],a[ i+1],……a[n]中最小的数与a[ i ]交换位置，这样经过第i遍处理后，a[i]是所有的中的第i小。即前i个数就已经排好序了。 N-1遍处理后，剩下的最后一个一定是最大的，不需要再处理了。;a:待排序的数组；//从小到大排序 简单选择排序： for i:=1 to n-1 do { 从第一个元素开始,进行n-1遍处理}  for j:=i+1 to n do {第i遍处理} If a[i]a[j] then { 交换a[i]和a[j]}  begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end; ;算法的改进: 减少交换次数;2、冒泡排序算法： 基本思想：（从小到大排序） 将待排序的数据看作竖派排的一列”气泡“，小的数据比较轻，从而要上浮。 共进行n-1遍处理，每一遍处理，就是从底向上检查序列，如果相邻的两个数据顺序不对，即轻（小）的在下面，就交换他们的位置。 第一遍处理完后，“最轻”的就浮到上面。 第二遍处理完后，“次轻”的就浮到上面。 共需要n-1遍处理即完成排序。;// 简单的冒泡排序 for i:=1 to n-1 do for j:=n downto i+1 do if a[j]a[j-1] then begin t:=a[j]; a[j]:=a[j-1]; a[j-1]:=t; end;;// 判断标志： flag=true 已有序 //改进后的冒泡排序 for i:=1 to n-1 do begin flag:=true; for j:=n downto i+1 do if a[j]a[j-1] then begin t:=a[j]; a[j]:=a[j-1]; a[j-1]:=t; flag:=false; end; if flag=true then break; //某一轮没有交换，说明都已经有序了 end;;测定时间的方法： 通过访问MemL[Seg0040:$006C]来获取当前时间，它返回的是当日零时到现在所经过的时间，单位约为55毫秒（约1/18.2秒）。;StartTime := MemL[Seg0040:$006C]; for i:=1 to n-1 do for j:=n downto i+1 do if a[j]a[j-1] then begin t:=a[j]; a[j]:=a[j-1]; a[j-1]:=t; end; writeln((MemL[Seg0040:$006c] - StartTime)/18.2:0:2);;3、插入排序算法:;4、快速排序算法：;procedure qsort(s,t:integer);{s:待排序数组首元素下标,t:末尾元素下标} var i,j:integer; x:integer; begin i:=s; j:=t; x:=a[s]; {x:首元素为基准元素} while ij do begin while (a[j]=x) and(ji) do dec(j); {从未部找比x小的元素a[j]} if ji then begin a[i]:=a[j]; inc(