Tugas Mencari Tarif PDAM degan Pascal

Masih dalam penggunaan If then, kali ini kita membahas pascal mencari tarif PDAM. Dengan contoh soal sebagai berikut :

PDAM Kota Makassar menetapkan tarif pemakaian  air bersih per m3-nya ditentukan secara pergolongan dimana golongan ditentukan otomatis berdasarkan jumlah pemakainya. Untuk pemakaian 50 m3 pertama dikenakan biaya Rp. 1500. 51-75 m3 dikenakan Rp. 1750. 76-100 m3 dikenakan Rp. 2000 dan lewat dari 100 dikenakan Rp. 2250. Buatlah programuntuk menghitung jumlah yang harus dibayar pelanggan jika volume air diinput dari keyboard. 

=============================================

Program PDAM_Makassar_City;

uses wincrt;

var

gol1,gol2,gol3,gol4,pk,total:longint;

        ulang:char;

Begin

clrscr;

ulang:='Y';

while Upcase(ulang)='Y' do

begin

clrscr;

writeln ('Program PDAM Makassar City');

writeln ('++++++++++++++++++++++++++');

write   ('Masukan Jumlah Pemakaian air = ');readln(pk);

writeln;

if (pk <=50) then

gol1 := 1500*pk

else if (pk<=75) then

begin

gol1 :=1500*50;

gol2 :=1750*(pk-50);

end

else if (pk<=100) then

begin

gol1:=1500*50;

gol2:=1750*25;

gol3:=2000*(pk-75);

end

else

begin

gol1:=1500*50;

gol2:=1750*25;

gol3:=2000*25;

gol4:=2250*(pk-100);

end;

total:=gol1+gol2+gol3+gol4;

writeln('Tarif Golongan 1 = Rp.',gol1:8);

writeln('Tarif Golongan 2 = Rp.',gol2:8);

writeln('Tarif Golongan 3 = Rp.',gol3:8);

writeln('Tarif Golongan 4 = Rp.',gol4:8);

writeln('Total            = Rp.',total:8);

writeln;

Writeln('==============================================');

    Writeln('= Created, Ardiansyah || 201422050265 ||TI.11 =');

Writeln('==============================================');

    write('Mau cek pemakaian air lagi? [Y/T]: ');

    Readln(ulang);

    end;

end.

==============================================

Berikut hasil outputnya :

Credit,

By : Adyt