Pemrograman Pascal bag.3

Program Untuk Perhitungan Biaya Pemakaian Listrik Dengan Bahasa Turbo Pascal

Semakin hari Kebutuhan semakin bertambah, namun harga kebutuhan pokok justru semakin naik. melihat fenomena tidak wajar ini, kementrian tidak resmi bidang TI tembalang semarang turut prihatin. Setelah diselikidiki ternyata ada hubungannya juga dengan kenaikan Tarif dasar listrik yang kadang dihiasi dengan kenaikan BBM. Nah makanya mulai sekarang kita mesti belajar ngirit. Untuk itu pada artikel ini akan dibahas mengenai pengiritan Listrik, tepatnya perhitungan biaya pemakaian listrik supaya kita bisa ngirit dalam menggunakan setrum atau listrik. Masih dengan bahasa pemrograman yang sama yaitu turbo pascal for DOS versi 7.0.
Sebagai contoh kasus misalnya, tarif dasar listrik Rp. 100,- per KWh. dengan ketentuan sebagai berikut :

1. Jika Daya yang digunakan > 1300 VA maka :
- jika pemakaian > 300 KWh maka dikenakan denda 10%
- jika pemakaian <= 300 KWh maka dikenakan diskon 10%

2. Jika Daya yang digunakan <= 1300 VA maka :
- jika pemakaian > 100 KWh maka dikenakan denda 20%
- jika pemakaian <= 100 KWh maka dikenakan diskon 20%

Nah disini kita menggunakan instruksi if .... then... else bertingkat untuk menyelesaikan algoritma dari permasalahan di atas. Yang perlu diperhatikan adalah bahwa jika ada kondisi seperti di atas maka nilai yang tertinggi dulu yang dimasukkan ke instruksi tersebut.

Let's go....


1. Langkah pertama jalankan Turbo pascal, kemudian Ketikkan listing program berikut :

uses crt;
var daya,pemakaian,total:real;
ulang:char;
begin
repeat
clrscr;
writeln('Perhitungan biaya pemakaian listrik (Rp.100,- per KWh)');
writeln;
write('Besar daya listrik (VA) =');readln(daya);
write('Besar pemakaian (Kwh) =');readln(pemakaian);
if daya>1300 then
if pemakaian > 300 then
total:=1.1*pemakaian*150; {denda 10%}
if pemakaian <= 300 then
total:=0.9*pemakaian*150;{diskon 10%}
else
if pemakaian > 100 then
total:=1.2*pemakaian*150;{denda 20%}
if pemakaian <= 100 then
total:=0.8*pemakaian*150;{diskon 20%}

writeln('total biaya yang harus dibayar Rp.',total:1:0,',-');
writeln('Tekan sembarang tombol untuk mengulang atau X untuk keluar');
ulang:=readkey;
until upcase(ulang)='X';
end.
2. Kemudian jalankan program tersebut dengan menekan ctrl+F9 (Run), hasilnya seperti gambar berikut :

inti dari pembahasan kali ini adalah penggunaan struktur IF..then bertingkat, perhatikan penggunaan instruksi if..then di atas.

Sekian dari pak menteri silahkan kirim komentar, kritik, atau hujatan, bahkan mungkin kripik sebanyak-banyaknya. Demi kemajuan dan kesejahteraan umat manusia pada umumnya dan rakyat blogger pada khususnya. amin. Sampai jumpa di artikel berikutnya....

Semoga bermanfaat.
Happy blogging