program_penghitung_karyawan

program cobahitunggaji1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };

var
  totaljamkerja, jamlembur, gajilembur, gajipokok, jumlahanak : longint;
  totalgaji, tunjangan1, tunjangan2 : real;
  namakaryawan, golongankerja, status : string;

begin
  writeln;
  writeln('######################################');
  writeln('#  PROGRAM PENGHITUNG GAJI KARYAWAN  #');
  writeln('######################################');
  writeln;
          writeln('Peraturan :');
          writeln('1. Jam kerja minimum untuk mendapat gaji penuh sesuai golongan kerja adalah 90 Jam/Bulan');
          writeln('2. Jika tidak memenuhi target jam kerja minimum, maka gaji dikurangi Rp.500000, namun tetap mendapat Tunjangan 1 dan 2');
          writeln('3. Jam lembur didapat jika melebihi target jam kerja normal dan atau di atas 160 Jam/Bulan');
          writeln('4. Bonus lembur didapat dari total jam lembur * Rp.10000:');
          writeln('5. Jika telah menikah dan memiliki anak, maka akan mendapatkan tunjangan tambahan');
  writeln;
  writeln;
  writeln;  //proses masukkan data
          writeln('Data Karyawan');
          writeln;
          write('Masukkan Nama Karyawan : ');
          readln(namakaryawan);
          write('Karyawan Golongan Kerja (A, B, C) : ');
          readln(golongankerja);
          write('Status Pernikahan (menikah/belum menikah): ');
          readln(status);
          write('Memiliki Anak : ');
          readln(jumlahanak);
          write('Total Jam Kerja selama 1 bulan : ');
          readln(totaljamkerja);
  writeln;  //proses perhitungan
          if golongankerja = 'A' then gajipokok := 2000000;
             if golongankerja = 'B' then gajipokok := 1500000;
                if golongankerja = 'C' then gajipokok := 1000000;
          if status = 'menikah' then tunjangan1 := gajipokok * 10 / 100;
          if jumlahanak <= 2 then tunjangan2 := gajipokok * 3 / 100;
             if jumlahanak >= 3 then tunjangan2 := gajipokok * 6 / 100;
          if totaljamkerja > 160 then jamlembur := totaljamkerja - 160;
          gajilembur := jamlembur * 10000;
          if totaljamkerja  >= 90 then totalgaji := gajipokok + gajilembur + tunjangan1 + tunjangan2;
          if totaljamkerja <= 89 then totalgaji := gajipokok + tunjangan1 + tunjangan2- 500000;
  writeln;  //cetak informasi karyawan
          writeln('Informasi Karyawan');
          writeln;
          writeln('Nama Karyawan : ', namakaryawan);
          writeln('Karyawan Golongan Kerja : ', golongankerja);
          writeln('Status Pernikahan : ', status);
          writeln('Jumlah Anak : ', jumlahanak);
          writeln('Gaji Pokok : Rp. ', gajipokok);
          writeln('Total Jam Kerja selama 1 bulan : ', totaljamkerja,' Jam/Bulan');
          writeln('Total Jam Lembur selama 1 bulan : ', jamlembur,' Jam/Bulan');
  writeln;  //cetak hasil total gaji
          writeln('Tunjangan Tambahan 1 : Rp. ', round(tunjangan1));
          writeln('Tunjangan Tambahan 2 : Rp. ', round(tunjangan2));
          writeln('Total Gaji Lembur : Rp. ', gajilembur);
          writeln('Total Gaji ', namakaryawan, ' bulan ini adalah sebesar : Rp. ', round(totalgaji));
  readln;
end.