Procedure Selection Sort Ascending .....

Procedure Selection Sort Ascending

Procedure Asc_Selection;
Var min, pos : byte;
Begin
For i:= 1 to max-1 do
Begin
Pos:=i;
For j:= i+1 to max do
If data[j] < data[pos] then pos:=j;
If i <> pos then tukardata(data[i],data[pos]);
end;
end;

untuk pngurutan secara desending, anda hanya perlu mengganti baris ke-8 sbb :
if data[pos] < data[j] then pos:=j;
Insertion Sort
Pengurutan dilakukan dengan cara membandingkan data ke-I (dimana I dimulai dari data ke-2 sampai dengan data terakhir) dengan data berikutnya. Jika ditemukan data yang lebih kecil maka data tersebut disisipkan ke depan sesuai posisi yang seharusnya.