Program pascal menghitung tagihan listrik

di karenakan jaman sekarang sudah serba digita makan terlinta di pikiran saya mencari referensi tentang pembayaran listrik dengan program pascal :) ya karna sayajuga menggeluti jurusan tekhnik elektro dan konsentrasi listrik (tegangan tinggi),flowcartnya seperti ini:

1. menampilkan layar. 

2.mamasukan id pelanggan dan nomer KWH pelanggan jika benar data mengirim ke server jika salah flowcart kesempatan memasukan kembali.

3.data diproses dan masukke server PLN untuk mengetahui tagihan pelanggan.

4.setelah di proses akan tampil tagihan dan nomer KWH pelanggan.

5.proses selesai.

nah berikut ini program pascalnya :D

uses wincrt ;
var
norek : array [1..100] of string [40];
nama  : array [1..100] of string [10];
skr   : array [1..100] of integer ;
lalu  : array [1..100] of integer ;
pakai, bayar, x        : longint;
pph, total             : real;
begin
for x := 1 to 2 do
begin
write (‘input No. rekening data ke -> ‘,x,’: ‘) ; readln(norek[x]);
write (‘nama pelanggan     :    ‘) ; readln(nama[x]);
write (‘KWh sekarang       :    ‘) ; readln(skr[x]);
write (‘KWh lalu           :    ‘) ; readln(lalu[x]);
writeln;
end;
writeln (‘>> laporan pembayaran rekening listrik <<’);
writeln (‘________________________________________________________’);
writeln (‘|No|No.rek|Nama|KWH_skr|KWH lalu|Pakai|bayar|PPh|total |’);
writeln (‘________________________________________________________’);
for x := 1 to 2 do
begin
pakai := skr [x]-lalu[x];
bayar := pakai * 1000;
PPh   := 0.1 * bayar ;
Total := bayar + PPh;
writeln (‘   ‘,x,’|’, norek[x] ,’|’,nama[x],’|’,skr[x],’|’,lalu[x],’|’,pakai,’|’,bayar,’|’,PPh:1:1,’|’,total:1:1);
end;
end.

referensi : 

http://fiddelaffection.wordpress.com/2012/03/03/membuat-laporan-penbayaran-listrik-menggunakan-pemograman-pascal/

http://syifaunnida.blogspot.com/2014/05/program-untuk-perhitungan-biaya.html

inverter

Baterai berfungsi sebagai sumber suplai ke rangkaian inverter sakaligus sebagai pengganti sumber tegangan input apabila tegangan input (AC 220V) mati.

Rangkaian pengubah teganagan DC ke AC (Inverter) merupakan alat yang akan mengubah tegangan searah (DC) dari baterai menjadi tegangan bolak-balik (AC). Tegangan DC yang berasal dari batere akan dirubah menjadi tegangan AC oleh multivibrator astable dan di kuatkan oleh transistor penguat.

Transformator Step-Up berfungsi untuk menaikkan tagangan searah dari 12Volt menjadi 220 Volt.

Saklar berfungsi sebagai saklar  yang akan menghubungkan dari sumber tegangan (AC) ke sumber tegangan baterai apabila sumber tegangan AC mati.

Beban dalam hal ini beban adalah lampu.