CONTOH MENENTUKANN BONUS PEGAWAI

 Contoh :

Buatlah program untuk menentukan bonus pegawai, berdasarkan ketentuan yang diberikan oleh bagian personalia dan keuangan sebagai berikut : Pegawai perusahaan digolongkan menjadi  dua golongan, yaitu staff dan non staff. Staff akan mendapatkan bonus sebesar 1 juta rupiah dengan syarat bahwa ia telah bekerja paling tidak 5 tahun dan umurnya sudah mencapai 50 tahun; staff yang bekerja kurang dari 5 tahun dan berapapun umurnya, hanya mendapat bonus sebesar Rp. 500.000. Pegawai non staff yang telah bekerja lebih dari 5 tahun akan mendapatkan bonus Rp. 400.000 jika umur lebih dari 50 tahun  sedangkan pegawai non staff yang berumur kurang dari 50 tahun hanya mendapat bonus Rp. 250.000.

=========================================

Program Bonus_Ardiansyah;

uses wincrt;

var

kerja,usia : real;

golongan : integer;

nama : string;

ulang:char;

Begin

clrscr;

ulang:='Y';

while Upcase(ulang)='Y' do

Begin

ClrScr;

writeln('          =========================================          ');

writeln('          =  BONUS KARYAWAN PT IkhAdyt@gmail.com  =          ');

writeln('          =========================================          ');

writeln;

write('Masukkan Nama Anda : ');readln(nama);

write('Masukkan Golongan [1(Staf)/2(NonStaf)] : ');readln(golongan);

writeln;

writeln('=========================================');

writeln;

case golongan of

     1:

     begin

          write('Lama Bekerja : ');readln(kerja);

          write('Usia Anda    : ');readln(usia);

          if (kerja >=5) and (usia >=50) then writeln('Bonus        : 1000000')

          else if (kerja >=5) and (usia <= 50) then writeln('Bonus        : 500000')

          else if (kerja <=5) and (usia >= 0) then writeln('Bonus : 300000')

          else writeln('Tidak ada bonus ta sodara')

     end;

     2:

     begin

          write('Lama Bekerja : ');readln(kerja);

          write('Usia Anda    : ');readln(usia);

          if (kerja >= 5) and (usia >= 50) then writeln('Bonus        : 400000')

          else if (kerja >=5) and (usia <= 50) then writeln('Bonus        : 250000')

          else writeln('Tidak ada bonus ta broo')

     end;

end;

writeln;

Writeln('==============================================');

    Writeln('= Created, Ardiansyah || 20142205026 ||TI.11 =');

Writeln('==============================================');

    write('Mau cek bonus lagi? [Y/T]: ');

    Readln(ulang);

    end;

end.

=======================================

Berikut hasil outputnya :