PROGRAM LAT_09_GAJI;
Uses WinCrt;
Var
nik : string[10];
nama : string[25];
gol : string[3];
jk : string[1];
status : string[2];
jml_hadir, jml_anak : real;
t_ia, pajak, gb, gp, tj_hadir : real;
Begin
Clrscr;
Gotoxy(10,3);Write('----------------------------------------------');
Gotoxy(10,4);Write('| Menghitung Gaji Karyawan PT. Maju Mundur |');
Gotoxy(10,5);Write('----------------------------------------------');
Gotoxy(10,6);Write('NIK = ');
Gotoxy(10,7);Write('Nama = ');
Gotoxy(10,8);Write('Gol [I/II/III] = ');
Gotoxy(10,9);Write('Jen. Kel [L/P] = ');
Gotoxy(10,10);Write('Status [K/TK] = ');
Gotoxy(10,11);Write('Jml. Anak = ');
Gotoxy(10,12);Write('Jml Hadir [1Bln] = ');
Gotoxy(10,13);Write('----------------------------------------------');
Gotoxy(30,6);readln(nik);
Gotoxy(30,7);readln(nama);
Gotoxy(30,8);readln(gol);
Gotoxy(30,9);readln(jk);
Gotoxy(30,10);readln(status);
Gotoxy(30,11);readln(jml_anak);
Gotoxy(30,12);readln(jml_hadir);
if (gol='I') then
gp:=750000 else
if (gol='II') then
gp:=850000 else
gp:=950000;
tj_hadir:= jml_hadir*15000;
if (jk='L') then
if (status='K') then
if (jml_anak=0) then
t_ia:=10/100*gp else
if (jml_anak=1) then
t_ia:=20/100*gp else
t_ia:=35/100*gp
else
t_ia:=0
else
t_ia:=0;
pajak:=7/100 * gp;
gb := (gp + tj_hadir + t_ia)-pajak;
Gotoxy(10,14);Write('gaji Pokok :', gp:6:2);
Gotoxy(10,15);Write('Transport :', tj_hadir:6:2);
Gotoxy(10,16);Write('Tunjangan Istri Anak :', t_ia:6:2);
Gotoxy(10,17);Write('Pajak :', pajak:6:2);
Gotoxy(10,18);Write('Gaji Bersih :', gb:6:2);
Gotoxy(10,19);Write('================================================');
end.