pengurutan data pada pascal

Definisi Sort
Sort adalah proses pengurutan data yang
sebelumnya disusun secara acak sehingga
menjadi tersusun secara teratur menurut
suatu aturan tertentu.
Pada umumnya terdapat 2 jenis pengurutan :
 Ascending (Naik)
 Descending (Turun)

Contoh Pengurutan Data

Contoh :

 Data Acak : 5 6 8 1 3 25 10
 Terurut
Ascending : 1 3 5 6 8 10 25
 Terurut
Descending : 25 10 8 6 5 3 1

----------------------------
Bubble / Exchange Sort

Memindahkan elemen yang sekarang dengan
elemen yang berikutnya, jika elemen
sekarang > elemen berikutnya, maka tukar

Proses Pengurutan

Data paling akhir dibandingkan dengan data di
depannya, jika ternyata lebih kecil maka
tukar. Dan pengecekan yang sama dilakukan
terhadap data yang selanjutnya sampai
dengan data yang paling awal.

Procedure Tukar Data

Procedure TukarData(var a,b : integer);
Var c : word;
Begin
c:=a;
a:=b;
b:=c;
end;

Contoh Procedure Bubble

Procedure Asc_Bubble;
Var i,j,k : integer;
Begin
For i:= 2 to jmldata do
begin
For j:= jmldata downto I do
If data[j] < data[j-1] then
Tukardata (data[j], data[j-1]);
end;
end;

by Facebook Comment , Mau ?