Source Code Program Pengurutan Bubble Sort dengan Pascal

Source Code Program Pengurutan Bubble Sort dengan Pascal – Bubble Sort merupakan salah satu teknik pengurutan dalam menyusun angka-angka baik itu dari urutan terkecil-terbesar (Ascending) atau dari angka terbesar-terkecil (descending). Logika dalam pengurutan dengan menggunakan bubble sort ialah dengan membandingkan angka di urutan pertama dengan urutan kedua. Jika angka pertama lebih besar dari urutan kedua maka posisi diubah dan jika tidak posisi tidak berubah.

Agar lebih mudah dipahami disini saya memberikan satu contoh. Misalnya kita mempunya angka seperti berikut 4, 2, 7, 19, 15, 21, 11 Maka jika untuk mengurutkan angka-angka tersebut dengan mengunakan teknik bubble sort adalah seperti di bawah ini.

4, 2, 7, 19, 15, 21, 11 (Bandingkan angka ke-1 dengan angka ke-2 (4>2)  ya,  tukar posisi)

2, 4, 7, 19, 15, 21, 11 (Bandingka angka ke-2 dengan angka ke-3 (4>7) tidak, posisi tetap)

2, 4, 7, 19, 15, 21, 11 (Bandingka angka ke-3 dengan angka ke-4 (7>19) tidak, posisi tetap)

2, 4, 7, 19, 15, 21, 11 (Bandingka angka ke-4 dengan angka ke-5 (19>15) ya, tukar posisi)

2, 4, 7, 15, 19, 21, 11 (Silahkan dilanjutkan sampai mendapatkan angka tertinggi pertama)

Source Code Program

Berikut ini source code program pengurutan bubble sort dengan Pascal:

uses wincrt; 

var index : byte;
last_compare_at : byte;
n,i,temp : byte;
a : array [1..6] of byte; 

clrscr; 

begin 
    n:=6;

    for i:=1 to n do 
        begin 
            write('Masukkan angka ke - ',i); 
            write(' : '); 
            readln(a[i]); 
        end; 

    writeln(‘’); 
    writeln('ini hasil sorting menggunakan bubble sort'); 

    for last_compare_at:=n-1 downto 1 do 
        begin 
            for index:=1 to last_compare_at do 
                begin 
                    if(a[index] > a[index + 1]) then 
                        begin 
                            temp := a[index]; 
                            a[index] := a[index + 1]; 
                            a[index + 1] := temp; 
                        end; 
                end; 
        end; 

    for i:=1 to n do 
        begin 
            write(a[i]); 
            write(' '); 
        end; 
        
        readln; 
        writeln(' '); 
        writeln  (‘Visit –> https://neleyankode.com’); 

end.

Output Program

Kurang lebih output programnya akan seperti di bawah ini

Jika ada yang masih dibingungkan dengan source code di atas silahkan tanyakan pada kolom komentar di bawah. Dan jangan lupa like dan komentarnya demi kemajuan blog ini terimakasih :)