Berikut adalah program Bubble Sort dalam bahasa Pascal dengan menggunakan prosedur untuk swapnya, semoga bisa dijadikan referensi
{ Program Pengurutan Data dengan BUBLE SORT
TUGAS II Praktikum PASCAL
(C) April 1998
}
uses crt;
var
i,j,k,jumlah:integer;
bil:array[1..20] of integer;
procedure swap(var a,b:integer);
var
dum:integer;
begin
dum:=a;
a:=b;
b:=dum;
end;
begin
clrscr;
writeln(‘Program Sorting dengan BUBBLE SORT’);
writeln;
write(‘Masukkan banyak bilangan yang akan di-sort : ‘);
readln(jumlah);
i:=1;
while i<=jumlah do
begin
write(‘Elemen bilangan ke ‘,i,’ : ‘);
readln(bil);
inc(i);
end;
clrscr;
writeln(‘Hasil Sorting : ‘);
for j:=1 to jumlah-1 do
for k:=j+1 to jumlah do
if bil[j]>=bil[k] then swap(bil[j],bil[k]);
for i:=1 to jumlah do writeln(bil);
readln;
end.