Diễn đàn tin học Nguyễn Văn Linh

The second house for every one
 
IndexTrợ giúpTìm kiếmThành viênĐăng kýĐăng Nhập

Share | 
 

 Thuật toán sắp xếp quick sort

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
Hovanthong
Admin
Admin


Tổng số bài gửi : 101
Join date : 25/07/2010
Age : 22
Đến từ : Hưng nguyên-Nghệ An

Bài gửiTiêu đề: Thuật toán sắp xếp quick sort   Mon 26 Jul 2010, 16:56

Code:

Var              N,i:longint;
                    A:Array[1..100000] of longint;
Procedure      Sort(L,R:longint);
Var              i,j,Key,Tam:longint;
Begin
                  If L>=R then Exit;
                  i:=L;
                  j:=R;
                  Key:=A[(L+R) div 2];
Repeat
                  While A[i]<Key do Inc(i);
                  While A[j]>Key do Dec(j);
                  If i<=j then
                  Begin
                          Tam:=A[i];
                          A[i]:=A[j];
                          A[j]:=Tam;
                          Inc(i);
                          Dec(j);
                  End;
Until            i>j;
                  Sort(i,R);
                  Sort(L,j);
End;
BEGIN
                  Readln(N);
                  For i:=1 to N do
                  Begin
                                Read(A[i]);
                  End;
                  Sort(1,N);
                  For i:=1 to N do Write(A[i],' ');
                  Readln;
END.
Về Đầu Trang Go down
http://thongtra.forum-viet.com
 
Thuật toán sắp xếp quick sort
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» Những bài thuốc chữa nghẹt mũi
» Những phương thuốc Dân gian
» THUẬN NGHỊCH ĐỘC & vỸ TAM THANH
» Nghệ thuật làm dâu
» ẢO THUẬT

Permissions in this forum:Bạn không có quyền trả lời bài viết
Diễn đàn tin học Nguyễn Văn Linh :: Góc tin học :: Lớp chuyên tin-
Chuyển đến