Penghitungan Pembayaran Listrik

Penghitungan Pembayaran Listrik

PLN menerapkan pembayaran listrik perumahan dengan cara perhitungan sebagai berikut :

-       Untuk golongan 1 tarIF : Rp 1000/kWh

-       Untuk golongan 2 tarIF : Rp 2000/kWh

Dengan syarat penghitungan:

Minimum pembayaran adalah 100 kWh sedangkan untuk pemakaian 1000 kWh dan seterusnya tarIFnya ditambah 10% dari total pembayaran.

Golongan	Pemakaian	Bayar
1	50	100.000
2	150	300.000
1	1000	1.100.000

Jawab:

uses crt;

var

        gol, pakai, tarif, bayar: real;

begin

clrscr;

        writeln('Masukkan Golongan 1 atau 2: ');

        readln(gol);

        writeln('Masukkan Pemakaian: ');

        readln(pakai);

        if ( gol = 1) then

                tarif := 1000

        else

                tarif := 2000;

        if (pakai >= 1000) then

                bayar := pakai * tarif * 1.1

        else if (pakai < 100) then

                bayar := 100 * tarif

        else

                bayar := pakai * tarif;

        writeln('Pembayarannya adalah: ', bayar:2:0);

        readln;

end.