Quiz Online Mesran[dot]Net: Pembayaran Rekening Listrik

uses crt;
var
   kode         : array [1..10] of integer;
   pakai        : array [1..10] of integer;
   beban        : real;
   harga        : integer;
   bayar        : array [1..10] of real;
   pelanggan    : string;
   i,n          : integer;

begin
     clrscr;
     writeln ('Pembayaran Rekening Listrik');
     writeln ('---------------------------');
     write ('Input Banyak Data: ');readln(n);

     for i:=1 to n do
     begin
     writeln;
     writeln ('Data ',i);
     write ('Input Kode: ');readln(kode[i]);
     write ('Input Pemakaian: ');readln(pakai[i]);
     end;

     for i:=1 to n do
     bayar[i]:=beban+harga*pakai[i];
     begin

           if (kode[i]=1) then
           begin
                pelanggan:='RUMAH';
                beban:=25000;
                harga:=3000;
           end
           else

           if (kode[i]=2) then
           begin
                pelanggan:='TOKO';
                beban:=50000;
                harga:=5000;
           end
           else

           if (kode[i]=3) then
           begin
                pelanggan:='PABRIK';
                beban:=100000;
                harga:=10000;
           end;


     clrscr;
     writeln ('Informasi Pembayaran Rekening Listrik');
     writeln ('----------------------------------------------------------------');
     writeln ('| No | Kode | Jenis Pelanggan | Beban | Pemakaian | Pembayaran |');
     writeln ('----------------------------------------------------------------');
     for i:=1 to n do
     begin
     writeln ('|',i:3, kode[i]:6, pelanggan:15, beban:12:0, pakai[i]:8, bayar[i]:11:0,'|':8);
     end;
     writeln ('----------------------------------------------------------------');
     readln;
     end;
end.

Hasilnya sebagai berikut.

Tweet