Program BIODATA Mahasiswa

Assalamualaikum wr wb 

Kali ini saya akan membagi sedikit ilmu mungkin juga untuk memenuhi laporan praktikum.disini saya akan membuat program biodata mahasiswa langsung aje liat source code nya.

Program Biodata_Mahasiswa;

 uses crt;

 Type Rec  = Record

      Nama : String[10];

      NIM  : String[10];

      Umur : Longint;

 end;

 var Data  : array[1..50] of Rec;

     n,i   : integer;

     Pilih : char;

 Procedure Input;

 Begin

  clrscr;

  n:=0;

  repeat

  clrscr;

  inc(n);

  writeln(' __________________________');

  writeln('|     BIODATA MAHASISWA    |');

  writeln('|__________________________|');

  writeln('| Data ke-',n,'                |');

  writeln('|__________________________|');

  with Data[n] do

  begin

  writeln(' __________________________');

  writeln('| Nama :                   |');

  writeln('| NIM  :                   |');

  writeln('| Umur :     Tahun         |');

  writeln('|__________________________|');

  gotoxy(10,7);readln(Nama);

  gotoxy(10,8);readln(NIM);

  gotoxy(10,9);readln(Umur);

  end;

  writeln;

  write('Input Data Lagi? [Y/N] : ');readln(Pilih);

  Until ((Pilih='n') or (Pilih='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(Nama);

     gotoxy(27,6+i);writeln(NIM);

     gotoxy(38,6+i);writeln(Umur);

    end;

  end;

 readkey;

end;

Begin

repeat

clrscr;

  writeln(' ______________________');

  writeln('|      Menu Utama      |');

  writeln('|  1. Masukkan Data    |');

  writeln('|  2. Lihat Data       |');

  writeln('|  3. Keluar           |');

  writeln('|______________________|');

  writeln('|                      |');

  writeln('| Masukkan Pilihan :   |');

  writeln('|______________________|');

  gotoxy(22,8);readln(Pilih);

  case Pilih of

  '1' : Input;

  '2' : Output;

  '3' : Exit;

end;

Until (Pilih)='3';

end.

Dan ini adalah Hasil nya