Contoh Program Data Nilai Mahasiswa Menggunakan Array Dua Dimensi dan Record Dengan Pascal

Untuk membuat program data nilai mahasiswa menggunakan array dua dimensi dan record dengan pascal sangatlah sederhana. Tidak hanya itu, program sederhana ini telah ditambah dengan menu yang sangat sederhana pula untuk memudahkan navigasi. 

Contoh program data nilai mahasiswa ini bisa dikembangkan lagi, salah satunya dengan menambahkan berbagai jenis nilai, mulai dari nilai quiz, nilai uts, nilai uas dan juga bisa ditambah dengan total nilai dan nilai rata-rata.

Memiliki tampilan yang rapi dengan menggunakan fungsi gotoxy(). Lumayanlah, untuk bahan belajar.

Tanpa berlama-lama, silahkan untuk pelajari lengkap listing dibawah ini:

program arrayduadimensidanrecord_kanggunawan;

uses crt,sysutils;
label awal,im,dm;
const maks = 100;
type
 recdata = record
  nama  : string[36];
  NPM   : string[15];
  Nilai : real;
  grade : Char;
end;

var A : array [1..maks] of recdata;
i,N,pil,row : integer;

begin
  awal:
  clrscr;
  writeln('|==============================|');
  writeln('|     DATA NILAI MAHASISWA     |');
  writeln('|------------------------------|');
  writeln('|                              |');
  writeln('| 1. Input Data Mahasiswa      |');
  writeln('| 2. Tampilan Data Mahasiswa   |');
  writeln('| 3. Keluar                    |');
  writeln('|                              |');
  writeln('|==============================|');
  write('Masukan Pilihan Anda (1/2/3)? ');
  readln(pil);
  if pil=1 then
  goto im
  else if pil=2 then
  goto dm
  else if pil=3 then
  exit
  else
  goto awal;
  readln();


  im:
  clrscr;
  writeln('MASUKAN DATA NILAI MAHASISWA');
  writeln('============================');
  write('Jumlah Mahasiswa: ');readln(N);
  writeln;
  writeln('Data Mahasiswa');
  writeln;

  for i := 1 to N do begin
   writeln('Data Ke - ', i);
   writeln('-------------');
    with A[i] do begin
     write('Nama  : ');readln(nama);
     write('NIM   : ');readln(NPM);
     write('Nilai : ');readln(nilai);

     if nilai >= 90 then grade:='A' else
      if (nilai < 90) and (nilai >= 80) then grade := 'B' else
       if (nilai < 80) and (nilai >= 70) then grade := 'C' else
        if (nilai < 70) and (nilai >= 60) then grade := 'D' else
         grade := 'E';
    end;
    writeln;
  end;

  dm:
  clrscr;
  writeln;
  writeln('|=======================================================================================|');
  writeln('|                                 DATA NILAI MAHASISWA                                  |');
  writeln('|=======================================================================================|');
  writeln('|  NO. |            NAMA MAHASISWA            |       NIM       |   NILAI   |   GRADE   |');
  writeln('|---------------------------------------------------------------------------------------|');
  row:7;
  for i := 1 to N do begin
   write('| ',i);
    with A[i] do begin
     gotoxy(7,row);
     write(' | ');
     write(format(nama,[36]));
     gotoxy(47,row);
     write('| ');
     write(npm);
     gotoxy(65,row);
     write('| ');
     gotoxy(70,row);
     write(nilai:2:0);
     gotoxy(77,row);
     write('| ');
     gotoxy(83,row);
     write(grade);
     gotoxy(88,row);
     write(' |');
     row:=row+1;
   end
   writeln;
  end;
  writeln('|=======================================================================================|');
  writeln('Tekan Enter Untuk Kembali ke Menu Utama');
  readln();
  goto awal;
  readln;
end.
Contoh Program Data Nilai Mahasiswa Menggunakan Array Dua Dimensi dan Record Dengan Pascal

Semoga bermanfaat!

Warning:
Pastikan program diatas dicoba terlebih dulu, jangan main copas aja, siapa tau ada error atau emang sengaja dierrorin, supaya tau permasalahan! Terlebih bila akan digunakan sebagai tugas kuliah. 

Leave a Reply

  • (will not be published)