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
program menentukan gaji
DEKLARASI
nama
:string[20];
jumlah jam kerja,lembur: integer;
upah,upah lembur :longint;
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)
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