Contoh Program Bubble Sort PASCAL

Berikut contoh program menggunakan metode Sorting yang disebut BUBBLE SORT (Gelembung Sort)

{Program Buble Sort}

uses crt;
var i,j,k,temp,n :integer;
a,b,c :array[1..100] of integer;
begin
clrscr; textcolor(12);
write('Banyaknya elemen Array : ');readln(n);
{input data}
for i:=1 to n do a[i]:=random(1000);
    {cetak array sebelum urut}
    writeln;textcolor(15);write('Sebelum diurutkan: ');
    for i:=1 to n do write (a[i],' ');
        writeln;
        textcolor(15);writeln('process pengurutan bubble : ');
        for i:=1 to n-1 do begin
             for j:=n downto i+1 do begin
                  if a[j-1]>a[j] then begin
                        temp:=a[j-1]; a[j-1]:=a[j]; a[j]:=temp;
                  End;
             end;
             {cetak array tiap langkah pengurutan}
             writeln;write('hasil akhir langkah ke - ',i,' : ');
             for k:=1 to n do write(a[k],' ');
         end;
         {cetak array setelah pengurutan}
          writeln;writeln;
         textcolor(15);write('hasil pengurutan bubble : ');
         for i:=1 to n do write (a[i],' ');
         readln;
end.

Semoga bermanfaat ya :)