Contoh Program Bubble Sort Pada Pascal

Bubble Sort Pada Pascal

Hai, sobat setia dottechno16 kali ini mimin mau membagikan source code program bubble sort pada Pascal.
Monggo disimak program di bawah dengan seksama, apabila ada pertanyaan tinggalkan pada kolom komentar :))


Source Code :


program bubble_dottechno16;
uses crt;
type
        data=array [1..100] of integer;
var
        i,n:integer;
        a:data;
procedure tukar(var a,b:integer);
var c:integer;
begin
        c:=a;
        a:=b;
        b:=c;
end;
procedure tampil(a:data);
var i:integer;
begin
        for i:=1 to n do
        write (a[i]:5);
        writeln;
end;
procedure buble(var a:data);
var i,j:integer;
begin
        for i:=1 to n-1 do
        begin
                writeln ('langkah ',i,'');
                tampil(a);
                for j:=n downto i+1 do
                begin
                        if (a[j]<a[j-1]) then tukar (a[j],a[j-1]);
                        tampil(a);
                end;
        end;
end;
begin
        clrscr;
        write (' input banyak bilangan ='); readln(n);
        for i:=1 to n do
        begin
                write (' data ke',i,' ='); readln(a[i]);
        end;
        writeln;
        writeln ('data sebelum diurutkan');
        tampil(a);
        writeln;
        writeln;
        buble(a);
        writeln ('data sesudah diurutkan');
        tampil(a);
        writeln;
        readln;
end.



Coba jalankan program di atas pada compiler Pascal yang kalian gunakan :))
Cukup mudah bukan program tersebut :))

Tags : Pascal, Free Pascal, Bubble Sort, Pengurutan Bubble Sort, Charm Pascal, Kuliah, Informatika.