WoW dotA Allstars

This is Description

Jumat, 30 Mei 2014

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

0 komentar:

Poskan Komentar