Langsung ke konten utama

PROGRAM PEMBAYARAN TAGIHAN LISTRIK PT.PLN

Program PembayaranTagihanListrikPTPLN;
uses crt;
var
NamaPelanggan,Kode,JenisPelanggan:string;
JumlahPemakaian:integer;
BiayaBeban,HargaPerM3,TotalHarga:longit;
Pajak,TotTagihan:real;
begin
clrscr;
   writeln('Program Pembayaran Tagihan Listrik PT PLN');
   write('Input Nama Pelanggan:');readln(NamaPelanggan);
   write('Input Kode:');readln(Kode);
   write('Input JumlahPemakaian:');readln(JumlahPemakaian);
if Kode:='L01' then
begin
   JenisPelanggan:='Pabrik';
   BiayaBeban:=50000;
   HargaPerM3:=2500;
end
else if Kode:='L02' then
begin
   JenisPelanggan:='Swalayan';
   BiayaBeban:=35000;
   HargaPerM3:=2000;
end
else if Kode:='L03' then
begin
   JenisPelanggan:='Toko';
   BiayaBeban:=2500;
   HargaPerM3:=1500;
end
else if Kode:='L04' then
begin
   JenisPelanggan:='Rumah';
   BiayaBeban:=15000;
   HargaPerM3:=750;
end;
writeln('JenisPelanggan:',JenisPelanggan);
writeln('Biaya Beban Rp:',Biaya Beban);
writeln('HargaPerM3 Rp:',HargaPerM3);

TotHarga:=HargaPerM3*JumlahPemakaian+BiayaBeban;
writeln('TotHarga Rp:',:0:0);

Pajak:=0,1*TotHarga;
writeln('Pajak 0.1 Rp:',Pajak:0:0);

TotTagihan:=TotHarga+Pajak;
writeln('TotTagihan Rp:',TotTagihan:0:0);
readln;
end.

Komentar

Posting Komentar

Postingan populer dari blog ini

PENJUALAN BARANG MENGGUNAKAN PSEUDO-CODE

PSEUDO-CODE Algoritma: Penjualan_Barang Deklarasi    Kd, Nm: String    JJ, Hrg, TH : Numeric Deskripsi    Read (Kd);    IF Kd='SBN01' Then                Nm-'Sabum LUX'                Hrg- 1500    ELSE IF Kd='RNS02' Then                Nm-'Rinso'                Hrg-11500    ELSE IF Kd='SMP03' Then                Nm-'Sunsilk'                Hrg-150           ELSE             Nm-" "           END IF Read (JJ) TH- Hrg*JJ Write(TH)
Posting Komentar
Baca selengkapnya

Penggunaan Fungsi Matriks dalam Microsoft Office Excel Sebagai Media Pembelajara

Penggunaan Fungsi Matriks dalam Microsoft Office Excel Sebagai Media Pembelajara Pendahuluan Di era teknologi informasi ini dan dengan pesatnya perkebangan teknologi komputer saat ini, manfaat komputer telah dirasakan di berbagai sektor kehidupan. Dalam sektor pendidikan misalnya, pemanfaatan komputer sudah berkembang tidak hanya sebagai alat yang hanya dipergunakan untuk urusan keadministrasian saja, melainkan juga dimungkinkan untuk digunakan sebagai salah satu alternatif dalam pemilihan media pembelajaran. Hal semacam ini perlu ditanggapi secara positif oleh para guru sehingga komputer dapat menjadi salah satu media yang dapat membantu dalam mengoptimalkan pembelajaran. Salah satu program komputer  yang bisa digunakan oleh guru sebagai media pembelajaran adalah Microsoft  Office Excel. Khususnya penggunaan Microsoft  Office Excel sebagai media pembelajaran dalam bidang matematika. Ada banyak fungsi yang disediakan Microsoft  Office Excel yang dapat dimanfaatkan se...
Posting Komentar
Baca selengkapnya

sajian data dalam bentuk histogram, poligon, pie chart, ogive dan diagram

selesaikan data dibawah ini dengan sajian dalam bentuk histogram, poligon, pie chart, ogive, dan diagram nilai f 41 - 50 3 51 – 60 11 61 – 70 21 71 – 80 33 81 – 90 15 91 – 100 3 1. Histogram Untuk membuat histogram tepi bawah dikurang dengan 0.5 dan batas atas kelas paling bawah di tambah dengan 0.5 2. Poligon Poligon merupakan garis yang melalui titik tengah dari bagian sisi atas tiap persegi panjang dari histogram   3. Ogive Untuk menentukan ogive terlebih dahulu mencari nilai frekuensi komulatif  Nilai Frekuensi FK 41-50 3 3 51-60 11 14 61-70 21 35 71-80 33 68 81-90 15 83 91-100 3 86 4. diagram    ...
Posting Komentar
Baca selengkapnya