INPUT DATA DOSEN DAN INPUT DATA MAHASISWA

uses crt;

type  Dosen = record

            kode  : byte ;

            nama  : string ;

            pen   : string ;

            kea   : string ;

          end;

Mahasiswa = record

       NPM       : string [8] ;

       NAMA      : string [25] ;

       jen,jur   : string [15] ;

       thn       : string ;

       end ;

var

            rdos   : array [1..20] of dosen ;

           rmah   : array [1..15] of mahasiswa ;

           i,j    : byte ;

           pil,lg : char ;

procedure inputdosen ;

procedure formdosen ;

     begin

          clrscr ;

                 gotoxy (13,3) ; write (‘INPUT DATA DOSEN’);

                 gotoxy (5,4)  ; write (‘_________________________’) ;

                 gotoxy (5,6)  ; write (‘kode dosen:’) ;

                 gotoxy (5,7)  ; write (‘nama      :’) ;

                 gotoxy (5,8)  ; write (‘pendidikan :’) ;

                 gotoxy (5,9)  ; write (‘keahlian   :’) ;

gotoxy (5,10) ; write (‘_________________________’);

gotoxy (5,11) ; write (‘isikan datalagi [Y/T]:’);

end ;

begin

    repeat

   formdosen ;

   with rdos [i]do

   begin

            gotoxy (21,6) ; readln (kode) ;

gotoxy (21,7) ; readln (nama) ;

gotoxy (21,8) ; readln (pen)  ;

gotoxy (21,9) ; readln (kea)  ;

gotoxy (28,12); readln(lg)    ;

inc(i) ;

   end ;

Until Upcase (lg)=’T';

end ;

procedure inputmahasiswa ;

procedure formmahasiswa ;

begin

clrscr ;

gotoxy (13,3) ; write (‘INPUT DATAMAHASISWA’) ;

gotoxy (5,4)  ; write (‘_________________________’) ;

gotoxy (5,5)  ; write (‘NPM             :’) ;

gotoxy (5,6)  ; write (‘NAMA            :’) ;

gotoxy (5,7)  ; write (‘JENJANG         :’) ;

            gotoxy (5,8)  ; write (‘JURUSAN         :’) ;

gotoxy (5,9)  ; write (‘TAHUN          :’) ;

gotoxy (5,10) ; write (‘________________________’) ;

gotoxy (5,11) ; write (‘isikan datalagi [Y/T]:’);

end ;

begin

     repeat

     formmahasiswa ;

     with rmah [i] do

begin

gotoxy (21,6) ; readln (NPM) ;

gotoxy (21,7) ; readln (NAMA) ;

gotoxy (21,8) ; readln (JEN)  ;

gotoxy (21,9) ; readln (JUR)  ;

gotoxy (21,10) ; readln (THN) ;

gotoxy (28,12) ; readln (lg) ;

inc(i) ;

            end ;

     until upcase (lg) = ‘T’;

end;

procedure outputdosen ;

procedure tabeldosen ;

begin

      clrscr;

gotoxy (10,4); write (‘INPUT DATA DOSEN’) ;

gotoxy (4,5) ; write (‘_____________________________________’);

gotoxy (4,6) ; write (‘ No      Kode       Nama              Pendidikan                Keahlian’);

gotoxy (4,7) ; write (‘______________________________________________’);

end;

procedure HitNilai(totn : real ; var NH:   char ;  Ket: string) ;

 begin

end ;

begin

Tabeldosen ;

for j:=1 to I-1 do

begin

with Rdos [j] do

begin

gotoxy (5,7+j) ; write (j:1,’   ‘,kode:8,’   ‘,NAMA) ;

GOTOXY (30,7+J) ; WRITE (PEN) ;

GOTOXY (43,7+J) ;WRITE (KEA) ;

end ;

end;

  gotoxy (3,9+j) ; write (‘____________________________________________________’);

  repeat until keypressed ;

end;

procedure outputmahasiswa ;

procedure tabelmahasiswa ;

begin

   clrscr ;

gotoxy (10,4) ; write (‘INPUT DATA MAHASISWA’) ;

GOTOXY (3,5)  ; write (‘_________________________________________________’);

gotoxy (3,6)  ; write(‘no        npm        nama        jenjang        jurusan     tahun     nilai’);

gotoxy (3,7)  ; write(‘____________________________________________________’);

end ;

procedure hitnilai (totn : real;  var  NH:   char; ket: string) ;

begin

end;

begin

tabelmahasiswa ;

for j :=1 to I-1 do

begin

with rmah [j] do

begin

       gotoxy (3,5+j) ; write (j:1,’   ‘,npm:8,’    ‘,nama) ;

       gotoxy (43,7+j); write (jen) ;

       gotoxy (51,7+j); write (jur) ;

       gotoxy (58,7+j); write (thn) ;

end;

end;

       gotoxy(3,9+j); write(‘__________________________________________________’) ;

       repeat until keypressed ;

end;

procedure menu ;

begin

    clrscr;

gotoxy (20,2) ;write (‘MENU UTAMA’) ;

GOTOXY (10,3) ;WRITE (‘____________________________________’);

gotoxy (10,4) ;write (‘[1]. input data mahasiswa’) ;

gotoxy (10,5) ;write (‘[2]. input data dosen’);

gotoxy (10,6) ;write (‘[3]. output datadosen’);

gotoxy (10,7) ;write (‘[4]. outout datamahasiswa’);

gotoxy (10,8) ;write (‘[5]. keluar program’) ;

gotoxy (10,9) ;write (‘__________________________________’) ;

gotoxy (10,10);write (‘pilihan   :’);

end ;

begin {program utama}

i:=1; pil:=’1′ ;

while pil <>’5′ do

begin

menu ;

pil := readkey ;

case pil of

’1′ : InputMahasiswa ;

’2′ : InputDosen ;

’3′ : OutputDosen ;

’4′ : OutputMahasiswa ;

end ;

end ;

end.