Program Penghitung Gaji Karyawan

Masih berbicara tentang pembuatan program di turbo pascal. Namun kali ini pprogram yang akan dibuat akan bermanfaat bagi para burh karyawan maupun pemilik perusahaan. Nama programnya yakni penghitung besarnya gaji. langsung saja dipraktekkan cara membuatnya

1. Buka program turbo pascal dan salin kode data program dibawah

program MenghitungGajiKaryawan;
uses crt;
var
  nama,kode,jabatan : string;
  GP,TT,TM,Total : longint;
begin
clrscr;
  writeln('LAPORAN GAJI KARTYAWAN PT ABC');
  writeln('-----------------------------');
  writeln('');
  writeln('Untuk Mengetahui Gaji yang anda terima silahkan masukkan:');
   write ('Nama Anda:'); readln (nama);
   write ('Kode Jabatan 1-5:'); readln (kode);
  begin;
  if Kode= '1' then
  begin
     jabatan :='Direktur';
     GP      :=3000000;
     TT      :=850000;
     TM      :=500000;
  end
  else if Kode= '2' then
  begin
     jabatan :='Wakil Direktur';
     GP      :=2500000;
     TT      :=800000;
     TM      :=500000;
  end
  else if Kode= '3' then
  begin
     jabatan :='manajer';
     GP      :=2000000;
     TT      :=800000;
     TM      :=450000;
  end
  else if Kode= '4' then
  begin
     jabatan :='asisten';
     GP      :=1500000;
     TT      :=700000;
     TM      :=400000;
  end
  else if Kode= '5' then
  begin
     jabatan :='karyawan';
     GP      :=1000000;
     TT      :=500000;
     TM      :=300000;
  end
  end;
clrscr;
  total:= GP+TT+TM;
  writeln('LAPORAN GAJI KARYAWAN PT ABC');
  writeln('----------------------------');
  writeln('');
  writeln('Data Anda :');
  writeln('nama karyawan:', nama);
  writeln('jabatan:', jabatan);
  writeln('');
  writeln('');
  writeln('Adapun Rincian Gaji Anda sbb:');
  writeln('gaji pokok:Rp.',GP);
  writeln('tunjangan transp:Rp.',TT);
  writeln('tunjangan makan:Rp.',TM);
  writeln('Total Gaji:Rp.',Total);
  readln;
  end.

2. Kemudian Compile datanya dengan menggunakan menu Compile atau bisa juga dengan menekan tombo ALT dan F9 secara bersamaan. Tujuan agar turbo pascal dapat mengecek data program tersebut sudah benar atau ada kesalahan yang biasa di sebut ERROR.

3. Jika data tersebut sudah benar (tanpa ada pesan ERROR lagi), tekan CTRL+F9 untuk merunning program tersebut.

4. silahkan cek hasil program yang dibuat tadi dengan menggunakan tombol ALT+F5. Hasil running programnya akan terlihat seperti gambar berikut