Algoritma dan Pemograman (gaji)

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....