Program Pascal Menghitung Pembayaran Tagihan Listrik Pelanggan PT.PLN menggunakan If

Program Pascal Menghitung Pembayaran Tagihan Listrik Pelanggan PT.PLN menggunakan If

Nahhh ini adalah salah satu program pascal untuk menghitung pembayaran tagihan listrik pelanggan PT.PLN menggunakan If

1. Programnya

     

Program PembayaranTagihanListrikPelangganPTPLN;

uses crt;

var

   NamaPelanggan,Kode,JenisPelanggan   : string;

   JumlahPemakaian                                   : integer;

   BiayaBeban,HargaPerM3,TotHarga       : longint;

   Pajak,TotTagihan                                    : real;

begin

     clrscr;

     Writeln('Program Pembayaran Tagihan Listrik Pelanggan PT PLN');

     Write('Input Nama Pelanggan   : ');readln(NamaPelanggan);

     Write('Input Kode             : ');readln(Kode);

     Write('Input Jumlah Pemakaian : ');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:=25000;

        HargaPerM3:=1500;

     end

     else

     begin

        JenisPelanggan:='Rumah';

        BiayaBeban:=15000;

        HargaPerM3:=750;

     end;

     Writeln('Jenis Pelanggan        : ',JenisPelanggan);

     Writeln('Biaya Beban         Rp.: ',BiayaBeban);

     Writeln('Harga Per M3        Rp.: ',HargaPerM3);

     TotHarga :=HargaPerM3*JumlahPemakaian+BiayaBeban;

     Writeln('TotHarga            Rp.: ',TotHarga);

     Pajak := 0.1 * TotHarga;

     Writeln('Pajak 10%           Rp.: ',Pajak:0:0);

     TotTagihan :=TotHarga+Pajak;

     Writeln('TotTagihan          Rp.: ',TotTagihan:0:0);

     readln;

end.

2. Tampilan Program dalam Pascal

3. Hasil Program