Scribd
Unggah
5 tayangan1 halaman

Hitung Bonus dan Hadiah Karyawan

Diunggah oleh

FATURRAHMAN 98
Hak Cipta
© All Rights Reserved
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
5 tayangan1 halaman

Hitung Bonus dan Hadiah Karyawan

Diunggah oleh

FATURRAHMAN 98
Hak Cipta
© All Rights Reserved
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

program BonusDanHadiahKaryawan;

uses crt;

var
jamKerja: integer;
gajiPokok, bonus, hadiah, totalGaji: real;
pernahTerlambat: char;

begin
clrscr;

writeln('=== Program Bonus dan Hadiah Karyawan ===');


write('Masukkan jam kerja per minggu: ');
readln(jamKerja);
write('Masukkan gaji pokok: ');
readln(gajiPokok);
write('Apakah pernah terlambat dalam satu bulan? (Y/T): ');
readln(pernahTerlambat);

{ Inisialisasi bonus dan hadiah }


bonus := 0;
hadiah := 0;

{ Hitung bonus jika jam kerja di atas 40 }


if jamKerja > 40 then
bonus := (jamKerja - 40) * 25000;

{ Hitung hadiah jika tidak pernah terlambat (pernahTerlambat = 'T') }


if (pernahTerlambat = 'T') or (pernahTerlambat = 't') then
hadiah := 0.1 * gajiPokok;

{ Hitung total gaji }


totalGaji := gajiPokok + bonus + hadiah;

{ Tampilkan hasil }
writeln('------------------------------');
writeln('Bonus : Rp ', bonus:0:2);
writeln('Hadiah : Rp ', hadiah:0:2);
writeln('Total Gaji : Rp ', totalGaji:0:2);
writeln('------------------------------');

readln;
end.

Anda mungkin juga menyukai