Program Data Gaji Karyawan(Quiz)

uses crt;

var

      kdj       : byte;

      nama    : string[20];

      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.