Program Tabel Daftar Nilai (Pascal)

berikut contoh program nya :

Program tabel;
uses crt;

type mahasiswa=record
                     nama, NIM:string;
                                          UTS,UAS,Nilai:real;
 mutu:char;
 end;
 B=array [1..100] of mahasiswa;
  var
  i,j,N:integer;
  A:B;
 begin
  clrscr;
   write('Banyak mahasiswa ? ');readln(n);
  for i:=1 to n do
  begin
  clrscr;
  write('Nama mahasiswa ke      ',i,' : ');readln(A[i].nama);
  write('NIM mahasiswa  ke      ',i,' : ');readln(A[i].nim);
  write('Nilai UTS mahasiswa ke ',i,' : ');readln(A[i].uts);
  write('Nilai UAS mahasiswa ke ',i,' : ');readln(A[i].UAS); writeln;
  A[i].Nilai:=(A[i].uts + a[i].uas)/2;
  if a[i].nilai>=80 then a[i].mutu:='A';
  if (A[i].nilai>=70) and (A[i].nilai<80) then A[i].mutu:='B';
  if (A[i].nilai>=56) and (A[i].nilai<70) then A[i].mutu:='C';
  if (A[i].nilai>=41) and (A[i].nilai<56) then A[i].mutu:='D';
  if (A[i].nilai<=40) then A[i].mutu:='E';
  end;
  begin
  clrscr;
   writeln;
   writeln('            <<<DAFTAR NILAI MAHASISWA>>>');
   writeln('       <<<PROGRAM STUDI TEKNIK INFORMATIKA>>>');
   writeln('------------------------------------------------------------------');
  writeln('   NIM            NAMA          NILAI AKHIR         MUTU ');
  writeln('------------------------------------------------------------------');
   for j:=1 to n do
  begin
writeln(A[j].nim:5,A[j].nama:18, A[j].nilai:10:2, A[j].mutu:15);
end;
writeln('------------------------------------------------------------------');
readkey;
end;
end.

Penjelasan:

   Yang membuatnya mungkin agak menyulitkan adalah perulangan, program ini di buat agar dapat menampung data masukan sebanyak 100 ( B=array [1..100] of mahasiswa;) menggunakan   for i:=1 to n do dengan hasil output yang akan ditampilkan adalah sesuai ketentuan if .... then.... yang telah kita buat sebelumnya. 

oke,, Selamat mencoba....