karolusmalau@ymail.com
Soal
Di baca:
1.Nama
2.Gaji pokok
3.Jabatan
ketentuan:
1.gaji bersih=gaji pokok+ tunjangan - pajak
2.tunjangan
a.manajer=tunjangan = 40% dari gaji pokok
b.direktur=tunjangan = 50% dari gaji pokok
c.staff=tunjangan = 30% dari gaji pokok
3.pajak = 10% dari gaji pokok + tunjangan
4.tampilkan pajak,tunjangan,dan gaji bersih.
Source Code:
baca selengkapnya:
uses wincrt;
var
nama : string;
jabatan : string;
pajak, tunjangan : real;
gajipokok, gajibersih : real;
begin
writeln('+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++');
writeln('+ Menghitung Total Penggajian Sederhana +');
writeln('+ "Karil_29" +');
writeln('+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++');
writeln('===================================================================');
write('Masukkan Nama :');readln(nama);
write('Masukkan Jabatan (manager, direktur atau staff) ! :');readln(jabatan);
write('Masukkan Berapa Gaji Pokok? :');readln(gajipokok);
writeln('===================================================================');
if jabatan = 'manager' then
tunjangan := 0.4 * gajipokok
else if jabatan = 'direktur' then
tunjangan := 0.5 * gajipokok
else if jabatan = 'staff' then
tunjangan := 0.3 * gajipokok;
pajak := 0.1 * (gajipokok + tunjangan);
gajibersih:= gajipokok + tunjangan - pajak;
writeln;
writeln('Nama :',nama);
writeln('Jabatan :',jabatan);
writeln('Gaji Pokok :', gajipokok:5:0);
writeln('Tunjangan :',tunjangan:5:0);
writeln('Pajak :',pajak:5:0);
writeln('Gaji Bersih :',gajibersih:5:0);
writeln('===================================================================');
end.
var
nama : string;
jabatan : string;
pajak, tunjangan : real;
gajipokok, gajibersih : real;
begin
writeln('+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++');
writeln('+ Menghitung Total Penggajian Sederhana +');
writeln('+ "Karil_29" +');
writeln('+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++');
writeln('===================================================================');
write('Masukkan Nama :');readln(nama);
write('Masukkan Jabatan (manager, direktur atau staff) ! :');readln(jabatan);
write('Masukkan Berapa Gaji Pokok? :');readln(gajipokok);
writeln('===================================================================');
if jabatan = 'manager' then
tunjangan := 0.4 * gajipokok
else if jabatan = 'direktur' then
tunjangan := 0.5 * gajipokok
else if jabatan = 'staff' then
tunjangan := 0.3 * gajipokok;
pajak := 0.1 * (gajipokok + tunjangan);
gajibersih:= gajipokok + tunjangan - pajak;
writeln;
writeln('Nama :',nama);
writeln('Jabatan :',jabatan);
writeln('Gaji Pokok :', gajipokok:5:0);
writeln('Tunjangan :',tunjangan:5:0);
writeln('Pajak :',pajak:5:0);
writeln('Gaji Bersih :',gajibersih:5:0);
writeln('===================================================================');
end.
Contoh hasil keluaran :
Semoga bermanfaat...!!!
0 komentar:
Posting Komentar