Các thuật toán sắp xếp |sắp xếp nổi bọt|

Thuật toán sắp xếp nổi bọt là thuật toán sắp xếp hai phần tử liền kề nhiều lượt liên tiếp cho đến khi mảng đã xếp đúng rồi. Có nghĩa là mình sẽ xếp phần tử (pt) thứ nhất và pt thứ hai, sau đó xếp pt thứ 2 và pt thứ 3, rồi pt thứ 3 và pt thứ 4...Sau đó, nếu mảng chưa thõa mãn thì tếp tục như thế một lần nữa. Rồi nếu vẫn chưa được thì cứ thế tiếp tục.

Sau đây là bài cụ thể:

Code:: program xep_mang;
uses crt;
var a:array[1..100] of integer;
i,n,s:integer; bl:boolean;
begin
clrscr;
write('nhap vao so phan tu cua mang: ');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
bl:=false;
while bl=false do
begin
bl:=true;
for i:=1 to n-1 do
if a[i]>a[i+1] then
begin
s:=a[i];
a[i]:=a[i+1];
a[i+1]=s;
bl:=false;
end;
end;
write('mang sau khi xep la: ');
for i:=1 to n do write(a[i],' ');
readln;
end.

Muốn xếp giảm dần, thay a[i]>a[i+1] bằng a[i]<a[i+1], tức là đổi dấu thôi.

bài này không hợp lí cho lắm

Thuật toán sắp xếp này rất hữu dụng. Sao lại ko hợp lý.

Đúng rồi đó, có lẽ vankhoa1260 nhầm lẫn gì chăng

Gà mờ Tổng số bài gửi : 1 Join date : 09/02/2010

Bài bạn viét rất hay