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.

Source Code Program Pengurutan Bubble Sort dengan Pascal

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)

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;

begin

       n:=6;
       clrscr;

            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 –> http://junedalbughisy.blogpsot.com’);

end.

Kurang lebih output programnya akan seperti di bawah ini

Source Code Program Pengurutan Bubble Sort dengan Pascal 01

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 :)

Tidak ada komentar:

Catatan:
Untuk menyisipkan video, gunakan tag <i rel="youtube">URL YOUTUBE ANDA...</i>
Untuk menyisipkan gambar, gunakan tag <i rel="image">URL GAMBAR ANDA...</i>
Untuk menyisipkan kode, gunakan tag <i rel="code">KODE ANDA...</i>
Untuk menyisipkan kode panjang, gunakan tag <i rel="pre">KODE ANDA...</i>
Untuk menyisipkan catatan, gunakan tag <b rel="quote">CATATAN ANDA...</b>
Untuk menciptakan efek tebal gunakan tag <strong>TEKS ANDA...</strong>

NB: Jika ingin menuliskan kode pada komentar harap gunakan Tool untuk mengkonversi kode tersebut agar kode bisa muncul dan jelas atau gunakan tool dibawah "Konversi Kode di Sini!"

Jika ingin menuliskan komentar yang keluar dari topik pada artikel ini silahkan kehalaman OOT (out of topic) dengan menekan tombol OOT di bawah ini.

Konversi Kode di Sini!OOT

 
Design by Juned al~Bughisy Copyright © 2012 ~ 2013 Powered by Blogger
Back to Top