CONTOH PROGRAM ARRAY 2 DIMENSI DAN RECORD

#CONTOH PROGRAM BIODATA MAHASISWA

• Tampilan input
• Proses
• Output

1. Tampilan ketika program dijalankan

                       (Gambar 1)

2. Tampilan saat ingin menginputkan data


                         (Gambar 2)

3.Tampilan saat menekan ENTER/Memilih menu 1

                     (Gambar 3)

4.Tampilan saat menginputkan biodata dan ingin menambah data selanjutnya

                     (Gambar 4)

5.Tampilan saat menginput data ke-2 dan tidak ingin menginput data selanjutnya



    
                  (Gambar 5)

6.Tampilan saat kembali ke menu utama

                  (Gambar 6)

7.Tampilan output data

                       (Gambar 7)

8.Tampilan saat ingin keluar dari program


                     (Gambar 8)

9.Source Code

 Program Biodata_Mahasiswa;
 uses crt;
 Type Rec  = Record
      Nma : String[10];
      NIM  : String[10];
      Umr : Longint;
 end;
 var Data  : array[1..50] of Rec;
     n,i   : integer;
     Pil : char;

 Procedure Input;
 Begin
  clrscr;
  n:=0;
  repeat
  clrscr;
  inc(n);
  gotoxy(4,2);writeln('============================');
  gotoxy(4,3);writeln('|     BIODATA MAHASISWA    |');
  gotoxy(4,4);writeln('|       ILMU KOMPUTER      |');
  gotoxy(4,5);writeln('|==========================|');
  gotoxy(4,6);writeln('| Data ke-',n,'                |');
  gotoxy(4,7);writeln('|==========================|');
  with Data[n] do
  begin
  gotoxy(4,7);writeln('| Nama :                   |');
  gotoxy(4,8);writeln('| NIM  :                   |');
  gotoxy(4,9);writeln('| Umur :     Tahun         |');
  gotoxy(4,10);writeln('|==========================|');
  gotoxy(13,7);readln(Nma);
  gotoxy(13,8);readln(NIM);
  gotoxy(13,9);readln(Umr);
  end;
  writeln;
  write('Input Data Lagi? [Y/N] : ');readln(Pil);
  Until ((Pil='n') or (Pil='N'));
 end;

 Procedure Kolom;
 Begin
 writeln('|                       |          |      Tahun |');
 writeln('|=======================|==========|============|');
 end;

 Procedure Output;
 Begin
 clrscr;
 writeln('=================================================');
 writeln('|               BIODATA MAHASISWA               |');
 writeln('|===============================================|');
 writeln('|          Nama         |    NIM   |    Umur    |');
 writeln('|-----------------------|----------|------------|');
 writeln('|                       |          |            |');
 for i:=1 to n do
  begin
   with Data[i] do
    begin
     gotoxy(1,6+i);Kolom;
     gotoxy(3,6+i);writeln(Nma);
     gotoxy(27,6+i);writeln(NIM);
     gotoxy(38,6+i);writeln(Umr);
    end;
  end;
 readkey;
end;

Begin
repeat
clrscr;
  gotoxy(4,2);writeln('========================');
  gotoxy(4,3);writeln('|      Menu Utama      |');
  gotoxy(4,4);writeln('========================');
  gotoxy(4,5);writeln('|  1. Masukkan Data    |');
  gotoxy(4,6);writeln('|  2. Lihat Data       |');
  gotoxy(4,7);writeln('|  3. Keluar           |');
  gotoxy(4,8);writeln('|======================|');
  gotoxy(4,9);writeln('|                      |');
  gotoxy(4,10);writeln('| Masukkan Pilihan :   |');
  gotoxy(4,11);writeln('|======================|');
  gotoxy(25,10);readln(Pil);
  case Pil of
  '1' : Input;
  '2' : Output;
  '3' : Exit;
end;
Until (Pil)='3';
end.