Program Laporan Penilaian Mahasiswa dengan Pascal

Silahkan di pelajari dengan Baik....!!
------------------------------------------------------------------------------------------------------------------------
uses crt;
type dmahasiswa=record
     npm,mk:string;
     nila:integer;
end;
var
   i:integer;
   nama,nihu:string;
   mhs:array[1..25] of dmahasiswa;
begin
     clrscr;
     writeln('Program Laporan Penilaian Mahasiswa');
     writeln('-----------------------------------');
     for i:=1 to 3 do
     begin
          with mhs[i] do
     begin
          write('Masukan NPM         : ');readln(npm);
          write('Masukan Nilai Angka : ');readln(nila);
          write('Masukan Mata Kuliah : ');readln(mk);
     end;
     end;
     clrscr;
     writeln('-----------------------------------------------------------------');
     writeln('******::..Laporan Nilai Mahasiswa STMIK Budidarma Medan..::******');
     writeln('-----------------------------------------------------------------');
     writeln('NO  NPM       NAMA     MATA KULIAH     NILAI ANGKA    NILAI HURUF');
     writeln('-----------------------------------------------------------------');
     for i:=1 to 3 do
     begin
          with mhs[i] do
     begin
          if npm='14110874' then nama:='Kaldius'
          else if npm='14110875' then nama:='Diusman'
          else nama:='Tetangga';
          Case nila of
          80..100:nihu:='A';
          70..79 :nihu:='B';
          60..69 :nihu:='C';
          50..59 :nihu:='D';
          0..49  :nihu:='E';
     end;
     gotoxy(1,5+i); writeln(i);
     gotoxy(3,5+i); writeln(npm);
     gotoxy(13,5+i); writeln(nama);
     gotoxy(24,5+i); writeln(mk);
     gotoxy(44,5+i); writeln(nila);
     gotoxy(58,5+i); writeln(nihu);
     end;
     end;
     writeln('-----------------------------------------------------------------');
     readln;
end.
--------------------------------------------------------------------------------------------------------------------
Hasil/Outputnya



download filenya disini