简单排序

简单排序

1.选择排序  

选择排序的基本思想是：

对待排序的记录序列进行n-1遍的处理，第1遍处理是将L[1..n]中最小者与L[1]交换位置，第2遍处理是将L[2..n]中最小者与L[2]交换位置，......，第i遍处理是将L[i..n]中最小者与L交换位置。这样，经过i遍处理之后，前i个记录的位置就已经按从小到大的顺序排列好了。

例1:输入序列数据按非减顺序输出.

   程序如下:

  programxzpx;
const n=7;
var a:array[1..n] of integer;
    i,j,k,t:integer;
begin
write('Enter date:');
for i:= 1 to n do read(a);
writeln;
for i:=1 to n-1 do
  begin
   k:=i;
   for j:=i+1 to n do
    if a[j]<a[k] then k:=j;
   if k<>i then
    begin t:=a;a:=a[k];a[k]:=t;end;
  end;
write('output data:');
for i:= 1 to n do write(a:6);
writeln;
end.