uses wincrt;
var
kd,nomer,status:string[10];
nm,nama:string[15];
ja:byte;
gaji,tunjangan_gaji,istri,ya,tidak,anak,tunjangan_anak,jumlah_anak,gaji_total:longint;
begin
clrscr;
write('Nomer Induk Karyawan: ');readln(nomer);
write('Nama Karyawan: ');readln(nama);
write('jabatan(isikan
dir/wadir/kabag/kasub/kar) Karyawan: ');readln(kd);
if kd='dir' then
begin
nm:='Direktur' ; gaji:=5000000 ;
tunjangan_gaji:=1000000; istri:=500000 ; anak:=250000;
end
else if kd='wadir' then
begin
nm:='Wakil Direktur' ; gaji:=4000000; tunjangan_gaji:=7500000;
istri:=450000 ; anak:=200000;
end
else if kd='kabag' then
begin
nm:='Kepala Bagian' ; gaji:=3000000; tunjangan_gaji:=500000;
istri:=400000; anak:=150000;
end
else if kd='kasub' then
begin
nm:='Kepala satuan bagian' ; gaji:=2000000; tunjangan_gaji:=300000;
istri:=300000 ; anak:=100000;
end
else if kd='kar' then
begin
nm:='Karyawan' ; gaji:=10000000; tunjangan_gaji:=0; istri:=100000;
anak:=50000;
end
else
begin
nm:='' ;
end;
Writeln('Nama Jabatan : ',kd);
Writeln('Gaji Pokok : ',gaji);
Writeln('Tunj. Jabatan :
',tunjangan_gaji);
Write('Status (Menikah) ya/tidak : '); Readln(status);
if
Status='ya' then
begin
Write('Jumlah Anak : ');
Readln(jumlah_anak);
if jumlah_anak>2 then
tunjangan_anak:=2*anak
else
tunjangan_anak:=anak;
end
else
begin
gaji_total:=gaji+tunjangan_gaji;
Writeln('tunjangan anak istri
: Rp.',gaji_total);
end;
Writeln('Tunjangan Istri
: Rp.',istri);
Writeln('Tunjangan Anak
: Rp.',tunjangan_anak);
gaji_total:=gaji+tunjangan_gaji+istri+tunjangan_anak;
Writeln('Total Gaji Karyawan
: Rp.',gaji_total);
End.
