Rabu, 04 Desember 2013
Untuk minggu sekarang
saya akan posting tentang listing Program Gaji Pegawai, ditugaskan oleh dosen
saya yang paling keren dengan matakuliah struktur data (SD) untuk tugas
mingguan program ini memakai procedure. langsung saja ke Listing program
dibawah ini :
program gaji_pegawai;
uses wincrt;
var
nm,jab,nip,sts:string;
gaji,tunjab,gatot,anak,tunjank:real;
procedure dir;
begin
if sts = 'N' then
begin
write ('Masukkan Jumlah Anak :
'); readln(anak);
gaji:=4000000;
tunjab:=gaji*0.1;
tunjank:=2*(0.05*gaji);
gatot:=gaji+tunjab+tunjank;
writeln('Gaji Pokok
: ',gaji:0:0);
writeln('Tunjangan Jabatan :
',tunjab:0:0);
writeln('Tunjangan Anak
: ',tunjank:0:0);
writeln('Gaji Total
: ',gatot:0:0);
end
else
begin
gaji:=4000000;
tunjab:=gaji*0.1;
gatot:=gaji+tunjab;
writeln('Gaji Pokok
: ',gaji:0:0);
writeln('Tunjangan Jabatan :
',tunjab:0:0);
writeln('Gaji Total
: ',gatot:0:0);
end;
end;
procedure mgr;
begin
if sts = 'N' then
begin
write ('Masukkan Jumlah Anak :
'); readln(anak);
gaji:=3000000;
tunjab:=gaji*0.1;
tunjank:=2*(0.05*gaji);
gatot:=gaji+tunjab+tunjank;
writeln('Gaji Pokok
: ',gaji:0:0);
writeln('Tunjangan Jabatan :
',tunjab:0:0);
writeln('Tunjangan Anak
: ',tunjank:0:0);
writeln('Gaji Total
: ',gatot:0:0);
end
else
begin
gaji:=3000000;
tunjab:=gaji*0.1;
gatot:=gaji+tunjab;
writeln('Gaji Pokok
: ',gaji:0:0);
writeln('Tunjangan Jabatan :
',tunjab:0:0);
writeln('Gaji Total
: ',gatot:0:0);
end;
end;
procedure spv;
begin
if sts = 'N' then
begin
write ('Masukkan Jumlah Anak :
'); readln(anak);
gaji:=2000000;
tunjab:=gaji*0.1;
tunjank:=2*(0.05*gaji);
gatot:=gaji+tunjab+tunjank;
writeln('Gaji Pokok
: ',gaji:0:0);
writeln('Tunjangan Jabatan :
',tunjab:0:0);
writeln('Tunjangan Anak
: ',tunjank:0:0);
writeln('Gaji Total
: ',gatot:0:0);
end
else
begin
gaji:=2000000;
tunjab:=gaji*0.1;
gatot:=gaji+tunjab;
writeln('Gaji Pokok
: ',gaji:0:0);
writeln('Tunjangan Jabatan :
',tunjab:0:0);
writeln('Gaji Total
: ',gatot:0:0);
end;
end;
begin
clrscr;
writeln('**********************************************');
writeln;
writeln(' PROGRAM GAJI PEGAWAI
');
writeln;
writeln('**********************************************');
writeln;
write ('NIP
: '); readln(nip);
write ('Nama
: '); readln(nm);
write ('Jabatan [Dir/Mgr/Spv] : '); readln(jab);
write ('Status Perkawinan [N/B] : '); readln(sts);
if jab = 'Dir' then
dir
else
if jab = 'Mgr' then
mgr
else
if jab = 'Spv' then
spv
else
writeln('Kode yang Anda masukkan salah');
readkey;
donewincrt;
end.
Tampilan Programnya :
0 Comments:
Subscribe to:
Posting Komentar (Atom)