TUGAS BELAJAR BAHASA PEMROGRAMAN

Tugas Belajar Bahasa Pemrograman



 
*        Jawaban soal No. 4, MEMBUAT  FLOWCHART DAN PROGRAM 

               PEMBAYARAN TAGIHAN LISTRIK PELANGGAN PT.PLN

Uses crt;

Var

            Nm:string[15];

            Kd:string[3];

            Bbeban,hrgperm3,tharga:longint;

            Ttagihan,pajak:real;

Begin

            Clrscr;

            Write(‘kode barang:’);readln(kd);

            If kd=’L01’then

            Begin

                        Jpelanggan:=’PABRIK’;Bbeban:=50000;hrgperm3:=2500;

            End

            Else if kd=’L02’then

            begin

                        Jpenjualan:=’SWALAN’;Bbeban:=35000;hrgperm3:=2000;

            end

Else if kd:=’L03’then

            Begin

                        Jpenjualan:=’TOKO’;Bbeban:=2000;hrgperm3:=1500;

            End

            Begin

            Else if kd:=’LO4’then

            Begin

                        Jpenjualan:=’RUMAH’;Bbeban:=1500;hrgperm3:=750;

            End;

            Write(‘jumlah penjualan:’);readln(Jpemakaian);

            Tharga=hrgperm3*Jpemakaian+Bbeban;

            Pajak:10*Tharga;

            Write(‘pajak:’);readln(pajak);

            Ttagihan:=tharga+pajak;

            Write(‘total tagihan:’,Ttagihan);

End.




 *  GAMBAR FLOWCHART NYA :)

mesran.blogspot.com