Algoritma dan Pemrograman : Pengurutan Data Metode Bubble Dalam Bahasa Pascal

📋 Daftar Isi

Pengurutan dalam bahasa Pascal yang umum digunakan adalah metode bubble, selection, dan insertion. Pada artikel kali ini kita akan membahas tentang pengurutan data menggunakan metode bubble, selection, dan insertion dengan pengurutan secara ascending.

Metode Pegurutan Data : Bubble Sort

Pada bubble sort, proses pengurutan dilakukan dengan cara membandingkan satu data dengan data berikutnya, jika lebih kecil maka akan ditukar urutannya. Berikut adalah fungsi pengurutan dengan bubble sort

Type Larik = array [1..100] of integer;
Procedure BubbleSort(var data: Larik; n:integer);
var
i,j,temp:integer;
Begin
  for i:=1 to n-1 do
  for j:=n downto i+1 do
    if (data[j]<data[j-1]) then 
      begin
        temp := data[j];
        data[j] := data[j-1];
        data[j-1] := temp;
      end;
End;

Berikut ini adalah program lengkapnya

program Urutin;
Type Larik = array [1..100] of integer;

Procedure BubbleSort(var data: Larik; n:integer);
var
i,j,temp:integer;
Begin
  for i:=1 to n-1 do
  for j:=n downto i+1 do
  if (data[j]<data[j-1]) then 
    begin
      temp := data[j];
      data[j] := data[j-1];
      data[j-1] := temp;
    end;
End;

var
  data:larik;
  i,n:integer;
begin
  n:=5;
  data[1]:=5;
  data[2]:=8;
  data[3]:=6;
  data[4]:=9;
  data[5]:=1;
  Bubblesort(data,n);
  for i:=1 to n do writeln(data[i]);
end.