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.

Read more »

Gaji Pegawai

uses crt;
var

kdj : byte;

nama : string[25];

NIK : string[8];

gaji : longint;

tjn,tjnk : real;

ttl : real;

lg : char;

stat : string;

begin
repeat
clrscr;

gotoxy(10,1); write(‘kode jabatan :’); readln(kdj);

gotoxy(10,2); write(‘nama :’); readln(nama);

gotoxy(10,3); write(‘NIK :’); readln(NIK);

gotoxy(10,4); write(‘status :’); readln(stat);

gotoxy(10,5); write(‘———————————-’);

gotoxy(10,6); write(‘input lagi[Y/T] :’); readln(lg);

until upcase(lg)=’T’;
if kdj=1 then
begin
gaji:=2500000;
tjn :=0.35*gaji;
end
else if kdj=2 then
begin
gaji:=2000000;
tjn :=0.10*gaji;
end
else if kdj=3 then
begin
gaji:=1500000;
tjn :=0.05*gaji;
end;
begin
if stat=’menikah’ then tjnk:=0.15*gaji;
end;

ttl:= gaji+tjn+tjnk;

gotoxy(15,9); writeln (‘kode :’,kdj);

gotoxy(15,10); writeln (‘nama :’,nama);

gotoxy(15,11); writeln (‘NIK :’,NIK);

gotoxy(15,12); writeln (‘status :’,stat);

gotoxy(15,13); writeln (‘gaji :Rp.’,gaji);

gotoxy(15,14);writeln(‘tunjangan :’,tjn:1:0);

gotoxy(15,15);writeln(‘tunjangan keluarga :’,tjnk:1:0);

gotoxy(15,16);writeln(‘total gaji :Rp.’,ttl:3:0);

readln;
end.

Read more »

Pelajaran Ku

Sekarang saya udah semester 2,saya paling senang dengan pelajaran agama,kenapa????(boleh di terka-terka sendiri kok :)),,sebentar lagi saya mau naik semester3, seperti teman-teman yang lain saya berharap semoga ja,pelajaran nanti dapat saya ikuti,.
Pelajaran yang saya ikuti sekarang pasti gak jauh beda sama kampus-kampus lain,, di sini juga saya belajar agama,bahasa Indonesia,bahasa Inggris sama ma waktu SMA dulu,,(hem... jadi ingat masa-masa SMA dulu)
ya semoga saja pelajaran-pelajaran saya saat dan nanti dapat saya ikuti dengan baik.
amin!

Read more »

Keinginan Ku

Keinginan Ku??????? masa ia sich harus di paparkan di sini??? Tapi nama nya tugas ya harus lah!!!!
Keinginku???? keinginan ku sich sebenar nya biasa za,, tapi banyak juga sich,, nama nya manusia biasa,, mau ini,mau itu,, semua nya mau.Ya uda langsung aja lah aq ingin dalam study ku bisa ngikuti semua mata kuliah nya dengan baik, dapat nilai yang baik, bisa jadi orang yg lebih baik juga dari hari hari kemarin.Ada satu hal yang pingin aq dapati kembali yang pernah hilang dari ku???(tap jangan di tanya apa ya!!)
Aku juga ingin bisa nge dapati apa yang aku mau, tapi hal penting yang aku ingin, aku ingin aq sehat selalu,, orang- orang yang aku sayang juga semoga mereka sehat selalu..
Karena hal penting dan yang paling mahal di dunia ini adalah"kesehatan"
Ia kan??????

Read more »

kehidupan ku

Kehidupan ku sama ja,,dgn org lain,berkutat dengan hal-hal dan rutinitas sehari-hari.
Dibilang speesial,, gak da yg spesialll, di bilang biasa, mungkin lah,, pa lagi kalo ada tugas wowwwwww,,,
Terkadang kalo ada hal yang nge buat hati gak senang, di tambah masalah,, pngin rasa nya teriak dan bilang semua rasa yg nge buat jengkel.
Setiap hari aku sama ma mahasiswa lain, pergi ke kampus,, ketemu ma tmn,, belajar,kalo ada tugas ngerasa gimana,, pa lagi kalo ujian,,, tapi kayak kata nya"bondan" ya sudah lah,, pa pun yg terjadi hari ini dan pa pun yang aku rasakan sekarang aku yakin itu memang hal yang hrs dpt dan itu pasti hal yg terindah.
Semoga saja!!!!

Read more »