Pascal : Program Menghitung Gaji Pegawai

by Muhammad Niko   Friday, 12 May 2017 at 13:32   

Share Share Share

Pascal : Program Menghitung Gaji Pegawai – Kita akan melakukan pembahasan soal UTS Semester I pada Mata Kuliah Bahasa Pemrograman I. Soal yang dibahas disini cukup sederhana, karena kita hanya perlu membuat beberapa buah struktur IF..Then serta sedikit perhitungan aritmatika untuk menyelesaikannya. program ini juga dapat kalian gunakan sebagai Contoh Penulisan Program IF .. THEN Pada Pemrograman Pascal. diakhir artikel juga sudah disertakan link download untuk file source code (.pas) dari soal yang kita bahas kali ini dan siap untuk kalian compile dan pelajari.

Soal :

Buatlah program untuk menentukan gaji bersih pegawai dengan ketentuan sebagai berikut :

Golongan = 1 maka gaji pokok 1500000

Golongan = 2 maka gaji pokok 2000000

Golongan = 3 maka gaji pokok 3000000

Jika jam kerjanya lebih dari 50 jam maka pegawai tersebut akan mendapat uang lembur dengan perhitungan uang lembur = (jam kerja-50)*10000

Jika jam kerja kurang dari 50 jam maka pegawai tersebut tudak akan mendapat uang lembur.
Perhitungan gaji pegawai tersebut adalah gaji pokok + uang lembur
Input berupa Golongan dan jam kerja
Outputnya adalah Gaji Bersih.

Jawab :

Nah, jika kita lihat dari soal diatas dapat dipastikan bahwa program ini menggunakan beberapa kali penyeleksian kondisi. Sehingga dapat kita tulis dalam bahasa pascal menjadi :

uses crt;

var gaji_pokok, gaji_bersih, uang_lembur, jam_kerja : longint;

golongan : byte;

begin

clrscr;

write('Masukan Golongan = ');readln(golongan);

write('Masukan Jam Kerja = ');readln(jam_kerja);

 

if (golongan=1) then gaji_pokok := 1500000;

if (golongan=2) then gaji_pokok := 2000000;

if (golongan=3) then gaji_pokok := 2500000;

 

if (jam_kerja > 50) then uang_lembur := (jam_kerja-50) * 10000;

gaji_bersih := gaji_pokok + uang_lembur;

writeln;

writeln('Gaji Bersih = ', gaji_bersih);

readln;

End.

Penjelasan :

var

gaji_pokok, gaji_bersih, uang_lembur, jam_kerja : longint;

golongan : byte;

Pada baris ini kita terlebih dahulu “mendeklarasikan” variabel serta tipe data apa saja yang akan digunakan dalam program ini. tipe data variabelnya disesuaikan dengan data yang akan disimpan.

write('Masukan Golongan = ');readln(golongan);

write('Masukan Jam Kerja = ');readln(jam_kerja);

Selanjutanya pada baris ini kita buat 2 buah Inputan (readln) untuk melakukan input data pada variabel golongan serta jam_kerja.

if (golongan=1) then gaji_pokok := 1500000;

if (golongan=2) then gaji_pokok := 2000000;

if (golongan=3) then gaji_pokok := 2500000;

Pada baris ini kita buat 3 kali penyeleksian kondisi untuk menentukan besar gaji pokok seorang peegawai berdasarkan golongannya sesuai ketentuan sebagaimana yang tertulis pada soal. Jika golongan = 1 maka gaji pokok 1500000, jika golongan = 2 maka gaji pokok 2000000, dan jika golongan =3 maka gaji pokok 2500000

if (jam_kerja > 50) then uang_lembur := (jam_kerja-50) * 10000;

Di Baris yang ini kita buat satu lagi penyeleksian kondisi untuk menentukan apakah seorang pegawai akan mendapat uang lembur atau tidak, sebagaimana tertulis pada soal.

Jika jam kerjanya lebih dari 50 jam maka pegawai tersebut akan mendapat uang lembur dengan perhitungan uang lembur = (jam kerja-50)*10000

gaji_bersih := gaji_pokok + uang_lembur;

Pada baris ini kita lakukan perhitungan untuk total gaji bersih yang akan didapat oleh pegawai, kita buat perhitungannya dengan rumus sesuai yang tertulis pada soal. gaji pokok ditambah dengan uang lembur

writeln('Gaji Bersih = ', gaji_bersih);

Dan yang terakhir adalah menampilkan output (writeln) atau hasil dari perhitungan gaji bersih.

File Source Code .pas Dari jawaban soal kali ini
dapat didownload melalui Link: UTSBP1_IF_THEN.pas

Share Share Share

Muhammad Niko

Hi!, saya adalah lulusan S1 Sistem Informasi yang memiliki minat tinggi terhadap Web Development. Belajar tentang Web Development adalah bagian dari hobi saya, sedangkan IT Technical Support adalah pekerjaan saya sehari-hari.