[NOIP算法]快速排序——双关键字

关于快排的双关键字排序。

要求：a[i]按照从小到大排序，a[i]相同则按b[i]从小到大排序。

核心：先比较a[i]，按正常排序；或则a[i]相同，则b[i]按照顺序也可通过。
代码：

program qsort_double;var n,i:longint;    a,b:array[1..10000]of longint;procedure qsort(x,y:longint);var i,j,mid1,mid2,t:longint;begin i:=x;j:=y; mid1:=a[(x+y) div 2]; mid2:=b[(x+y) div 2]; repeat  while (a[i]<mid1)or(a[i]=mid1)and(b[i]<mid2) do i:=i+1;  while (a[j]>mid1)or(a[j]=mid1)and(b[j]>mid2) do j:=j-1;  if i<=j then   begin    t:=a[i];a[i]:=a[j];a[j]:=t;    t:=b[i];b[i]:=b[j];b[j]:=t;    i:=i+1;j:=j-1;   end; until i>j; if i<y then qsort(i,y); if x<j then qsort(x,j);end;begin read(n); for i:=1 to n do  read(a[i],b[i]); qsort(1,n); for i:=1 to n do  writeln(a[i],' ',b[i]);end.

扩展：若为三关键字，则改成

                              while (a[i]<mid1)or(a[i]=mid1)and(b[i]<mid2)or(a[i]=mid1)and(b[i]=mid2)and(c[i]<mid3) do i:=i+1;

                  while (a[j]>mid1)or(a[j]=mid1)and(b[j]>mid2)or(a[j]=mid1)and(b[j]=mid2)and(c[j]>mid3) do j:=j-1;