Program Data Nilai Mahasiswa Pada Pascal

Pascal tentang Program Data Nilai Mahasiswa Menggunakan Array Dua Dimensi dan Record

Assalamualaikum cantiks ganteng :)

Saya dikasih tugas sama asisten praktikum Algoritma dan Pemrograman 2 yaitu membuat codingan tentang Data Nilai Mahasiswa yang diinput kan Nama, NIM, Nilai dan hasil nya grade dari nilai yang kalian inputkan . Judul prak. saya "Matriks Dua Dimensi dan Record" . Dan saya dituntut untuk membuat kodingan saya ke blog . Nih saya kasih program nya beserta ouputnya !!!!

program data_nilai_mhs;

uses crt;
type mhs = record
     nama,nim,tgl:string;
     nilai:integer;
     end;

var dtmhs:array [1..10] of mhs;
    i,a  :integer;
    grade:string;
    pilih:integer;

procedure input;

begin
  clrscr;
  writeln(' ');
  writeln(' MASUKKAN DATA NILAI MAHASISWA ');
  writeln(' ----------------------------- ');
  write  (' Jumlah Mahasiswa : '); readln(a);
  writeln;
  for i:=1 to a do
  begin
  with dtmhs[i] do
     begin
     writeln(' Data Ke-',i);
     writeln(' --------- ');
     write  (' Nama    : '); readln (dtmhs[i].nama);
     write  (' NIM     : '); readln (dtmhs[i].nim);
     write  (' Nilai   : '); readln (dtmhs[i].nilai);
     writeln;
     readln;
     end;
  end;
end;

procedure tabel;
begin
  writeln(' ');
  writeln('|============================================================|');
  writeln('|                    DATA NILAI MAHASISWA                    |');
  writeln('|============================================================|');
  writeln('|NO.|  NAMA MAHASISWA  |     NIM     |   NILAI   |   GRADE   |');
  writeln('|------------------------------------------------------------|');
  for i:=1 to a do
  begin
  gotoxy(1,i+6);
  writeln('|   |                  |             |           |           |');
  writeln('|============================================================|');
  end;
end;

procedure output;
 begin
 clrscr;
 tabel;
 for i:=1 to a do
 begin
   with dtmhs[i] do
   begin
        if (nilai>=80) and (not(nilai>100)) then grade:='A' else
        if (nilai>=75) and (not(nilai>79)) then grade:='B+' else
        if (nilai>=65) and (not(nilai>74)) then grade:='B' else
        if (nilai>=60) and (not(nilai>64)) then grade:='C+' else
        if (nilai>=55) and (not(nilai>59)) then grade:='C' else
        if (nilai>=45) and (not(nilai>54)) then grade:='D+' else
        if (nilai>=35) and (not(nilai>44)) then grade:='D' else
        grade:='E';
   end;
 end;
 for i:=1 to a do
 begin
   with dtmhs[i] do
   begin
     gotoxy(3,i+6); writeln(i);
     gotoxy(9,i+6); writeln(nama);
     gotoxy(26,i+6);writeln(nim);
     gotoxy(43,i+6);writeln(nilai);
     gotoxy(56,i+6);writeln(grade);
   end;
 end;
 readln;
end;

begin
  repeat;
  clrscr;
  writeln('|     DATA NILAI MAHASISWA     |');
  writeln('|==============================|');
  writeln('|                              |');
  writeln('| 1. Input Data Mahasiswa      |');
  writeln('| 2. Tampilan Data Mahasiswa   |');
  writeln('| 3. Keluar                    |');
  writeln('|==============================|');
  writeln(' ');
  write  ('Masukkan Pilihan [1/2/3] ? : ');readln(pilih);
      case pilih of
      1 : input;
      2 : output;
      3 : exit;
      end;
      until pilih=3;
end.


Nah diatas baru codingan program dan hasil nya ini nih !!!!

1. Tampilan awal program setelah dijalankan .

2. Tampilan setelah pilih input Data Nilai  Mahasiswa




3. Tampilan hasil Data Nilai Mahasiswa
 


Terimakasih , Semoga bermanfaat yah :) !!!!  Wassalam.