Program Untuk menghitung Bonus Pegawai

Bonus adalah hal yang paling di impikan para karyawan. Meskipun bonus ini jarang diberikan,namun sangat bermanfaat dalam menambah pundi-pundi hasil keringat pegawai. Bagi para Direktur atau pemilik perusahaan dalam menghitung bonus para pegawainya dapat menggunakan program yang satu ini. langsung saja kita praktekkan cara membuatnya

1. Buka turbo pascal dan salin data dibawah agar bisa digunakan untuk membuat program penghitung bonusnya

uses crt;

var

  Nama,jab   : string;

  umur       : integer;

  LK         : byte;

  bonus      : real;

begin

clrscr;

   writeln('menentukan bonus pegawai');

   writeln('------------------------');

   write('masukkan nama ='); readln(nama);

   write('masukkan jabatan [s/ns]='); readln (jab);

   write('masukkan umur ='); readln (umur);

   write('masukkan lama kerja ='); readln (lk);

   writeln('---------------------');

   if jab= 's' then

begin

   if (umur>=50) and (LK>=5) then

   begin

   jab := 's';

   bonus :=2500000;

   end;

   end;

writeln('bonus',nama,'=',bonus:5:0);

readln;

end.

2. Setelah di salin di turbo pascal, kita cek dulu datanya apakah ada data yang error atau tidak. Caranya tekan ALT+F9 agar bisa masuk ke layanan Compile. Setelah proses compile selesai, turbo pascal akan memberitahukan jika ada yang error. Biasanya akan diberikan info line mana yang error. Namun jika tidak error,maka lanjutkan ke proses running program

3. Tekan CTRL+F9 untuk menggunakan layanan running program.

4. Setelah program selesai di run, tekan ALT+F5 untuk mengecek hasilnya. Window turbo pascal akan terlihat seperti berikut

5. Sebelum programnya di close, jangan lupa disave dengan menggunakan tombol F2. Lalu ketikkan namanya, misalkan Bonus.pas.