Similar topics
Một số thuật toán sắp xếp.
Tin k9-NBK Quảng Nam :: Học tập :: Tin :: Kiến Thức
Trang 1 trong tổng số 1 trang
Một số thuật toán sắp xếp.
1/Sắp xếp chọn
Là một trong những thuật toán sắp xếp đơn giản nhất: đầu tiên tìm phần tử nhỏ nhất trong dãy, và hoán vị nó với phần tử trong vị trí đầu tiên, sau đó tìm phần tử nhỏ nhất kế tiếp và hoán vị nó với phần tử trong vị trí thứ 2, cứ thế cho tới khi sắp xếp xong.
giải thuật
Var i,j,min,tmp:integer;
Begin
for i:=1 to n-1 do
begin
min:=i;
for i:=i+1 to n do
if a[j]<a[min] then min:=j;
tmp:=a[min];
a[min]:=a[i];
a[i]:=tmp;
end;
END.
2/Sắp xếp chèn
Xét từng phần tử ở một thời điểm, chen từng phần tử vào vị trí thích hợp của nó trong số các phần tử đã sắp xếp rồi. Phần tử đang được xét chén một cách đơn giản bằng cách chuyển các phần tử lớn hon sang phải một vị trí và sau đó chèn phần tử vào vị trí đã được bỏ.
Giải thuật
Var i,j,tmp:integer;
begin
for i:=2 to n do
begin
tmp:=a[i];
j:=i;
while a[j-1]>tmp do
begin
a[j]:=a[j-1];
j:=j-1;
end;
a[j]:=tmp;
end;
end;
Đây chỉ là thuật toán và chương trình chính thôi.
Là một trong những thuật toán sắp xếp đơn giản nhất: đầu tiên tìm phần tử nhỏ nhất trong dãy, và hoán vị nó với phần tử trong vị trí đầu tiên, sau đó tìm phần tử nhỏ nhất kế tiếp và hoán vị nó với phần tử trong vị trí thứ 2, cứ thế cho tới khi sắp xếp xong.
giải thuật
Var i,j,min,tmp:integer;
Begin
for i:=1 to n-1 do
begin
min:=i;
for i:=i+1 to n do
if a[j]<a[min] then min:=j;
tmp:=a[min];
a[min]:=a[i];
a[i]:=tmp;
end;
END.
2/Sắp xếp chèn
Xét từng phần tử ở một thời điểm, chen từng phần tử vào vị trí thích hợp của nó trong số các phần tử đã sắp xếp rồi. Phần tử đang được xét chén một cách đơn giản bằng cách chuyển các phần tử lớn hon sang phải một vị trí và sau đó chèn phần tử vào vị trí đã được bỏ.
Giải thuật
Var i,j,tmp:integer;
begin
for i:=2 to n do
begin
tmp:=a[i];
j:=i;
while a[j-1]>tmp do
begin
a[j]:=a[j-1];
j:=j-1;
end;
a[j]:=tmp;
end;
end;
Đây chỉ là thuật toán và chương trình chính thôi.
quyetchi- Ma cấp I
- Tổng số bài gửi : 67
Join date : 22/10/2010
Tin k9-NBK Quảng Nam :: Học tập :: Tin :: Kiến Thức
Trang 1 trong tổng số 1 trang
Permissions in this forum:
Bạn không có quyền trả lời bài viết