Program Menghitung Gaji Pegawai

program gaji_pegawai;

uses wincrt;

var

gu,jmistri,jmank,tunjis,tunjank,pjk,gj:real;

nm:string[20];

begin

writeln(‘PROGRAM MENGHITUNG GAJI PEGAWAI’);

writeln(‘——————————-‘);

write(‘Nama pegawai: ‘);read(nm);

write(‘Jumlah istri: ‘);read(jmistri);

write(‘Jumlah anak: ‘);read(jmank);

write(‘Gaji pokok:Rp ‘);read(gu);

tunjis:=jmistri*(15/100)*gu;

tunjank:=jmank*(10/100)*gu;

pjk:=(15/100)*(gu+jmistri+jmank);

gj:=gu+tunjis+tunjank-pjk;

writeln(‘Tunjangan istri:Rp ‘,tunjis:10:2);

writeln(‘Tunjangan anak:Rp ‘,tunjank:10:2);

writeln(‘Pajak sebesar:Rp ‘,pjk:10:2);

writeln(‘Jadi gaji pegawai:Rp ‘,gj:10:2);

end.

Iklan

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout /  Ubah )

Foto Google+

You are commenting using your Google+ account. Logout /  Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout /  Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout /  Ubah )

w

Connecting to %s

%d blogger menyukai ini: