比较排序算法——选择排序（Selection Sort）

　　选择排序的基本思想是对待排序的记录序列进行n-1遍的处理，第i遍处理是将L[i..n]中最小者与L[i]交换位置。这样，经过i遍处理之后，前i个记录的位置已经是正确的了。

　　选择排序算法可实现如下：

　　procedure Selection_Sort(var L:List);
　　var
　　i,j,s:position;
　　begin
　　1  for i:=First(L) to Last(L)-1 do
　　    begin
　　2   s:=i;
　　3   for j:=i+1 to Last(L) do
　　4     if L[j]< L[s] then
　　5     s:=j;             //记录L[i..n]中最小元素的位置
　　6   swap(L[i],L[s]);       //交换L[i],L[s]
　　 end; 
　　end;

　　算法Selection_Sort中里面的一个for循环需要进行n-i次比较，所以整个算法需要

　　次比较。

　　显而易见，算法Selection_Sort中共调用了n-1次swap过程。选择排序法是一个原地置换排序法，也是稳定排序法。