uses crt;
var
nama,jab:string[20];
noin:string[10];
golgaj:char;stmerid,jmlanak:integer;
gaj,tjistri,tjanak,pjgaj,jmltgaj,tolgaj,jmlpajgaj,tolgastpaj:real;
begin
clrscr;
writeln('=============================================');
writeln('PERHITUNGAN GAJI DAN TUNJANGAN DAN PAJAK GAJI');
writeln('=============================================');
writeln;
writeln('Isikan Data anda sesuai ketentuan berikut ini:');
writeln('----------------------------------------------');
writeln;
writeln('Golongan Gaji : Status Perkawinan :');
writeln('a. Rp.2.000.000.00 1.Kawin');
writeln('b. Rp.2.500.000.00 2.Belum Kawin');
writeln('c. Rp.3.000.000.00 3.Cerai');
writeln;
write('Masukkan No Karyawan :');
readln(noin);
write('Masukkan nama Anda :');
readln(nama);
write('Masukkan Jabatan :');
readln(jab);
write('Masukkan Golongan gaji Anda:');
readln(golgaj);
case golgaj of
'a' : begin
gaj:=2000000;
pjgaj:=(2/100);
write('Status Perkawinan anda : ');
readln(stmerid);
case stmerid of
1:begin
tjistri:=(5/100)*gaj;
write('Jumlah anak :'); readln(jmlanak);
if jmlanak <=3 then
tjanak:=jmlanak*((2/100)*gaj)
else
tjanak:=3*((2/100)*gaj);
end;
2:begin
tjistri:=0;
tjanak:=0;
end;
3: begin
tjistri:=0;
write('Jumlah anak :'); readln(jmlanak);
if jmlanak <=3 then
tjanak:=jmlanak*((2/100)*gaj)
else
tjanak:=3*((2/100)*gaj);
end;
else
writeln;
writeln('==========================================================');
writeln;
writeln('Tunjangan tidak terhitung karena tidak terinput dengan benar!!');
end;
end;
'b' : begin
gaj:=2500000;
pjgaj:=(2.5/100);
write('Status Perkawinan anda : '); readln(stmerid);
case stmerid of
1:begin
tjistri:=(5/100)*gaj;
write('Jumlah anak :'); readln(jmlanak);
if jmlanak <=3 then
tjanak:=jmlanak*((2/100)*gaj)
else
tjanak:=3*((2/100)*gaj);
end;
2:begin
tjistri:=0;
tjanak:=0;
end;
3: begin
tjistri:=0;
write('Jumlah anak :'); readln(jmlanak);
if jmlanak <=3 then
tjanak:=jmlanak*((2/100)*gaj)
else
tjanak:=3*((2/100)*gaj);
end;
else
writeln;
writeln('==========================================================');
writeln;
writeln('Tunjangan tidak terhitung karena tidak terinput dengan benar!!');
end;
end;
'c' : begin
gaj:=3000000;
pjgaj:=(3/100);
write('Status Perkawinan anda : '); readln(stmerid);
case stmerid of
1:begin
tjistri:=(5/100)*gaj;
write('Jumlah anak :'); readln(jmlanak);
if jmlanak <=3 then
tjanak:=jmlanak*((2/100)*gaj)
else
tjanak:=3*((2/100)*gaj);
end;
2:begin
tjistri:=0;
tjanak:=0;
end;
3: begin
tjistri:=0;
write('Jumlah anak :'); readln(jmlanak);
if jmlanak <=3 then
tjanak:=jmlanak*((2/100)*gaj)
else
tjanak:=3*((2/100)*gaj);
end;
else
writeln;
writeln('==========================================================');
writeln;
writeln('Tunjangan tidak terhitung karena tidak terinput dengan benar!!');
end;
end;
else
writeln;
writeln('======================================================');
writeln;
writeln('Maaf, Golongan Gaji tidak terdaftar !!!');
writeln;
end;
jmltgaj :=tjistri+tjanak;
tolgaj :=gaj+jmltgaj;
jmlpajgaj:=tolgaj*pjgaj;
tolgastpaj:=tolgaj-jmlpajgaj;
writeln;
writeln('Slip Gaji------------------------------------------>');
writeln;
writeln('Nama :',nama);
writeln('NoKaryawan :',noin);
writeln('Jabatan :',jab);
writeln('|====================================|');
writeln('| Rincian | Jumlah |');
writeln('|===========================================|');
writeln('|Besar gaji |Rp.',gaj:8:0,' |');
writeln('|tunjangan istri |Rp.',tjistri:8:0,' |');
writeln('|Tunjangan Anak |Rp.',tjanak:8:0,' |');
writeln('|total gaji |Rp.',tolgaj:8:0,' |');
writeln('|pajak gaji |Rp.',jmlpajgaj:8:0,' |');
writeln('||---------------------|--------------------|');
writeln('Total gaji setelah pajak :| Rp.',tolgastpaj:8:0,' |');
writeln('|----------------|-------------------|');
writeln('Program by, Yongky Gusta Indra');
readln;
