Bubble Sort Ascending dengan Pascal (Tutorial Singkat)

Halo, teman-teman! Setelah sebelumnya kita membuat program diskon, sekarang kita masuk ke materi yang nggak kalah seru: sorting alias pengurutan data. Kita mulai dari Bubble Sort Ascending dulu, ya.

Soal:

Buatlah program Pascal untuk mengurutkan data secara ascending (dari kecil ke besar) menggunakan metode Bubble Sort.

Algoritma Natural:

1. Input jumlah data dan nilai-nilainya.

2. Lakukan perulangan pertama (i) dari 1 sampai jumlah data - 1.

3. Di dalamnya, lakukan perulangan kedua (j) dari i+1 sampai jumlah data.

4. Jika nilai ke-i lebih besar dari nilai ke-j, maka tukar posisi keduanya.

5. Ulangi sampai semua data terurut.

6. Tampilkan data yang sudah diurutkan.

Kode Program Pascal:

Program Contoh_BubbleSort;

Uses Crt;

Var

  Nilai : Array[1..100] of Integer;

  i, j, n, t : Integer;

Begin

  Clrscr;

  Write('Jumlah Data : '); Readln(n);

  For i := 1 to n do

  Begin

    Write('Masukkan Nilai ke-', i, ' : ');

    Readln(Nilai[i]);

  End;

  Clrscr;

  For i := 1 to n-1 do

  Begin

    For j := i+1 to n do

    Begin

      If Nilai[i] > Nilai[j] Then

      Begin

        t := Nilai[i];

        Nilai[i] := Nilai[j];

        Nilai[j] := t;

      End;

    End;

  End;

  Writeln('Nilai yang telah diurutkan (Ascending) : ');

  For i := 1 to n do

    Write(Nilai[i], ' ');

  Readln;

End.

Penjelasan Kode:

- Array[1..100] → menyediakan wadah untuk 100 data.

- Perulangan bersarang (i dan j) → membandingkan setiap pasangan data.

- Proses penukaran pakai variabel bantu t → seperti mengganti isi dua gelas.

Output Program:

sebagai contoh masukkan Jumlah data yang ingin diinputkan, lalu masukkan nilai nilai data yang masih acak seperti di gambar berikut.

Maka secara otomatis output nilai yang telah diurutkan (Ascending) yaitu:  

1 2 3 4 5

Gimana? Bubble Sort ternyata nggak susah, kan? Kode ini bisa langsung dicoba di PC masing-masing. Kalau ada pertanyaan atau error, tulis di kolom komentar ya. Selamat ngoding!