Contoh Program Buble

program urutbuble;

uses wincrt;

var dt : array[1..10] of integer;

i,j, bub : integer;

begin

     clrscr;

     writeln('pengurutan dengan metode bubble sort');

     writeln('masukan data yang akan diurutkan');

     for i:=1 to 10 do

         begin

         write('data ke   ',i,'=');

         readln(dt[i]);

         end;

     for i:=1 to 10-1 do

         for j:=10 downto i+1 do

         if dt[j]<dt[j-1] then

         begin

         bub:=dt[j];

         dt[j]:=dt[j-1];

         dt[j-1]:=bub;

         end;

writeln('hasil pengurutan');

for i:=1 to 10 do

begin

  writeln(dt[i]);

  end;

  readln;

end.