Contoh Program Pascal Tagihan Pemakain Air

program tagihan_air;
uses wincrt;
var
no,nama: string;
awal,akhir,n1,n2,n3, Total_bayar,pakai,total_pemakaian,tipe: real;
lagi: char;
label a11,b11,c11;



begin
a11:Clrscr;
writeln ('                          Input Here Please');
writeln ('                          -----------------');
write ('No. Rekening:'); readln (no);
write ('Nama Pelanggan:'); readln (nama);
write ('Catatan Meteran Awal:'); readln (awal);
write ('Catatan Meteran Akhir:'); readln (akhir);
write ('Tipe Rumah Tangga :'); readln (tipe);
pakai := akhir - awal ;
Total_bayar := n1 + n2 + n3 ;
if tipe=1 then
if (pakai>= 0) and (pakai<=20) then
 begin
n1:= pakai * 100;
n2:= 0; n3:= 0;
end
else
if (pakai> 21 ) and (pakai <=50) then begin
n1:= 2000;
n2:= (pakai - 20 )* 300; n3:= 0;
end
else begin

n1:= 2000;
n2:= 9000;
n3:=(pakai - 50)*600

end
else
if tipe=2 then
if (pakai>= 0) and (pakai<=20) then
 begin
n1:= pakai * 150;
n2:= 0; n3:= 0;

end
else
if (pakai> 21 ) and (pakai <=50) then begin
n1:= 3000;
n2:= (pakai-20)  * 500; n3:= 0;
end
else begin

n1:= 3000;
n2:= 15000;
n3:=(pakai-50)  * 900;
end
else
if tipe=3 then
if (pakai>= 0) and (pakai<=20) then
 begin
n1:= pakai * 250;
n2:= 0; n3:= 0;
end
else
if (pakai> 21 ) and (pakai <=50) then begin
n1:= 5000;
n2:= (pakai- 20 ) * 800; n3:= 0;
end
else begin

n1:= 2000;
n2:= 24000;
n3:=(pakai-50)  * 1400;
end;
begin

total_pemakaian := pakai;
total_bayar := n1+n2+ n3;
writeln ('Total Pemakaian (meter):',pakai: 0:0 );
writeln ('Total Pembayaran: Rp',n1+n2+n3: 0:0 );


c11: write ('Apakah Anda Ingin Mengulangi Perhitungan??? (Y/N)!!!'); readln(lagi);
     case (lagi) of
     'Y','y' :goto a11;
     'N','n' :goto b11;
     else
     end;
     writeln;
     writeln('!! pilihan hanya Y/N) ');goto c11;
     readln;
           b11: write ('Terimakasih !!! ');
readln;
end;
end.



[jika ingin belajar lebih lagi tentang program
  please send to my email in: janjabat@gmail.com