快速排序笔记

二分法的基础运用

快速排序的基本思想为，通过一趟排序将要排序的数据分割成独立的两部分，其中一部分的所有数据都比另外一部分的所有数据都要小，然后再按此方法对这两部分数据分别进行快速排序，整个排序过程可以递归进行，以此达到整个数据变成有序序列。

procedure switch(Var a,b:longint);
Var tmp:longint;
Begin
		tmp:=a;
		a:=b;
		b:=tmp;
end;

procedure qsort(i,j:longint);
Var l,r,mid:longint;
Begin
        l:=i;
        r:=j;
        mid:=a[(i+j)>>1];
        repeat
                while (a[i]<mid) do
                Begin
                        inc(i);
                end;
                while (a[j]>mid) do
                Begin
                        dec(j);
                end;
                if i<=j then
                Begin
                        switch(a[i],a[j]);
                        inc(i);
                        dec(j);
                end;
        until i>j;
        if i<r then qsort(i,r);
        if j>l then qsort(l,j);
end;