CONTOH 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 || 20142205026 ||TI.11              =');

Writeln('================================================');

    write('Mau mencari daftar gaji lagi? [Y/T]: ');

    Readln(ulang);

    end;

end.

==================================================

Berikut Hasil Listingnya :