Soal :
Sebuah Perusahaan dalam menentukan gaji pegawai ditentukan dari beberapa aturan :
- Tunjangan keluarga(TunjKel) sebesar 10% dari gaji pokok (Gapok)
- Tunjangan Profesi (TunjProf) sebesar 25% dari Gapok
- Potongan hari tua (PotHar) sebesar (Gapok+TunjKel+TunjProf)*5%
- Jika (Gapok+TunjKel+TunjProf-Pothar)<3jt maka akan mendapat bantuan dana kesejahteraan (Dakes) sebesar 500rb
- Gaji diterima= Gapok+TunjKel+TunjProf-Pothar+Dakes
Jawaban :
uses
SysUtils;
var
TunjKel, Gapok, TunjProf, PotHar, Dakes, Gaji : Real;
begin
Write('Gaji Pokok Pegawai : Rp. '); Readln(Gapok);
TunjKel := Gapok*(10/100);
TunjProf := Gapok*(25/100);
PotHar := (Gapok+TunjKel+TunjProf)*(5/100);
Writeln('Tunjangan Keluarga : Rp. ', TunjKel:0:0);
Writeln('Tunjangan Profesi : Rp. ', TunjProf:0:0);
Writeln('Potongan Hari Tua : Rp. ', PotHar:0:0);
if (Gapok+TunjKel+TunjProf-PotHar) < 3000000 then
Dakes := 500000
else Dakes := 0;
Writeln('Dana Kesejahteraan : Rp. ', Dakes:0:0);
Gaji := (Gapok+TunjKel+TunjProf-PotHar)+Dakes;
Writeln('');
Writeln('Gaji Diterima : Rp. ', Gaji:0:0);
Readln;
end.