Gaji Pegawai

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.