Tugas Mandiri 2 [Kombinasi Record dan Array]

Yak kali ini saya akan men-share perpaduan program yang menggunakan record dan array :)

Silahkan dicoba ;p
##

uses wincrt;

Type tabel_mhs  = record

                  NIM : String;

                  Nama : String ;

                  Nilai : Integer ;

                  end;

Var mhs : array [1..10] of tabel_mhs;

    i, j, n : integer;

procedure urut;

var t : tabel_mhs;

begin

     for i := 1 to n-1 do

         for j := i+1 to n do

             if mhs[i].nilai<mhs[j].nilai then

                begin

                t:= mhs[i];

                mhs[i]:=mhs[j];

                mhs[j]:=t;

                end;

end;

procedure cetak;

begin

     writeln(' -------------------------------------------------------------');

     writeln('|        NIM          |         NAMA       |       NILAI      |');

     writeln(' -------------------------------------------------------------');

     for i := 1 to n do

         writeln('|     ',mhs[i].nim:10,'      |',mhs[i].nama:15,'     |',mhs[i].nilai:10,'        |');

     writeln(' -------------------------------------------------------------');

     end;

begin

     writeln;

     Writeln(' TABEL NIM MAHASISWA ');

     writeln;

     Write('Masukkan Jumlah Mahasiswa = ');

     readln(n);

     writeln;

     for i := 1 to n do

         begin

         writeln('Input ',i);

         Write('NIM = '); readln(mhs[i].nim);

         Write('Nama = '); readln(mhs[i].nama);

         Write('Nilai = '); readln(mhs[i].nilai);

         writeln;

         end;

     urut;

     cetak;

     

                          

end.

Source Code disini ;p
Contoh program by v3.rar