Program Penggajian Karyawan berdasarkan jabatan Pascal

program penggajian;
uses crt;
var
nama,jabatan : String;
tj,tp,gd : Real;
gp,nik : Integer;
begin
  Write('PROGRAM PENGGAJIAN Karyawan');WriteLn();
  Write('PT. MAJU TAK GENTAR');WriteLn();
  Write('Masukan Nama Karyawan : '); ReadLn(nama);
  Write('Masukan Nik Karyawan : '); ReadLn(nik);
  WriteLn('Jabatan : ');
  WriteLn('Direktur');
  WriteLn('Manajer');
  WriteLn('Supervisor');
  WriteLn('Pormen');
  Write('Masukan Jabatan Karyawan : '); ReadLn(jabatan);
  if (jabatan = 'Direktur') or (jabatan = 'direktur') then
  begin
  WriteLn('Nama Karyawan : ', nama);
  gp := 4500000;
  tj := gp * 0.20;
  tp := gp * 0.15;
  gd := gp + tj + tp;
  WriteLn('Tunjangan jabatan : Rp.',tj);
  WriteLn('Tunjangan Pendidikan : Rp.',tp);
  WriteLn('Gaji di terima : Rp.',gd);
  end
  Else if (jabatan = 'Manajer') or (jabatan = 'manajer')  then
  begin
  WriteLn('Nama Karyawan : ', nama);
  gp := 3500000;
  tj := gp * 0.15;
  tp := gp * 0.10;
  gd := gp + tj + tp;
  WriteLn('Tunjangan jabatan : Rp.',tj);
  WriteLn('Tunjangan Pendidikan : Rp.',tp);
  WriteLn('Gaji di terima : Rp.',gd);
  end
  Else if (jabatan = 'Supervisor') or (jabatan = 'supervisor')  then
  begin
  WriteLn('Nama Karyawan : ', nama);
  gp := 2500000;
  tj := gp * 0.10;
  tp := gp * 0.05;
  gd := gp + tj + tp;
  WriteLn('Tunjangan jabatan : Rp.',tj);
  WriteLn('Tunjangan Pendidikan : Rp.',tp);
  WriteLn('Gaji di terima : Rp.',gd);
  end
  Else if (jabatan = 'Pormen') or (jabatan = 'pormen')  then
  begin
  WriteLn('Nama Karyawan : ', nama);
  gp := 2000000;
  tj := gp * 0.05;
  tp := gp * 0.03;
  gd := gp + tj + tp;
  WriteLn('Tunjangan jabatan : Rp.',tj);
  WriteLn('Tunjangan Pendidikan : Rp.',tp);
  WriteLn('Gaji di terima : Rp.',gd);
  end
  else
  begin
  Write('jabatan tidak ada , data tidak sesuai');
  end;
   readln;
end.

Download Program Penggajian

Tweet