baru sempat ngeblog gan.kali ni ane mau posting sesuatu dari matakuliah yang ane ikuti yaitu algoritma dan pemograman
yg ane posting ni sebenar nya berkaitan dengan tugas ane. dan ini masih dasar dari pemograman itu sendiri
langsung aja gan,ni bentuk soal dan penyelesaiannya
sebuah perusahaan membayar gaji karyawan berdasarkan golongannya.
upah perjam tiap karyawan mengacu pada tabel berikut
gol upah/jam
a 20000
b 15000
c 10000
d 7500
jumlah jam kerja normal selama seminggu adalah 48 jam
kelebihan jam kerja dianggap lembur dengan bonus 5000/jam
contoh.gol c bekerja selama 60 jam seminggu,maka
60*10000 =
(60-48)*5000 = __________ +
algoritma pembayaran gaji karyawan
deklerasi
nama : string
jam,gaji,upah : real
golongan : char
DESKRIPSI
masukkan (nama,jam,golongan)
if gol='A' then upah<- 20000
if gol='B' then upah<- 15000
if gol='C' then upah<- 10000
if gol='D' then upah<- 7500
if(jam>=48)
then gaji<- (jam*upah)+(jam-48 )*(5000)
else gaji<- jam*upah
keluaran (nama,golongan,gaji)
end if
listing program (ane pake turbo pascal 7.1)
program gaji_karyawan;
uses crt;
var
nama : string;
jam,upah,gaji : real;
gol : char;
begin
clrscr;
write('nama karyawan= '); readln(nama);
write('jam kerja= '); readln(jam);
write('golongan karyawan= ');readln(gol);
if(gol='a')or(gol='A') then upah:=20000;
if(gol='b')or(gol='B') then upah:=15000;
if(gol='c')or(gol='C') then upah:=10000;
if(gol='d')or(gol='D') then upah:=7500;
if(jam>=48)
then gaji:=(jam*upah)+(jam-48)*5000
else gaji:=jam*upah;
writeln(' ')
writeln('nama karyawan= ',nama);
writeln('golongan= ',gol);
writeln('gaji karyawan= ',gaji:10:0);
readln;
end.
sekian gan postinga ane kali ni
moga bermanfaat..kalo ada pertanyaan komen aja langsung :).
see you....
