DATA GAJI KARYAWAN

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.