Giải thuật sắp xếp có 3 cách chủ yếu như trên được dùng nhiều trong giải toán tin. Tư tưởng chủ đạo của quick sort là phân vùng để sắp xếp. Ban đầu bạn có 1 cùng cần xếp là 1 ..n phần tử ban đầu. Cho hai biến chạy 1 chạy từ đầu đến cuối và 1 biến chạy ngược lại.Quá trình trên tiếp tục cho đến khi bạn phát hiện ra phần tử có giá trị lớn hơn (hoặc nhỏ hơn phần tử hiện tại) sau đó phân vùng tiếp ...
ví dụ : Xếp mảng a theo chiều tăng dần.
Dây là đoạn chương trình chính, bạn thử xem nhé !
Procedure Xep(dau,cuoi:Integer)
Var
i,j:Integer;
Begin
i:=dau;
j:=cuoi
While (i<cuoi) and (a[i]<a[cuoi]) Do Inc(i);
While (j>dau) and (a[j]<a[cuoi]) Do Inc(j);
If a[i]<a[j] Then
Begin
DoiCho(a[i],a[j]);
Inc(i);
Dec(j);
End;
If i<cuoi Then Xep(i,cuoi);
If j>dau Then Xep(j,dau);
End;