Program Pascal PTPLN

Program Pascal PT.PLN

1. Kalimat Deskriptif
Program PembayaranTagihanListrikPelangganPTPLN;
uses crt;
var
   NamaPelanggan,kode,JenisPelanggan:String;
   JumlahPemakaian:Integer;
   BiayaBeban,HargaPerM3,TotHarga:Longint;
   Pajak,TotTagihan:real;
begin
     clrscr;
     Writeln('ProgramPembayaranTagihanListrikPelanggan PTPLN');
     Write('InputNamaPelanggan:');readln(NamaPelanggan);
     Write('InputKode:');readln(Kode);
     Write('InputJumlahPemakaian:');readln(JumlahPemakaian);
     if kode='LO1' then
     begin
          JenisPelanggan:='Pabrik';
          BiayaBeban:=500000;
          HargaPerM3:=2500;
     End

     else if kode='LO2' then
     begin
          JenisPelanggan:='Swalayan';
          BiayaBeban:=35000;
          HargaPerM3:=2000;
     end

     else if kode='LO3' then
     begin
          JenisPelanggan:='Toko';
          BiayaBeban:=25000;
          HargaPerM3:=1500;
     end
     else
     begin
          JenisPelanggan:='Rumah';
          BiayaBeban:=1500;
          HargaPerM3:=750;
     end;

     Writeln('JenisPelanggan:',JenisPelanggan);
     Writeln('BiayaBeban Rp.:',BiayaBeban);
     Writeln('HargaPerM3 Rp.:',HargaPerM3);

     TotHarga:=HargaPerM3+JumlahPemakaian+BiayaBeban;
     Writeln('TotHarga Rp.:',TotHarga);

     Pajak:=0.1*TotHarga;
     Writeln('Pajak10%Rp:',Pajak:0:0);

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

2.Tampilan Program pada Pascal