Penghitungan Kenaikan Jabatan

Soal :
Sebuah perusahaan mempunyai aturan untuk promosi kenaikan jabatan dengan variabel masa kerja dan nilai prestasi (0-10).

• Jika masa kerja 2th dan nilai prestasi diatas 6 maka status : Naik Jabatan
• Jika masa kerja 4 th dan nilai prestasi diatas 4 maka status : Naik Jabatan
• Jika tidak memiliki kriteria diatas maka status : Tidak Naik Jabatan

Jawaban :
uses
  SysUtils;

var
  masa, nilai : Real;

begin
  Write('Masa Kerja (tahun)    : '); Readln(masa);
  Write('Nilai Prestasi (0-10) : '); Readln(nilai);
  Writeln('');
  if (masa = 2) and (nilai > 6) and (nilai <= 10) then
     Writeln('Naik Jabatan')
  else if (masa = 4) and (nilai > 4) and (nilai <= 10) then
     Writeln('Naik Jabatan')
  else Writeln('Tidak Naik Jabatan');

  Readln;
end.

Penghitungan Kenaikan Jabatan 2015-11-03T23:48:00-08:00 Rating: 4.5 Diposkan Oleh: niena