Minggu, 03 Juli 2011

quiz online program gaji pegawai


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.

Tidak ada komentar:

Posting Komentar