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.
Langganan:
Posting Komentar (Atom)
Tidak ada komentar:
Posting Komentar