pascal tentang pembayaran LISTRIK

USES wincrt;
VAR
   Np ,Kd,Jp,tanggal :string ;
   Hb, p , Hkwh, Td ,admin : Real ;
 


BEGIN
   Gotoxy(15,3);Write ('BANK BNI SYARIAH   ') ;Gotoxy(50, 3);Write ('TANGGAL.');readln(tanggal);
   Gotoxy(15,4);Write ('BANK BNI SYARIAH SP.PLAZA BOGOR II/0000000SBJRKALOI  ') ;
   Gotoxy(25,5);Write ('          STRUKTUR PEMBAYARAN TAGIHAN LISTRIK  ') ;
   Gotoxy(25,6); Write ('...................................................... ') ;
   Gotoxy(5,7); Write ('Nama Pelanggan : '); Readln (np) ;
   Gotoxy(5,8); Write ('Kode Rekening : '); Readln (Kd) ;
   Gotoxy(5,13); Write ('_______________________________________________') ;


   IF Kd = 'R01' then
   BEGIN
        Jp := 'Pabrik/Perusahaan' ;
        Hb := 40000 ;
        HKwh := 1250 ;
        admin :=1600 ;
        END
        ELSE IF Kd='S02' then
   BEGIN
        Jp := 'Swalayan & toko';
        Hb := 35000 ;
        Hkwh:= 1000 ;
        admin :=1600 ;
        END
        ELSE IF Kd = 'T03' then
   BEGIN
        Jp := 'Rumah' ;
        Hb := 10000 ;
        Hkwh:= 250 ;
        admin :=1600 ;
       END ;
 
   Gotoxy(50,8) ; Write('Jenis Pelanggan : ', jp);
   Gotoxy(20,9) ; Write('Harga Beban     : ', Hb:10:1);
   Gotoxy(20,10); Write('Harga KWH       : ', Hkwh:10:1);
   Gotoxy(20,11); Write('Tarif/Daya      : '); Readln(Td) ;
   Td := Hb + Hkwh * P + admin ;
 
   gotoxy(5,15);write('PLN menyatakan struktur ini sebagai bukti pembayaran yang sah,mohon disimpan');
   gotoxy(5,16);write('ADMIN BANK       Rp :',admin:10:1);
   gotoxy(5,17);write('Total Pembayaran  Rp :', Td:8:2 );
 
   gotoxy(20,19);write('Rincian Tagihan Dapat Diakses di www.pln.co.id');
   gotoxy(20,20);write('              Atau Di PLN Terdekat            ');
   gotoxy(5,21);write('SBJRKAL01/OFR/CA09112011081450/00030/OL');
   gotoxy(5,23);write('TERIMA KASIH.');








END.




Bagus Amertha
Management of Informatika 5