program gaji_karyawan;
uses wincrt;
var nama,jbtn,status:string;
anak,gajipodir,gajipowdir,gajipokabid,gajikywn,tnjgnjbtn,tnjgnistri,tnjgnanak,tnjgnkel,gajibersih:real;
begin
write('Nama: ');
readln(nama);
write('Status: ');
readln(status);
write('Jabatan:');
readln(jbtn);
write('Jumlah Anak:');
readln(anak);
if (status='menikah') then
else if (jbtn='direktur')then
gajipodir:=6000000;
tnjgnistri:=gajipodir*0.02;
tnjgnanak:=gajipodir*0.02;
tnjgnkel:=tnjgnistri+tnjgnanak;
tnjgnjbtn:=1000000;
gajibersih:=gajipodir+tnjgnjbtn+tnjgnkel;
writeln('Nama :',nama);
writeln('Status :',status);
writeln('Tunjangan Istri: Rp.',tnjgnistri:0:0);
writeln('Tunjangan Anak: Rp.', tnjgnanak:0:0);
writeln('Tunjangan Keluarga : Rp. ',tnjgnkel:0:0);
writeln('Jabatan : ',jbtn);
writeln('Tunjangan Jabatan : Rp.',tnjgnjbtn:0:0);
writeln('Gaji Pokok : Rp.', gajipodir:0:0);
writeln('Maka Gaji Bersih : Rp.',gajibersih:0:0);
if (jbtn='wakil direktur') then
gajipowdir:=4000000;
tnjgnistri:=gajipowdir*0.02;
tnjgnanak:=gajipowdir*0.02;
tnjgnkel:=tnjgnistri+tnjgnanak;
tnjgnjbtn:=800000;
gajibersih:=gajipodir+tnjgnjbtn+tnjgnkel;
writeln('Nama :',nama);
writeln('Status :',status);
writeln('Tunjangan Istri: Rp.',tnjgnistri:0:0);
writeln('Tunjangan Anak: Rp.', tnjgnanak:0:0);
writeln('Tunjangan Keluarga : Rp. ',tnjgnkel:0:0);
writeln('Jabatan : ',jbtn);
writeln('Tunjangan Jabatan : Rp.',tnjgnjbtn:0:0);
writeln('Gaji Pokok : Rp.',gajipowdir:0:0);
writeln('Maka Gaji Bersih : Rp.',gajibersih:0:0);
if (jbtn='ka bidang') then
gajipokabid:=3000000;
tnjgnistri:=gajipokabid*0.02;
tnjgnanak:=gajipokabid*0.02;
tnjgnkel:=tnjgnistri+tnjgnanak;
tnjgnjbtn:=600000;
gajibersih:=gajipodir+tnjgnjbtn+tnjgnkel;
writeln('Nama :',nama);
writeln('Status :',status);
writeln('Tunjangan Istri: Rp.',tnjgnistri:0:0);
writeln('Tunjangan Anak: Rp.', tnjgnanak:0:0);
writeln('Tunjangan Keluarga : Rp. ',tnjgnkel:0:0);
writeln('Jabatan : ',jbtn);
writeln('Gaji Pokok : Rp.',gajipokabid:0:0);
writeln('Maka Gaji Bersih : Rp.',gajibersih:0:0);
if (jbtn='karyawan') then
gajikywn:=1800000;
tnjgnistri:=gajikywn*0.02;
tnjgnanak:=gajikywn*0.02;
tnjgnkel:=tnjgnistri+tnjgnanak;
gajibersih:=gajipodir+tnjgnjbtn+tnjgnkel;
writeln('Nama :',nama);
writeln('Status :',status);
writeln('Tunjangan Istri: Rp',tnjgnistri:0:0);
writeln('Tunjangan Anak: Rp.', tnjgnanak:0:0);
writeln('Tunjangan Keluarga : Rp ',tnjgnkel:0:0);
writeln('Jabatan : ',jbtn);
writeln('Gaji Pokok : Rp.',gajikywn:0:0);
writeln('Maka Gaji Bersih : Rp',gajibersih:0:0);
if (status='tidak menikah') then
if (jbtn='direktur') then
gajipodir:=6000000;
writeln('Tidak Usah Menghitung Tunjangan');
end.
Tidak ada komentar:
Posting Komentar