About Contact Disclaimer Privacy Policy
.web.id Just My Simple Artwork

Pascal : Program Menghitung Gaji Pegawai

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: https://goo.gl/4Z1xnt (UTSBP1_IF_THEN.pas)

 



Share Share Share


Muhammad Niko

Mahasiswa program studi S1 Sistem Informasi, Alumni SMK Negeri jurusan Teknik Komputer & Jaringan, Memiliki minat yang tinggi terhadap IT khususnya pada bidang Web Desain.

Leave a Reply

Your email address will not be published. Required fields are marked *

No Comments