uses wincrt;
var code, nama, jabatan, status: string;
gaber, tunjab, gapok, tunkel, tunis, tunank:real;
jmlank:integer;
begin
write('masukan code: ');
readln(code);
write('masukan nama: ');
readln(nama);
write('masukan status: ');
readln(status);
readln;
if (code='A') then
begin
code:='A';
jabatan:='direktor';
tunjab:=1000000;
gapok:=6000000;
writeln('code: ',code);
writeln('nama: ',nama);
writeln('status: ',status);
writeln('jabatan: ',jabatan);
write('masukan jumlah anak');
readln(jmlank);
writeln('jumlah anak: ',jmlank);
writeln('tunjangan jabatan: ',tunjab);
writeln('tunjangan istri: ',tunis);
writeln('tunjangan anak: ',tunank);
writeln('gaji pokok: ',gapok);
end
else if (code='B') then
begin
code:='B';
jabatan:='W.Dir';
tunjab:=800000;
gapok:=4000000;
writeln('code: ',code);
writeln('nama: ',nama);
writeln('status: ',status);
writeln('jabatan: ',jabatan);
writeln('jumlah anak: ',jmlank);
writeln('tunjangan jabatan: ',tunjab);
writeln('tunjangan istri: ',tunis);
writeln('tunjangan anak: ',tunank);
writeln('gaji pokok: ',gapok);
end
else if (code='C') then
begin
code:='C';
jabatan:='kabid';
tunjab:=600000;
gapok:=3000000;
writeln('code: ',code);
writeln('nama: ',nama);
writeln('status: ',status);
writeln('jabatan: ',jabatan);
writeln('jumlah anak: ',jmlank);
writeln('tunjangan jabatan: ',tunjab);
writeln('tunjangan istri: ',tunis);
writeln('tunjangan anak: ',tunank);
writeln('gaji pokok: ',gapok);
end
else
begin
code:='D';
jabatan:='karyawan';
gapok:=1800000;
writeln('code: ',code);
writeln('nama: ',nama);
writeln('status: ',status);
writeln('jumlah anak: ',jmlank);
writeln('gaji pokok: ',gapok);
end;
if (jmlank<=2) then
begin
gaber:=gapok+tunjab+tunkel;
tunkel:=tunis+tunank;
tunis:=gapok*2/100;
tunank:=gapok*2/100+gapok*2/100;
writeln('gaji bersih adalah: ',gaber:2:0);
end
else
begin
gaber:=gapok+tunjab+tunkel;
writeln('total gaji bersih: ',gaber:2:0);
end;
readln;
if (jmlank>2) then
begin
gaber:=gapok+tunjab+tunkel;
tunkel:=tunis+tunank;
tunis:=gapok*2/100;
tunank:=gapok*2/100;
writeln('gaji bersih adalah: ',gaber:2:0);
end
else
begin
writeln('gaji yang diperoleh: ',gaber:2:0);
end
end.
Tidak ada komentar:
Posting Komentar