Contoh Pascal Case Of Gaji Karyawan

Setelah mengetahui pengertian dan logika tentang case of, sekarang saya akan tunjukan metode penggunaan Case Of dalam mencari jumlah Gaji Karyawan yang dimana :


    Jika Jabatan, Direktur maka gaji pokoknya Rp 3.000.000, Tunjangan Transport Rp 850.000, dan Tunjangan Makan Rp 500.000.
    Jika Jabatan, Wakil Direktur maka gaji pokoknya Rp 2.500.000, Tunjangan Transport Rp 800.000, dan Tunjangan Makan Rp 500.000.
    Jika Jabatan, Manajer maka gaji pokoknya Rp 2.000.000, Tunjangan Transport Rp 800.000, dan Tunjangan Makan Rp 450.000.
    Jika Jabatan, Asisten maka gaji pokoknya Rp 1.500.000, Tunjangan Transport Rp 700.000, dan Tunjangan Makan Rp 400.000.
    Jika Jabatan, Karyawan maka gaji pokoknya Rp 1.000.000, Tunjangan Transport Rp 500.000, dan Tunjangan Makan Rp 300.000.

==============================================
Pprogram pembuatan_record;
Uses wincrt;

type
reckaryawan=record
jab,nama:string;
gol:integer;
gapok,trans,makan:real;
end;
var pegawai:reckaryawan;
total:real;
ulang:char;
Begin
clrscr;
ulang:='Y';
while Upcase(ulang)='Y' do
begin
clrscr;
writeln('            DAFTAR GAJI KARYAWAN        ');
Writeln('========================================');
writeln;
write('Masukan Nama Karyawan : ');readln(pegawai.nama);
write('Golongan[1(DR)/2(WD)/3(MN)/4(AS)/5(KW)] : ');
readln(pegawai.gol);
Writeln('========================================');
case pegawai.gol of
1:
begin
pegawai.jab:='Direktur';
pegawai.gapok:=3000000;
pegawai.trans:=850000;
pegawai.makan:=500000;
end;
2:
begin
pegawai.jab:='Wakil Direktur';
pegawai.gapok:=2500000;
pegawai.trans:=800000;
pegawai.makan:=500000;
end;
3:
begin
pegawai.jab:='Manager';
pegawai.gapok:=2000000;
pegawai.trans:=800000;
pegawai.makan:=450000;
end;
4:
begin
pegawai.jab:='Asisten';
pegawai.gapok:=1500000;
pegawai.trans:=700000;
pegawai.makan:=400000;
end;
5:
begin
pegawai.jab:='Karyawan';
pegawai.gapok:=1000000;
pegawai.trans:=500000;
pegawai.makan:=300000;
end;
end;
total:=pegawai.gapok+pegawai.trans+pegawai.makan;
clrscr;
Writeln('================================================');
    Writeln('           |Gaji Karyawan PT. ARDIANSYAH.Corp |');
Writeln('================================================');
writeln('Jabatan Karyawan       : ',pegawai.jab);
writeln('Gaji Pokok             : Rp.',pegawai.gapok:8:0);
writeln('Tunjangan Transportasi : Rp.',pegawai.trans:8:0);
writeln('Tunjangan Makan        : Rp.',pegawai.makan:8:0);
Writeln('================================================');
writeln('Total Gaji Karyawan    : Rp.',total:8:0);
writeln;
Writeln('================================================');
    Writeln('Created, Ardiansyah. B || 20142205002 ||TI.11              =');
Writeln('================================================');
    write('Mau mencari daftar gaji lagi? [Y/T]: ');
    Readln(ulang);
    end;
end.
==================================================
Berikut Hasil Listingnya :