Soal 3

uses crt;
var

kdj       : byte;

nama      : string[25];

NIK       : string[8];

gaji      : longint;

tjn,tjnk  : real;

ttl       : real;

lg        : char;

stat      : string;

begin
      repeat
     clrscr;

gotoxy(10,1); write(‘kode jabatan  :’); readln(kdj);

gotoxy(10,2); write(‘nama          :’); readln(nama);

gotoxy(10,3); write(‘NIK           :’); readln(NIK);

gotoxy(10,4); write(‘status        :’); readln(stat);

gotoxy(10,5); write(‘———————————-’);

gotoxy(10,6); write(‘input lagi[Y/T] :’); readln(lg);

until upcase(lg)=’T';
if kdj=1 then
begin
gaji:=2500000;
tjn :=0.35*gaji;
end
else if kdj=2 then
begin
gaji:=2000000;
tjn :=0.10*gaji;
end
else if kdj=3 then
begin
gaji:=1500000;
tjn :=0.05*gaji;
end;
begin
if stat=’menikah’ then tjnk:=0.15*gaji;
end;

ttl:= gaji+tjn+tjnk;

gotoxy(15,9); writeln     (‘kode               :’,kdj);

gotoxy(15,10); writeln  (‘nama              :’,nama);

gotoxy(15,11); writeln  (‘NIK                  :’,NIK);

gotoxy(15,12); writeln  (‘status             :’,stat);

gotoxy(15,13); writeln  (‘gaji                 :Rp.’,gaji);

gotoxy(15,14);writeln(‘tunjangan       :’,tjn:1:0);

gotoxy(15,15);writeln(‘tunjangan keluarga :’,tjnk:1:0);

gotoxy(15,16);writeln(‘total gaji         :Rp.’,ttl:3:0);

readln;
end.