Program Pengurutan Angka dengan Pascal

Wah...beberapa hari ini postingan saya agak macet nih. selain karena lagi libur panjang senin-rabu (rabunya libur pilkada pemilihan walikota di Pekanbaru) terus ganti baju buat whesata.

Hmmm...kali ini mau mosting apa yah. hmmm, berhubung minggu lalau saya dapat tugas kuliah tentang pemrograman pascal, maka saya akan memosting mengenai itu aja. Kali ini pembahasan pascal nya udah masuk ke ranah larik dan prosedur.

okeyh langsung aja yah, pada pembahasan kali ini kita akan mengurutkan sekolompok angka, misalnya angka yang mau di urutkan itu adalah 5 100 20 31 77 88 99 20 5 1. lalu bagaimana cara membuatnya?? silahkan liat script di bawah ini

program MengurutkanData;
uses wincrt;
const NilaiMaksimum = 1000;
type Larik = array[1..NilaiMaksimum] of integer;
var
L : Larik;
batas : integer;
           procedure masukan (var L : Larik; n : integer);
           var
                 a : integer;
           begin
             for a := 1 to n do
                 begin
                    write('Masukkan Nilai Ke-' ,a,' : '); readln(L[a]);
                    end;
                 end;
           procedure pengurutan (var L : Larik; n : integer);
           var
                 i : integer;
                 k : integer;
                 temp : integer;
           begin
             for i := 1 to (n-1) do
               for k := n downto i+1 do
                 if L[k] < L[k-1] then
                 begin
                 temp := L[k];
                 L[k] := L[k-1];
                 L[k-1] := temp;
               end;
             end;
           procedure keluaran(var L : Larik; n : integer);
           var
                i : integer;
           begin
             for i := 1 to n do
                    write(L[i]:5);
             end;
begin
  writeln ('*******************************************') ;
  write('Masukkan Jumlah Elemen yang diinginkan : '); readln(batas);
  writeln ('*******************************************') ;
  writeln;
  masukan(L,batas) ; writeln;
  pengurutan (L,batas); writeln;
  writeln ('************************') ;
  writeln('Hasil Pengurutan Larik :  ');
  writeln ('************************') ;
  keluaran(L,batas);
end.

Setelah di run, akan keluar hasilnya seperti ini :



Semoga membantu yaa... ^_^..