Program Record Mahasiswa dengan PASCAL

INPUT :

program record_mahasiswa;




uses

    wincrt;

type

    RecordMahasiswa = record

    Nim: String[10];

    Nama:String[25];

    Nilai:Real;

    Umur:Byte;

    end;




var

   DataMahasiswa : array[1..20]of RecordMahasiswa;

   banyak,i :integer;




   begin




        Write('Jumlah data yang akan dimasukkan:');

        Readln(banyak);

        for i:=1 to banyak do

   begin

       write('Nim=');Readln(DataMahasiswa[i].Nim);

       write('Nama=');Readln(DataMahasiswa[i].Nama);

       write('Umur=');Readln(DataMahasiswa[i].Umur);

       write('Nilai=');Readln(DataMahasiswa[i].Nilai);

   end;




   writeln('NIM  ||                 Nama              || Nilai ||   Umur');

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

         for i:=1 to banyak do

         writeln(DataMahasiswa[i].Nim,DataMahasiswa[i].Nama:25,DataMahasiswa[i].Nilai:22, '',DataMahasiswa[i].Umur:8);







   end.