Program Hitung Rekening AIR PDAM [Pascal]

Listing Program:

program pembayaran_pdam;
uses crt;
var nama : array [1..100] of string;
gol : array [1..100] of char;
jpemakai,hrgair : array [1..100] of longint;
jpemb : array [1..100] of real;
biayabbn : array [1..100] of longint;
tanggal : array [1..100] of byte;
namamax, namamin : string;
max,min : real;
harga, pela, pelb, pelc: integer;
biaya : longint;
jumdenda, denda : real;
jawab : char; a,b:byte;
begin
clrscr;
writeln('Data Pelanggan PDAM Kota Makassar');
writeln('---------------------------------');
a:=1;
repeat
write('Input Nama Pelanggan : '); readln(nama[a]);
write('Input Golongan Meter [A,B,C] : '); readln(gol[a]);
write('Input Jumlah Pemakaian : '); readln(jpemakai[a]);
write('Input Tanggal pembayaran : '); readln(tanggal[a]);

hrgair[a]:=0;
biayabbn[a]:=0;
jpemb[a]:=0;
if ((gol[a]='a') or (gol[a]='A')) then
begin
harga :=3000;
biaya :=30000;
pela :=pela+1;
hrgair[a] :=harga*jpemakai[a];
biayabbn[a]:=biaya*jpemakai[a];
jpemb[a] :=hrgair[a]+biayabbn[a];
if ((tanggal[a]>=1) and (tanggal[a]<11 p="" then="">denda:=0
else
begin
denda :=0.05*jpemb[a];
jumdenda :=jumdenda+1;
end;
jpemb[a] :=jpemb[a]+denda;
end
else if ((gol[a]='b') or (gol[a]='B')) then
begin
harga :=4000;
biaya :=40000;
pelb :=pelb+1;
hrgair[a] :=harga*jpemakai[a];
biayabbn[a]:=biaya*jpemakai[a];
jpemb[a] :=hrgair[a]+biayabbn[a];
if ((tanggal[a]>=11)and(tanggal[a]<21 p="" then="">denda:=0
else
begin
denda :=0.05*jpemb[a];
jumdenda :=jumdenda+1;
end;
jpemb[a] :=jpemb[a]+denda;
end
else if ((gol[a]='c') or (gol[a]='C')) then
begin
harga :=5000;
biaya :=50000;
pelc :=pelc+1;
hrgair[a] :=harga*jpemakai[a];
biayabbn[a]:=biaya*jpemakai[a];
jpemb[a] :=hrgair[a]+biayabbn[a];
if ((tanggal[a]>=21)and(tanggal[a]<=31)) then
denda:=0
else
begin
denda :=0.5*jpemb[a];
jumdenda :=jumdenda+denda;
end;
jpemb[a] :=jpemb[a]+denda;
end;
inc (a);
write('Ingin menginput data lagi[Y|T] : '); readln(jawab);
until((jawab='T') or (jawab='t'));

dec (a);
max := jpemb[1];
min := jpemb[1];
namamax := nama[1];
namamin := nama[1];
for b:=2 to a do
begin
if jpemb[b] < min then
begin
min := jpemb[b];
namamin := nama[b];
end;
if jpemb[b] > max then
begin
max := jpemb[b];
namamax := nama[b];
end;
end;

writeln('Daftar Pelanggan PDAM Kota Makassar');
writeln;
writeln('No. Nama Gol.Meter Biaya Beban Harga Air Jml. Pembayaran');
writeln('-----------------------------------------------------------------------');
for b:=1 to a do
writeln(b,nama[b]:7,gol[b]:10,biayabbn[b]:17,hrgair[b]:18,' ',jpemb[b]:0:0);
writeln('-----------------------------------------------------------------------');
writeln;
writeln;
writeln('Jumlah Pelanggan Golongan A : ',pela);
writeln('Jumlah Pelanggan Golongan B : ',pelb);
writeln('Jumlah Pelanggan Golongan C : ',pelc);
writeln('Total Jumlah Denda Rp.',jumdenda:0:0);
writeln('Nama Pelanggan dengan Pembayaran Terbesar : ',namamax);
writeln('Nama Pelanggan dengan Pembayaran Terkecil : ',namamin);
readln;
end.

Semoga Bermamfaat ..!!