Contoh Soal Program Pembayaran Air PDAM Dengan Menggunakan Bahasa Pemrograman Pascal

Assalamu alaikum wr. wb

langsung saja
jadi soalnya seperti ini ...

PDAM kota Makassar menetapkan tarif pemakaian air bersih per M kbik-nya ditentukan secara per golongan dimana golongan ditentukan otomatis berdasarkan jumlah pemakaian. untuk pemakaian 50 m kubik pertama dikenakan biaya Rp. 1500. 51-75 m kubik dikenakan biaya RP. 1750. 76-100 m kubik dikenakan Rp. 2000 dan lewat dari 100 dikenakan Rp. 2250. buatlah program untuk menghitung jumlah yang harus dibayar pelanggan jika volume air diinput dari keyboard.

berikut scriptnya  ..


program Biaya_Pemakaian_Air_PDAM;
uses crt;
var jumpakan,total : longint;
ulang : char;

begin
clrscr;
ulang := 'Y';
while upcase (ulang)= 'Y' do
begin
clrscr;
write('Jumlah Pemakaian Air (m3) = '); readln (jumpakan);
if (jumpakan>=100) then
begin
total :=((jumpakan - 100) * 22)
end
else
if (jumpakan >=76) then
begin
total := ((jumpakan - 76) * 200)
end
else
if (jumpakan >= 51) then
begin
total := ((jumpakan - 51) * 175)
end
else
if (jumpakan <= 50) then
begin
total := (50 * 175)
end;
writeln ('biaya yang harus dibayar = Rp.',total);
writeln ('______________________________________');
writeln('mau cek pemakaian air lagi ? [Y/T] : ');
readln;
end;
end.

Selanjutnya silahkan dicompiler sendiri ..

sekian, terima kasih.
semoga bermanfaat