Metode Pengurutan Gelembung (Bubble Sort) ini diinspirasi oleh gelembung sabun yang berada di permukaan air. Karena berat jenis gelembung sabun lebih ringan dibandingkan dengan berat jenis air, sehingga gelembung sabun selalu terapung di permukaan air. Prinsip pengapungan inilah yang diterapkan ke metode ini, dimana nilai yang paling rendah berada diposisi paling atas, melalui proses pertukaran.
Konsep dasar dari metode ini adalah setiap data yang ada di kumpulan, dibandingkan dengan data-data lainnya, artinya jika jumlah data sebanyak 5, makaakan terjadi pembandingan sebanyak (5-1)2 = 16 kali. Untuk satu data, akan dibandingakan sebanyak 4 kali terhadap data yang lainnya. Atau secara umum dapat ditarik rumus, untuk jumlah data sebanyak n buah, maka:
jumlah iterasi pembandingan = (n -1)^2 .
Jika data-data tersebut disimpan di dalam lari L, maka:
1. untuk pengurutan menaik, pembandingannya sebagai berikut:
L[n] < L[n -1]
2. untuk pengurutan menurun, pembandingannya sebagai berikut:
L[n] > L[n -1]
Jika kondisi di atas terpenuhi, maka nilai data yang ada di indeks n-1 akan ditukar
dengan nilai data yang ada di indeks n.
Contoh Program bubble sort :
Procedure Bubble(numbers: array of integer;size:integer);
var i,j,temp : integer;
begin
for i:= size-1 downto 1 do
for j:= 2 to i do
if numbers[j-1] > numbers[j] then
begin
temp:= numbers[j-1];
numbers[j-1]:= numbers[j];
numbers[j]:= temp;
end;
end;
Untuk contoh program lengkapnya bisa download di bawah ini:
0 Comment to "Sistem Ranking dengan Bubble Sort Pascal"
Post a Comment