Senin, 27 Mei 2013

Program Untuk Perhitungan Biaya Pemakaian Listrik Dengan Bahasa Turbo Pascal


Semakin hari Kebutuhan semakin bertambah, namun harga kebutuhan pokok justru semakin naik.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 :

Flowchart Dan Bahasa Pascal Menghitung Daya Listrik
Ini merupakan bahasa pemrograman pascal untuk menentukan daya listrik :

program daya_listrik;
uses wincrt;
function V (I,R :real) :real;
begin
V:= I*R;
end;
var P, I, R : real;
begin
write (‘I =’) ;
readln (I);
write(‘R=’);
readln (R) ;
p:= V(I,R) * I;
write (‘daya listrik =’ ,P:3:1,’watt’);
end.
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%

            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.


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.

Referensi         :
http://tprasetio.blogspot.com/2012_06_01_archive.html
http://tprasetio.blogspot.com/2012/05/program-untuk-perhitungan-biaya.html


Tidak ada komentar:

Posting Komentar