Program Bubble Sort Pascal

Hallo sobat Blog Fakhri, kali ini saya akan memposting artikel tentang program bubble sort pascal. Disini saya akan membuat pengurutan angka atau nilai dari terbesar ke terkecil dan sebaliknya. Okeh, kita langsung saja ke topik ya...

1. Pengertian Bubble Sort

Bubble sort (metode gelembung) adalah metode atau algoritma pengurutan dengan dengan cara melakukan penukaran data dengan tepat disebelahnya secara terus menerus sampai bisa dipastikan dalam satu iterasi tertentu tidak ada lagi perubahan. Jika tidak ada perubahan berarti data sudah terurut.

2. Source Code

Program bubble_sort;
uses wincrt;

var
 i,n,j : integer;
 a : array [1..10] of integer;

procedure urutkan;
 var
  z : integer;

  begin
   for i:=1 to n-1 do
    begin
     for j:=n downto i+1 do
      begin
       if a[j] > a[j-1] then
        begin
         z:=a[j];
         a[j]:=a[j-1];
         a[j-1]:=z;
        end;
      end;
    end;
  end;

begin
 clrscr;
 writeln('Program : Mengurutkan Nilai menggunakan Bubble Sort');
 writeln('La Jupriadi Fakhri');
 writeln('201555202127');
 writeln('Universitas Muhammadiyah Sorong');
 writeln;
 write ('Masukkan banyak data yang ingin di urut : '); readln(n);
 for i:=1 to n do
  begin
   write ('Data ',i,' : '); readln(a[i]);
  end;
 urutkan;
 write('Data setelah diurutkan : ');
 for j:=1 to n do
  write (a[j],' ');
readln;
end.

Baiklah, sekarang mari kita lihat source code program diatas dengan teliti, ada 1 karakter yang saya beri warna biru diatas. Yupp.. tanda '>' atau biasa disebut lebih dari / lebih besar dari..

Bila kurang jelas, perhatikan potongan program dibawah ini :

 begin
     for j:=n downto i+1 do
      begin
       if a[j] > a[j-1] then
        begin
         z:=a[j];
         a[j]:=a[j-1];
         a[j-1]:=z;
        end;

Nah, tanda yang berwarna biru tersebut tinggal anda ganti arahnya menjadi '<' (kurang dari / lebih kecil dari ) ..

Sekian dan terima kasih telah mengunjungi Blog Fakhri, apabila ada pertanyaan lain silahkan tinggalkan pesan di kotak komentar atau bisa langsung chat di akun Facebook saya.