Program Data Dosen dan Data Mahasiswa

uses crt;
type    Dosen = record
           kode  : byte ;
            nama  : string ;
            pen   : string ;

kea   : string ;

end;

Mahasiswa = record

npm       : string [6] ;

nama      : string [14] ;

jen,jur    : string [14] ;

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 (jeng)  ;
                    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:7,’    ‘,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.