Program Menentukan Gaji Dosen Dalam Bahasa Pascal

TUGAS 2

Karyawan honorer di STKIP Sumenep digaji berdasarkan jumlah jam kerjanya selama satu minggu, upah per jam adalah Rp. 2000,00. bila jumlah jam kerja lebih besar dari 48 jam, maka sisanya dianggap sebagai jam lembur. Upah lembur misalkan Rp. 3000,00/jam. Tulislah algoritma yang membaca jumlah jam kerja seorang karyawan selama satu minggu, lalu menentukan upah mingguannya.

PENYELESAIAN:
Analisis Kasus
        kasus 1 : jika JJK ≤ 48, maka upah = JJK*2000
        kasus 2 : jika JJK > 48, maka
                                        lembur = JJK – 48
                                        upah = (48*2000)+(lembur*3000)



·   Bahasa algoritmik

program menentukan gaji

DEKLARASI
nama :string[20];
jumlah jam kerja,lembur: integer;
upah,upah lembur :longint;

ALGORITMA
Read(nama)
read (jumlah_jam)

(Menentukan Upah)
if jumlah_jam ≤ 48 then
upah = jumlah jam kerja*2000

(Menentukan Upah Lembur)
if jumlah jam kerja > 48 then

lembur = jumlah jam kerja - 48
upah lembur = lembur*3000
upah = (48*2000)+(upah lembur)

endf.
Write (lembur)
write (upah lembur)
write (upah)

·  Bahasa Pascal

program menentukan_gaji;

uses wincrt;

var
nama :string[20];
jjk,lembur :integer;
upah,rp_lembur :longint;

begin
writeln('PROGRAM MENENTUKAN GAJI DOSEN');
writeln('-------------------------------------------------------');
writeln;

write('Jumlah Jam Mengajar Selama 1 Minggu :'); readln(jjk);
             
              if (jjk < 48) then
              begin
              upah :=jjk*2000;
              end
              else if (jjk > 48) then
              begin
              lembur :=jjk-48;
              rp_lembur :=lembur*3000;
              upah :=48*2000+rp_lembur
              end;

               writeln('Jam lembur =',lembur);
              writeln('Upah Lembur =',rp_lembur);
              writeln('upah + Upah Lembur =',upah);
              write('Jadi gaji Yang Diterima "',nama);
              write('"');
              write(' Sebesar Rp.',upah);
end.

Tidak ada komentar:

Posting Komentar