Latihan kode program Pascal kali ini akan membahas cara menghitung gaji mingguan karyawan berdasarkan golongan serta kondisi tambahan untuk menghitung upah lembur.
Soal ini umumnya dipakai untuk menguji pemahaman seputar konsep if else atau case of.
Soal Menghitung Gaji Karyawan
Buatlah program dalam bahasa Pascal untuk menentukan gaji karyawan mingguan dengan ketentuan sebagai berikut:
- Golongan = A maka upah per jam 5000
- Golongan = B maka upah per jam 7000
- Golongan = C maka upah per jam 8000
- Golongan = D maka upah per jam 10000
Ketentuan tambahan:
- Jika jam kerja karyawan lebih dari 48 jam per minggu maka akan mendapat uang lembur dengan perhitungan uang lembur = (jam kerja-48)*4000.
- Jika jam kerja kurang dari 48 jam maka pegawai tidak akan mendapat uang lembur.
- Perhitungan gaji pegawai adalah upah + uang lembur.
- Input berupa nama karyawan, golongan dan jam kerja.
- Outputnya adalah nama karyawan dan gaji yang diterima.
Berikut contoh tampilan akhir yang diinginkan (1):
## Program Pascal Menghitung Gaji Karyawan ## =============================================== Nama Karyawan: Lisa Lestari Golongan: B Jumlah jam kerja: 45 Lisa Lestari menerima upah Rp.315000 per minggu
Berikut contoh tampilan akhir yang diinginkan (2):
## Program Pascal Menghitung Gaji Karyawan ## =============================================== Nama Karyawan: Agung Wijaya Golongan: D Jumlah jam kerja: 60 Agung Wijaya menerima upah Rp.648000 per minggu
Tips Membuat Kode Program Menghitung Gaji Karyawan
Soal ini melatih pemahaman tentang cara penggunaan variabel serta cara penggunaan kondisi if else atau switch case. Berikut tutorial pendahuluan yang bisa diikuti:
- Pengertian Variabel dalam Bahasa Pascal
- Cara Penggunaan Perintah Read dan Readln
- Pengertian Tipe Data Integer Pascal
- Operator Aritmatika Pascal
- Percabangan IF THEN Pascal
- Struktur Percabangan CASE Pascal
Karena golongan karyawan hanya berbentuk satu karakter, maka kita bisa menggunakan kondisi case untuk menentukan gaji harian. Setelah itu gunakan kondisi if else untuk memeriksa apakah karyawan bisa mendapat lembur atau tidak.
Silahkan anda coba sebentar untuk membuat kode program ini.
Kode Program Pascal Menghitung Gaji Karyawan
Berikut salah satu solusi dari soal menghitung gaji karyawan menggunakan bahasa pemrograman Pascal:
program gaji_karyawan;
uses crt;
var
nama: string;
golongan: char;
jam_kerja, upah_per_jam: integer;
total_upah: longint;
begin
clrscr;
writeln('## Program Pascal Menghitung Gaji Karyawan ##');
writeln('===============================================');
writeln;
// proses input
write('Nama Karyawan: ');
readln(nama);
write('Golongan: ');
readln(golongan);
write('Jumlah jam kerja: ');
readln(jam_kerja);
writeln;
// tentukan jumlah upah per jam berdasarkan golongan
case (golongan) of
'A': upah_per_jam := 5000;
'B': upah_per_jam := 7000;
'C': upah_per_jam := 8000;
'D': upah_per_jam := 10000;
end;
total_upah := jam_kerja * upah_per_jam;
// cek apakah jam kerja lebih dari 48 jam
if ( (jam_kerja - 48) > 0 ) then
total_upah := total_upah + ((jam_kerja - 48)*4000);
// proses output
writeln(nama, ' menerima upah Rp.',total_upah,' per minggu');
readln;
end.
Hasil kode program:
Di baris 4-7 terdapat kode untuk deklarasi semua variabel yang diperlukan. Lalu proses input data ada pada baris 16-21.
Kondisi case of di baris 26-31 berguna untuk menentukan nilai variabel upah_per_jam. Alternatif lain bisa saja menggunakan kondisi if else.
Setelah di dapat upah_per_jam, kita bisa mencari total_upah di baris 33 dengan mengalikan isi variabel jam_kerja * upah_per_jam.
Dalam soal, terdapat kondisi tambahan jika jam kerja lebih dari 48, maka perlu ditambah dengan upah lembur. Inilah yang dilakukan oleh kode program di baris 36-37.
Kondisi if ( (jam_kerja – 48) > 0 ) hanya akan terpenuhi jika jam kerja lebih dari 48 jam. Jika kondisi ini menghasilkan nilai true, maka baris 45 akan diproses dan isi variabel total_upah akan di tambah dengan perhitungan total_upah + ((jam_kerja – 48)*4000).
Namun jika kondisi if ( (jam_kerja – 48) > 0 ) menghasilkan nilai false, tidak perlu perhitungan tambahan.
Terakhir, proses output di lakukan pada baris 40, yakni menampilkan kembali nama karyawan serta jumlah upah per minggu yang disimpan dalam variabel total_upah.
Demikian kode program latihan Menghitung Gaji Karyawan dalam bahasa pemrograman Pascal. Soal seperti ini cukup sering ditemukan dengan beberapa variasi jumlah gaji.