Program Pascal Menghitung Pembayaran Tagihan Listrik Pelanggan PT.PLN Menggunakan IF

Berikut 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