input data dosen dan 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.