Pascal 排序

排序

排序就是将杂乱无章的数据元素，通过一定的方法按关键字顺序排列的过程。排序问题是一个十分重要的问题，并且排序的方法有很多种:

例子:输入20个数，将它们按照从高到低的次序排列以后输出。

方法一:选择排序

选择排序的基本思想:首先从要进行排序的数中选择最大的一个数，将它放在第一个位置，然后从剩下的数中选择最大的放在第二个位置，如此继续，直到最后剩下的两个数中选出较大的数放在倒数第二个位置，剩下的一个数放在最后完成排序。

具体操作:对需要排序的数据序列进行n-1遍的处理，第1遍处理是将L[2..n]中每一个元素与L[1]比较，最大者与L[1]交换位置，第2遍处理是将L[3..n]中每一个元素与L[2]比较，最大者与L[2]交换位置，......，第i遍处理是将L[i+1..n]中每一个元素与L[i]比较，最大者与L[i]交换位置。

算法:1、输入20个数到数组a中;

2、用外循环确定每一个数，需要循环19次;(For i:=1 to 19 do)

3、用内循环实现确定数与后面所有数的比较和交换;For j:=i+1 to 20 do

4、输出结果。                                     If a[i]<a[j]

为了理解，我们以6个数为例来进行说明:

参考程序如下:

Program example(input,output);

Var

a:array[1..20] of integer;

temp: integer;

i,j:integer;

Begin

For i:=1 to 20 do  {读入20个元素}

read(a[i]);

For i:=1 to 19 do  {从第一个到倒数第二个依次确定每个数 }

For j:=i+1 to 20 do  {确定的数与它后面所有的数进行比较}

If a[i]<a[j]

Then  Begin

temp:= a[i];

a[i]:= a[j];

a[j]:=temp

End;

For i:=1 to 20 do   {输出排序后的结果}

Begin

write(a[i]:5);

If i mod 5=0    {控制每行输出5个数据}

Then writeln

End;

End.

上面的程序每次交换两个元素需要执行3个语句，过多的交换必定要花费许多时间，我们做一下改进，就是在内循环中先找出最大值元素的下标，在内循环结束时才考虑是否要交换。改进的选择程序如下:

Program example(input,output);

Var

a:array[1..20] of integer;

temp: integer;

i,j,k:integer;     {添加了一个中间存放下标的变量k}

Begin

For i:=1 to 20 do  {读入20个元素}

read(a[i]);

For i:=1 to 19 do  {从第一个到倒数第二个依次确定每个数 }

Begin

k:=i;

For j:=i+1 to 20 do  {比较之后仅将下标交换给变量k}

If a[i]<a[j]

Then k:=j;

If i<>k

Then  Begin

temp:= a[i];

a[i]:= a[k];

a[k]:=temp

End;

End;

For i:=1 to 20 do   {输出排序后的结果}

write(a[i]);

End.

例子:输入20个数，将它们按照从高到低的次序排列以后输出。

方法二:冒泡排序

冒泡排序的基本思想:依次比较相邻的两个数，将较大的数放在前面，较小的数放在后面。即首先比较第1个数和第2个数，将大的放在前面小的放在后面，然后比较第2个数和第3个数，仍将大的放在前面小的放在后面，如此继续，直到比较最后两个数，大的放在前面小的放在后面，此时第一趟结束，在最后的数必定是最小的数。重复以上步骤，只是最后不用比较最后两个数，这一趟比第一趟少了一步，依次继续下去，直到最后一趟，只比较第一对数，大的放在前面小的放在后面，从而完成排序。

由于在排序过程中总是大数往前放，小数往后放，相当于气泡往上升，所以叫冒泡排序。

算法:

1、输入20个数到数组a中;

2、用外循环实现将最小的数置后，需要循环19次;(For i:=1 to 19 do)

3、用内循环实现相邻两位数的置换; For j:=1 to 20-i do

4、输出结果。                        If a[j]<a[j+1]

为了理解，我们以6个数为例来进行说明:

参考程序如下:

Program example(input,output);

Var

a:array[1..20] of integer;

temp: integer;

i,j:integer;

Begin

For i:=1 to 20 do  {读入20个元素}

read(a[i]);

For i:=1 to 19 do  {从最后一个到第二个依次确定每个数 }

For j:=1 to 20-i do  {实现相邻两位数的置换}

If a[j]<a[j+1]

Then Begin

temp:= a[j];

a[j]:= a[j+1];

a[j+1]:=temp

End;

For i:=1 to 20 do   {输出排序后的结果}

Begin

write(a[i]:4);

If i mod 5=0

Then writeln

End;

End. 

上面的这三种程序的比较次数都是190次，因为

19+18+17+…+1=((19+1)/2)*19=190次

在上面冒泡排序的例子中，我们可以看到，在比较完第二趟之后，数组已经排好序，但计算机并不知道，它还要继续进行第三、第四、第五趟。我们可以做一下改进，如果在某一趟的比较中没有发现任何数据交换，则知道已排好序，可以不用再进行比较了，因此第三趟还需要进行，第四趟、第五趟比较则是不必要的。

最完美的是这样一种情况，如果读入的数是排好序的，则只需要进行一趟比较（19次）就可以了，而不用进行19趟（190次）比较了。

为了标志在比较的过程中是否发生了数据交换，我们可以定义一个布尔型的变量flag，以此来判断是否有数据交换。循环中先把flag置为true，如果有数据交换，在交换之后将flag置为false，最后判断如果flag仍为true，则说明已经排好顺序，循环退出，输出结果。由于不确定到底循环多少次，我们可以使用repeat语句。

改进的选择程序如下:

Program example(input,output);

Var

a:array[1..20] of integer;

temp: integer;

i,j:integer;

flag:boolean;   {添加了一个标志变量flag}

Begin

For i:=1 to 20 do  {读入20个元素}

read(a[i]);

i:=1;

Repeat  {不确定需要循环多少次,所以用Repeat语句}

Flag:=true;

For j:=1 to 20-i do  {实现相邻两位数的置换}

If a[j]<a[j+1]

Then Begin

temp:= a[j];

a[j]:= a[j+1];

a[j+1]:=temp

flag:=false

End;

i:=i+1;

Until flag;

For i:=1 to 20 do   {输出排序后的结果}

write(a[i]);

End;

End.

例子:输入20个数，将它们按照从高到低的次序排列以后输出。

方法三:插入排序

插入排序的基本思想:从第2个数开始取出,从其前一个元素向前依次和它比较,如果遇到比它小的,就将小的数据向后移动一个位置,从而插入到它前面已经排好序的数列中去。如此继续，每次将一个待排序的数据元素，插入到前面已经排好序的数列中的适当位置，使数列依然有序;直到待排序数据元素全部插入完为止。

比如:

参考程序如下:

Program example(input,output);

Var

a:array[1..20] of integer;

t: integer;  {定义一个用于放置取出元素的变量}

i,j:integer;

Begin

For i:=1 to 20 do  {读入20个元素}

read(a[i]);

For i:=2 to 20 do  {从第二个数开始取出 }

Begin

t:=a[i];

j:=i-1;

while (j>0) and (a[j]<t) do  {依次将它前面比它小的数向后移动一个位置}

    begin            问题:条件可不可以写成(a[j]<t) and (j>0)，为什么？

a[j+1]:=a[j];

      j:=j-1;

    end;

a[j+1]:=t; {遇到不比它小的数之后，将取出的数据放置在此数之后}

end;

For i:=1 to 20 do   {输出排序后的结果}

write(a[i]:5);

End.

以上三种方法比较简单，属于简单排序。下面介绍一种比较复杂的高级排序方法:

例子:输入20个数，将它们按照从高到低的次序排列以后输出。

方法四:快速排序算法

快速排序是对冒泡排序的一种改进。

它的基本思想是:通过一趟排序将要排序的数据分割成独立的左右两部分，其中一部分的所有数据都比另外一部分的所有数据要小，而另一部分的所有数据都比前一部分的所有数据要大，然后再按此方法对这两部分数据分别进行快速排序，整个排序过程可以递归进行，直到每一个待处理的序列的长度为1, 处理结束。

   具体操作:假设要排序的数组是A[1]……A[N]，首先任意选取一个数据（通常选用第一个数据）作为关键数据，然后将所有比它小的数都放到它前面，所有比它大的数都放到它后面，这个过程称为一趟快速排序。

比如:              A[1]   A[2]   A[3]   A[4]   A[5]   A[6]   A[7]              

                    49    38     65     27     76     13     97

一趟快速排序之后    97    76     65     49     13     27     38

一趟快速排序的算法是:

  1）设置两个变量I、J，排序开始的时候I:=1，J:=N;

  2）以第一个数组元素作为关键数据，赋值给X，即X:=A[1];

  3）从J开始向前搜索，即由后开始向前搜索（J:=J-1），找到第一个大于X的值，两者交换;

  4）从I开始向后搜索，即由前开始向后搜索（I:=I+1），找到第一个小于X的值，两者交换;

  5）、重复第3、4步，直到I=J;

  例如:待排序的数组A的值分别是:（初始关键数据X:=49）

A[1]   A[2]   A[3]   A[4]   A[5]   A[6]   A[7]              

  49    38     65     27     76     13     97 从后搜，交换前I=1; J=7;交换后I=2 ;J=7

  97    38     65     27     76     13     49 从前搜，交换前I=2; J=7;交换后I=2 ;J=6     

  97    49     65     27     76     13     38 从后搜，交换前I=2; J=6;交换后I=3 ;J=5

  97    76     65     13     49     27     38 从前搜，交换前I=3; J=5;交换后I=4 ;J=5

  97    76     65     49     13     27     38 从后搜，当I=4 ;J=4 结束

     经过一趟快速排序之后的结果是:97   76   65   49   13   27   38，即所有大于49的数全部在49的前面，所有小于49的数全部在49的后面。     

一趟快速排序的程序段:

x:=a[i];

repeat

        while (a[j]<x) and (j>i) do {从后往前搜索比x大的数}

j:=j-1;

        if j>i then  {找到比x大的数后和前面的数进行交换}

begin

w:=a[i];

a[i]:=a[j];

a[j]:=w;

i:=i+1; {交换之后i的值应该增加，定位到后一个}

end;

        while (a[i]>x) and (i<j) do {从前往后搜索比x小的数}

i:=i+1;

        if i<j then

begin

w:=a[j];

a[j]:=a[i];

a[i]:=w;

j:=j-1; {交换之后j的值应该减少，定位到前一个}

end

      until i=j;

整个快速排序过程的实现:

利用分治思想（即大化小的策略）可进一步对分开的两组数据再次分别进行快速排序，照此继续，直到分组对象只有一个数据为止。

我们可以将一趟快速排序写成过程，快速排序就是递归调用此过程。

在上面的例子中，以49为中点分割这个数据序列，然后分别对前面一部分和后面一部分进行类似的快速排序，从而完成全部数据序列的快速排序，最后把此数据序列变成一个有序的序列，根据这种思想对于上述数组A的快速排序的全过程如图所示: 

初始状态                    {49    38    65    97    76    13    27}   

进行一次快速排序之后划分为   {97    76    65}   49    {13   27    38}

分别对前后两部分进行快速排序 97     {76   65}   49    {38   27}    13

                             结束   {76}  {65}        {38}   {27 }  结束

                                    结束  结束       结束  结束

完整的过程:

procedure quicksort(var a:array; s,e:integer);

var i,j,x,w:integer;

    begin

i:=s;

j:=e;

x:=a[i];

repeat

        while (a[j]<x) and (j>i) do {从后往前搜索比x大的数}

j:=j-1;

        if j>i then  {找到比x大的数后和前面的数进行交换}

begin

w:=a[i];

a[i]:=a[j];

a[j]:=w;

i:=i+1; {交换之后i的值应该增加，定位到后一个}

end;

        while (a[i]>x) and (i<j) do {从前往后搜索比x小的数}

i:=i+1;

        if i<j then

begin

w:=a[j];

a[j]:=a[i];

a[i]:=w;

j:=j-1; {交换之后j的值应该减少，定位到前一个}

end

until i=j;

i:=i+1;

j:=j-1;

      if s<j then quicksort(a,s,j);

      if i<e then quicksort(a,i,e);

  end;

完整的参考程序如下:

program kuaisu(input,output);

const

n=20;

  type

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

var

    s:arr;

    m:integer;

procedure quicksort(var a:arr; s,e:integer);

var

i,j:integer;

x,w:integer;

    begin

i:=s;

j:=e;

x:=a[i];

repeat

        while (a[j]<x) and (j>i) do {从后往前搜索比x大的数}

j:=j-1;

        if j>i then  {找到比x大的数后和前面的数进行交换}

begin

w:=a[i];

a[i]:=a[j];

a[j]:=w;

i:=i+1; {交换之后i的值应该增加，定位到后一个}

end;

        while (a[i]>x) and (i<j) do {从前往后搜索比x小的数}

i:=i+1;

        if i<j then

begin

w:=a[j];

a[j]:=a[i];

a[i]:=w;

j:=j-1; {交换之后j的值应该减少，定位到前一个}

end

until i=j;

i:=i+1;

j:=j-1;

      if s<j then quicksort(a,s,j);

if i<e then quicksort(a,i,e);

end; {过程结束}

Begin

Writeln(‘input 20 integer num:‘);

For m:=1 to n do

read(s[m]);

m:=1;

quicksort(s,m,n);

For m:=1 to n do

write(s[m]:4)

End.

练习:明明的随机数　全国青少年信息学奥林匹克分区联赛 (NOIp2006) 普及组第一题

[描述 Description]

   明明想在学校中请一些同学一起做一项问卷调查，为了实验的客观性，他先用计算机生成了N个1到1000之间的随机整数（N≤100），对于其中重复的数字，只保留一个，把其余相同的数去掉，不同的数对应着不同的学生的学号。然后再把这些数从小到大排序，按照排好的顺序去找同学做调查。请你协助明明完成“去重”与“排序”的工作。

[输入格式 Input Format]

   输入有2行，第1行为1个正整数，表示所生成的随机数的个数:N

第2行有N个用空格隔开的正整数，为所产生的随机数。

[输出格式 Output Format]

   输出也是2行，第1行为1个正整数M，表示不相同的随机数的个数。第2行为M个用空格隔开的正整数，为从小到大排好序的不相同的随机数。

[样例输入 Sample Input]

10

20 40 32 67 40 20 89 300 400 15

[样例输出 Sample Output]

8

15 20 32 40 67 89 300 400

[时间限制 Time Limitation]

全部点1s

参考程序:

program mm;

  var

    a,b:array[1..100] of integer;

    i,n,j,k:integer;

  begin

    read(n);

    for i:=1 to n do   {读入所有数据放在数组a中}

      read(a[i]);

    for i:=1 to n-1 do  {所有数据用冒泡法排序}

      for j:=1 to n-i do

         if a[j]>a[j+1]

           then begin

                  t:=a[j];

                  a[j]:=a[j+1];

                  a[j+1]:=t;

                end;

    k:=1;

    b[1]:=a[1];      {数组a中的第一个元素赋值给数组b的第一个元素}

    for i:=2 to n do

      if a[i]<>a[i-1]  {当本元素与前一个不相等时才赋给数组b}

        then begin

              k:=k+1;

              b[k]:=a[i];

             end;

    writeln(k);      {输出不同元素的个数}

    for i:=1 to k do

      write(b[i],‘ ‘);

  end.