Các thuật toán sắp xếp |sắp xếp chọn|

Nghe tên chắc đã hiểu. Đây có thẻ nói là phương pháp "thủ công" nhất, ít "tốn" chất xám nhất, và cũng chính vì thế chạy "ghê" nhất. Điều này cũng dễ hiểu thôi ^^.

Thuật toán này thực hiện công việc tìm kiếm trong các phàn tử chưa được chọn một phần tử thõa mãn yêu cầu đặt ra rồi chọn, sau đó tiếp tục kiếm tiếp. Lúc đầu nó sẽ tìm pt nhỏ nhất trong dãy rồi đưa một mảng khác, sau đó tiếp tục tìm pt nhỏ nhì rồi cũng đưa ra như thế.

Bài cụ thể:

Code:: program xep_mang;
uses crt;
var a,b:array[1..100] of integer;
i,j,n,s,k,d: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;
k:=0;
while n>0 do
begin
d:=1;
for i:=1 to n do
if a[d]>a[i] then d:=i;
inc(k);
b[k]:=a[d];
for i:=d to n-1 do a[i]:=a[i+1];
dec(n);
end;
write('mang sau khi xep la: ');
for i:=1 to n do write(b[i],' ');
readln;
end.