0% menganggap dokumen ini bermanfaat (0 suara)
44 tayangan1 halaman

Perhitungan Gaji Karyawan dan PPN

Program ini menghitung gaji karyawan berdasarkan jabatannya (direktur, manager, karyawan, atau lainnya) dengan mempertimbangkan gaji pokok, tunjangan 10-5% dari gaji, PPN 10%, dan gaji bersih.

Diunggah oleh

Bubun Gunawan
Hak Cipta
© Attribution Non-Commercial (BY-NC)
Kami menangani hak cipta konten dengan serius. Jika Anda merasa konten ini milik Anda, ajukan klaim di sini.
Format Tersedia
Unduh sebagai TXT, PDF, TXT atau baca online di Scribd
0% menganggap dokumen ini bermanfaat (0 suara)
44 tayangan1 halaman

Perhitungan Gaji Karyawan dan PPN

Program ini menghitung gaji karyawan berdasarkan jabatannya (direktur, manager, karyawan, atau lainnya) dengan mempertimbangkan gaji pokok, tunjangan 10-5% dari gaji, PPN 10%, dan gaji bersih.

Diunggah oleh

Bubun Gunawan
Hak Cipta
© Attribution Non-Commercial (BY-NC)
Kami menangani hak cipta konten dengan serius. Jika Anda merasa konten ini milik Anda, ajukan klaim di sini.
Format Tersedia
Unduh sebagai TXT, PDF, TXT atau baca online di Scribd

Ketentuan Soal : 1. Nama Di input 2.

Jabatan di input , Jabatan Gaji Direktur 3000000 Manager 2000000 Karyawan 1000000 OB 800000

Tunjangan 10 % dari gaji 5% dari gaji 2% dari gaji 1% dari gaji

3. Dikenakan PPN 10 % dari gaji 4. Gaji Bersih didapat dari : gaji + tunjangan PPn Jawabannya: Uses crt; Var nama:string[20];jabatan:string; Gaji:longint; Tunj,ppn,gajibersih:real; Begin Clrscr; Write(Nama Karyawan : ); readln(nama); Write(Masukkan Jabatan : ); readln(jabatan); If (jabatan=Direktur) or (jabatan=direktur) then Begin Gaji:=3000000; Tunj:=0.1* gaji; End Else If (jabatan=Manager) or (jabatan=manager) then Begin Gaji:=2000000; Tunj:=0.05* gaji; End Else If (jabatan=Karyawan) or (jabatan=karyawan) then Begin Gaji:=1000000; Tunj:=0.1* gaji; End Else Begin Gaji:=800000; Tunj:=0.1* gaji; End; Writeln(Gaji Bersih : Rp.,gaji); Writeln(Tunjangan Jabatan : Rp.,tunj:9:2); Ppn:=0.1*gaji; Writeln(PPN 10 % : Rp.,ppn:9:2); Total:=(gaji+total)-ppn; Writeln(Total Gaji : Rp.,total:9:2); Readln; End.

Anda mungkin juga menyukai