Bubble Sort

Bubble sort adalah membandingkan elemen yang sekarang dengan elemen

yang berikutnya, jika elemen sekarang > elemen berikutnya, maka tukar.

Contoh pengurutan data :

Lankah 1 :

22 10 15 3 8 2

22 10 15 3 2 8

22 10 15 2 3 8

22 10 2 15 3 8

22 2 10 15 3 8

2 22 10 15 3 8

Langkah 2 :

2 22 10 15 3 8

2 22 10 15 3 8

2 22 10 3 15 8

2 22 10 3 15 8

2 3 22 10 15 8

Langkah 3 :

2 3 22 10 15 8

. 3 22 10 8 15

2 3 22 8 10 15

2 3 8 22 10 15

Langkah 4 :

2 3 8 22 10 15

. 3 8 22 10 15

2 3 8 10 22 15

Langkah 5 :

2 3 8 10 22 15

2 3 8 10 15 22

Terurut :

2 3 8 10 15 22

Algoritma bubble sort :

Procedure tukar (var a,b:word);

Var c:word;

Begin

c:=a;

a:=b;

b:=c;

End;

Pengurutan Ascending : Jika elemen sekarang lebih besar dari elemen berikutnya maka kedua elemen tersebut ditukar.

Procedure asending_Buble(var data:array; jmldata:integer);

Var I,j:integer;

Begin

for i:=2 to jmldata do

for j:=jmldata downto I do

if data[j]

tukardata(data[j], data[j-1])

End;

Pengurutan Descending: Jika elemen sekarang lebih kecil dari elemen berikutnya, maka kedua elemen tersebut ditukar.

Procedure decending_Buble(var data:array; jmldata:integer);

Var I,j:integer;

Begin

for i:=2 to jmldata do

for j:=jmldata downto I do

if data[j] >data{j-1] then

tukardata(data[j], data[j-1])

End;