Contoh Konstanta Pada Bahasa Pemrograman Pascal: Program Menghitung Gaji Dosen

Assalamu'alaikum Wr Wb

Selamat datang di web sibukngoding.com. Pada kesempatan kali ini saya akan menjelaskan tentang contoh Konstanta pada bahasa pemrograman pascal yaitu cara mengitung gaji dosen. Materi ini merupakan lanjutan pada postingan sebelumnya tentang contoh konstanta yang berjudul cara mengitung luas dan keliling lingkaran. Bagi teman teman yang belum tahu tentang konstanta bisa lihat disini.

Untuk kasusnya, Diketahui gaji dosen per pertemuan adalah 50.000 , uang transportasi per pertemuannya adalah 10.000, lalu ada potongan 5 % dari jumlah gaji yang diterimanya. Kita diminta menghitung gaji yang diterima. Baik,,, langkah awal, kita buat constanta atau variabel tetapnya, karena gaji per pertemuan dan uang transportnya bersifat tetap. untuk lebih jelasnya, langsung saja di lihat discrip di bawah ini.

PROGRAM GAJI_DOSEN;
USES crt;
CONST gaper =50000;
CONST trans =10000;
VAR p,totgaji,tottransport,jumgaji : longint;
    pajak,gajitotal : real;
BEGIN
writeln ('MENGHITUNG GAJI DOSEN STMIK CAHAYA');
writeln ('===================================');
{inputan}
write   ('JUMLAH  PERTEMUAN       : '); readln(p);
{Rumus perhitungan}
 totgaji         := p * gaper;
 tottransport    := p * trans;
 jumgaji         := totgaji + tottransport;
 pajak           := (5/100) * jumgaji;
 gajitotal       := jumgaji-pajak;
{Keluaran Program}
writeln ('GAJI PER PERTEMUAN      : Rp ',gaper);
writeln ('===== TOTAL GAJI              : Rp ',totgaji);
writeln ('BIAYA TRANSPORTASI      : Rp ',trans);
writeln ('===== TOTAL TRANSPORT         : Rp ',tottransport);
writeln ('===== JUMLAH GAJI             : Rp ',jumgaji);
writeln ('===== PAJAK 5%                : Rp ',pajak:0:0);
writeln ('_____________________________________________________');
writeln ('===== GAJI BERSIH             : Rp ',gajitotal:0:0);
Readkey;
END.

Untuk Hasilnya, nanti akan ada tampilan meminta memasukkan jumlah pertemuannya, lalu kita isi dan tekan enter. jika benar nanti akan muncul rincian gaji dosennya. untuk lebih jelasnya, bisa dilihat di bawah ini.

Demikan Postingan saya pada kesempatan kali ini. Silahkan jika ada pertanyaan bisa ditanyakan lewat kolom komentar. Untuk Artikel ini saya ambil sepenuhnya dari blog saya annuryanto24.wordpress.com. Jangan lupa tetap kunjungi web sibukngoding.com untuk mendapatkan tutorial bahasa pemrograman lainya.

Terimakasih atas kunjungannya, selamat belajar , tetap semangat dan jangan mudah menyerah.

Wassalamu'alaikum Wr Wb