在介绍选择排序法之前先介绍一种把最小的数放在第一个位置上的算法，当然也可以用前面所讲的冒泡排序法，现在我们改用一种新的算法：其指导思想是先并不急于调换位置，先从A[1]开始逐个检查，看哪个数最小就记下该数所在的位置P，等一躺扫描完毕，再把A[P]和A[1]对调，这时A[1]到A[10]中最小的数据就换到了最前面的位置。算法的步骤如下：

1）、先假设A[1]中的数最小，记下此时的位置P=1；

2）、依次把A[P]和A[I]（I从2变化到10）进行比较，每次比较时，若A[I]的数比A[P]中的数小，则把I的值赋给P，使P总是指向当前所扫描过的最小数的位置，也就是说A[P]总是等于所有扫描过的数最小的那个数。在依次一一比较后，P就指向10个数中最小的数所在位置，即A[P]就是10个数中最小的那个数；

3）把A[P]和A[1]的数对调，那么最小的数就在A[1]中去了，也就是在最前面了。

如果现在重复此算法，但每重复一次，进行比较的数列范围就向后移动一个位置。即第二遍比较时范围就从第2个数一直到第N个数，在此范围内找最小的数的位置P，然后把A[P]与A[2]对调，这样从第2个数开始到第N个数中最小数就在A[2]中了，第三遍就从第3个数到第N个数中去找最小的数，再把A[P]与A[3]对调……此过程重复N-1次后，就把A数组中N个数按从小到大的顺序排好了。这种排序的方法就是选择排序法。以上算法可以用图4表示：

J>N--1

J：=1

P：=J

I>N

A[I]<A[P]

I：=J+1

I：=I+1

 

 

　

P:=I

 

 

 

　

N

Y

 

 

 

 

 

　

N

 

 

Y

结  束

Y

A[P]与A[J]对调；J：=J+1

N

 

 

 

 

 

 

                            图4   选择排序法程序流程图

程序代码：

    program xuanze(input,output);

    const n=10;

    type

       colarr=array[1..n] of integer;

    var

       a:colarr;I,j,p,t:integer;

    begin

      writeln(‘input 10 integer num:’);

      for I:=1 to n do read(a[I]);

      for j:=1 to n-1 do

        begin

          p:=j

          for I:=j+1 to n do  if a[I]<a[p] then p:=I;

          t:=a[p];a[p]:=a[j];a[j]:=t;

        end;

      writeln(‘output num:’);

      for I:=1 to n do

          write(a[I]:5)

      end.