Jawaban Quis soal No.3

uses crt;

var

   kd     : byte;

   sts    : string;

   nm,nik : string;

   gaji   : longint;

   tot    : real;

   tj,tjk : real;

   lg     : char;

begin

     clrscr;

     repeat

     gotoxy(3,3); write('Kode    :'); readln(kd);

     gotoxy(3,4); write('Nama    :'); readln(nm);

     gotoxy(3,5); write('NIK     :'); readln(nik);

     gotoxy(3,6); write('Status  :'); readln(sts);

     gotoxy(3,7); write('______________________');

     gotoxy(3,8); write('Input lagi [Y/T] :'); readln(lg);

     until upcase(lg)='T';

     if kd =1 then

     begin

          gaji :=2500000;

          tj   :=0.35;

     end else if kd =2 then

     begin

          gaji :=2000000;

          tj   :=0.10;

     end else if kd =3 then

     begin

          gaji :=1500000;

          tj   :=0.05;

     end;

          if sts ='menikah' then tjk :=0.15;

          tot :=gaji+(tj*gaji)+(gaji*tjk);

     gotoxy(5,10); writeln('Kode jabatan      :',kd);

     gotoxy(5,12); writeln('Nama              :',nm);

     gotoxy(5,13); writeln('NIK               :',nik);

     gotoxy(5,14); writeln('Status            :',sts);

     gotoxy(5,15); writeln('Gaji              :Rp.',gaji);

     gotoxy(5,16); writeln('Tunjangan         :',tj:2:2);

     gotoxy(5,17); writeln('tunjangan keluarga:',tjk:2:2);

     gotoxy(5,18); writeln('Total gaji        :Rp.',tot:4:0);

     readln;

end.