menghitung bayar PAM

iseng – iseng gak ada kerjaan, sempet ngerjain tugas algoritma ternyata bagus juga ni soalnya.

• Buat algoritma untuk menentukan harga air PAM yang harus dibayar. Nilai yang diinput adalah jumlah m kubik air PAM. Berlakuketentuan sebagai berikut :

1. 50 m kubik pertama, harga per m kubik =Rp 1000
2. 50 m kubik kedua, harga per m kubik =Rp 1500
3. 50 m kubik ketiga, harga per m kubik =Rp 2000
4. Dan untuk m kubik selanjutnya, harga per m kubik =Rp 3000
5. Contoh : 175 m kubik = 50*1000 + 50*1500+50*2000+25*3000

di sini ada kasus mencari seperti sitem koin, di situ ada nilai 175 yang bagaimana caranya bisa di pecah menjadi pecahan 50 50 50 dan 25, sebagai 25 itu sisa. saya gunakan cara saya seperti :

Program MenghiutngBiayaPAM
{program  menghiutng biaya pam yang harus di bayar berdasarkan pemakian per m3}

Deklarasi
jmkubik, i, mkubik1, mkubik2, mkubik3, mkubik4, bayarpam : integer;

Algoritma
  jmkubik := 175
  i:=0;
  mkubik1:=0;
  mkubik2:=0;
  mkubik3:=0;
  mkubik4:=0;

  while (i <= jmkubik) do
  begin
    if (i <= 50) then
      mkubik1 := i;
    endif;

    if (i > 50) and (i <= 100) then
      mkubik2 := i;
      mkubik2 := mkubik2 - mkubik1;
    endif;
  
  if (i > 100) and (i <= 150) then
      mkubik3 := i;
      mkubik3 := mkubik3 - (mkubik2 + mkubik1);
    endif;

    if (i >= 151) then
    begin
      mkubik4 := i;
      mkubik4 := mkubik4 - (mkubik3 + mkubik2 + mkubik1);
    end;

     i:=i+1;
  end;
  bayarpam := mkubik1 * 1000 + mkubik2 * 1500 + mkubik3 * 2000 + mkubik4 * 3000;
  write(bayarpam);

moga bisa membantu dan bisa membuat inspirasi baru, kalo temen – temen semua punya algoritma ato coding yg lbih simple boleh kita share. maklum saya dalam masa belajar juga