//
you're reading...
01 - Chủ đề thuật toán, Dùng cho cấp THCS, Dùng cho cấp THPT

Quick Sort

const Max = 10;
type m1= array[1..max] of longint;
var a: m1;
i,j,n: longint;

Procedure QuickSort(L , H: longint);
var i,j : longint;
x, tmp: longint;
begin
i:= L;
j:= H;
x:=a[(L+H) div 2];
repeat
while a[i]x do dec(j);
if ij;
if L<j then QuickSort(L,j);
if i<H then QuickSort(i,H);
end;

begin
write(‘Nhap so phan tu n= ‘);
readln(n);

for i:=1 to n do
begin
write(‘a{‘,i,’] = ‘);
readln(a[i]);
end;
QuickSort(1,n);

for i:=1 to n do write(a[i], ‘ ‘);
readln;
end.

Advertisements

About pascalteacher

Trang thông tin Toán học và Tin học

Thảo luận

Không có bình luận

Trả lời

Mời bạn điền thông tin vào ô dưới đây hoặc kích vào một biểu tượng để đăng nhập:

WordPress.com Logo

Bạn đang bình luận bằng tài khoản WordPress.com Đăng xuất / Thay đổi )

Twitter picture

Bạn đang bình luận bằng tài khoản Twitter Đăng xuất / Thay đổi )

Facebook photo

Bạn đang bình luận bằng tài khoản Facebook Đăng xuất / Thay đổi )

Google+ photo

Bạn đang bình luận bằng tài khoản Google+ Đăng xuất / Thay đổi )

Connecting to %s

Các tác giả

Categories

Tháng Mười 2012
H B T N S B C
« Th8   Th11 »
1234567
891011121314
15161718192021
22232425262728
293031  

NCT Computer

Flickr Photos

Thống kê

  • 150,179 lượt xem

pascalteacher.nct@gmail.com


Trang huấn luyện học sinh giỏi Tin học

%d bloggers like this: