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.