Program Sort Gravitasi PASCAL

New Funday - Pemograman Pascal dengan menggunakan Teknik Sort Gravitasi.

Berikut adalah contoh Program menggunakan Teknik Sort Gravitasi menggunakan PASCAL, silakan di coba ya :


{Program Sort Gravitasi)
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 begin
write('elemen ke - ',i,' ');readln(a[i]);
end;
{cetak array sebelum urut}
writeln;textcolor(15);write('Sebelum diurutkan: ');
for i:=1 to n do
write(a[i],' ');
writeln;
textcolor(15);
writeln;;writeln('process pengurutan Gravitasi : ');
for i:=1 to n-1 do begin
for j:=1 to n-i do begin
if a[j]>a[j+1] then begin
temp:=a[j+1];
a[j+1]:=a[j];
a[j]:=temp;
end;
end;
writeln; textcolor(i);
{cetak array tiap langkah pengurutan}
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 Gravitasi : ');
for i:=1 to n do
write (a[i],' ');
writeln;writeln;textcolor(10);
write('sudah terurut dengan benar khan..?');
readln;
end.