Membuat Program Pembayaran Listrik
Disini saya memosting tentang PROGRAM PEMBAYARAN LISTRIK program
saya buat ketika diberikan tugas dari dosen untuk mengikuti UAS semester satu,
dan Alhamdulillah dengan terkumpulnya tugas ini dengan nilai tugas, UTS dan MID
saya mendapatkan nilai A.
Program Pembayaran
Listrik ini menggunakan :
- constanta/const dengan jumbln (jumlah bulan), admin dan prkwh (perkilowatt yang bermaksud untuk merubah nilai watt ke KWH).
- Variabel/var real (bermaksud untuk perhitungan bilangan decimal pd intinya) dengan kode pwatt, pkwh, biaya, pembayaran, totaltag (total tagihan), daya, total, waktubln (waktu bulan), golongan, waktu, dayalt (daya alat) .
- Variable/var string (variable digunakan untuk inputan huruf/identitas yg meliputi nama,alamat,bulan,dll.) dengan kode tarifdya (tariff daya), norek (nomer rekening), bulan, nama, dan alamat.
- Keterangan penulisan identitas (variable dan constanta) tidak memakai space. Berikut dari program pembayaran listrik, semoga bermanfaat.
program
pembayaran_listrik;
uses
wincrt;
const
jumbln=30;admin=1800;
prkwh=1/1000;
var
pwatt,pkwh,biaya,
pembayaran,totaltag,
daya,total,waktubln,golongan,waktu,dayalt:real;
tarifdya,norek,bulan,nama,alamat:string;
pil:1..4;
begin
repeat
begin
clrscr;
writeln(
' MENU PEMBAYARAN LISTRIK BULANAN ' );
writeln(
'1. PELANGGAN ' );
writeln(
'2. inputan daya listik ');
writeln(
'3. cetak tanda bukti ');
writeln(
'4. keluar ');
write('pilih
Menu : ' );readln(pil);
case
pil of
1:begin
write('Nama Pemakai : ');readln(nama);
write('Alamat : ');readln(Alamat);
write('Nomer Rekening : ');readln(norek);
write('Bulan/TAHUN : ');readln(bulan);
write('jumlah Alat : ');readln(daya);
write('Daya Alat Listrik (watt) :
');readln(dayalt);
write('Lama pakai (jam)
: ');readln(waktu);
writeln('-----------------------------');
begin
pwatt:=dayalt*daya*waktu;
writeln(' besar daya watt perhari :
',pwatt:5:2,' watt');
pkwh:=pwatt*jumbln*prkwh;
writeln(' besar daya KWH perbulan :
',pkwh:5:2,' KWH');
end
end;
2:begin
write('Golongan = (1) RI 1300 (2) RI
2200 (3) RI 3500 (4) RI 6600 ');
write('Pilih Nomor Golongan : ');
readln(golongan);
write(' ketikkan golongan pilihan anda
: ');readln(tarifdya);
if (golongan = 1) then
begin
total:=pkwh*979;
end
else
if (golongan=2) then
begin
total:=pkwh*1004;
end
else
if (golongan=3) then
begin
total:=pkwh*1145;
end
else
if (golongan=4) then
begin
total:=pkwh*1352;
end
end;
3 :
begin
totaltag:=total+admin;
Writeln (' BANK MANDIRI SYARIAH TI 1A ') ;
Writeln (' BANK MANDIRI SYARIAH PURBALINGGA CITY ') ;
Writeln (' STRUKTUR PEMBAYARAN TAGIHAN LISTRIK ') ;
Writeln
('.............................................. ') ;
writeln('No.Rek : ', norek);
writeln('Nama : ', nama);
writeln('TARIF/DAYA : ',tarifdya);
writeln('Alamat : ',alamat);
Writeln('Tagihan PLN :Rp ', total:5:2);
writeln('BL/TH : ', bulan);
writeln('____________________________________________________________');
writeln('PLN menyatakan struktur ini sebagai
bukti pembayaran yang sah');
writeln('mohon disimpan');
writeln('
____________________________________________________________');
writeln('ADMIN BANK :Rp ',admin);
writeln('Total Pembayaran :Rp ', totaltag:5:2 );
writeln;
writeln('Rincian Tagihan Dapat Diakses di
gnwnrwn.blogspot.co.id');
writeln(' Atau Di POLITEKNIK SAWUNGGALIH
AJI ');
writeln(' jln.no24 wismo aji');
writeln(' TERIMA KASIH. ');
end;
4 :
begin
writeln('TERIMA KASIH.');
exit;
end;
end;
readln;
end
until(pil=4);
end.
Selamat mencoba coding program pascal, semoga
bermanfaat, dan kunjungi juga ke coding program pascal tentang PROGRAM GAJI KARYAWAN…..
Apakah masih bingung
dengan program latihan soal tersebut ???. anda bisa buka kembali di program
awal tentang pembahasan Perulangan IF-THEN-ELSE,
FOR-DO, WHILE-DO dan REPEAT-UNTIL.
No comments:
Post a Comment