Penghitungan Tarif Transportasi

Soal :
Perusahaan transportasi mempunyai aturan tarif dengan variabel jarak (Km) :

•     0 s/d 5 : tarif 15rb
•     5 s/d 15 : tarif 25rb
•     15 s/d 50 : tarif 35rb
•     50 s/d 100 : tarif 100rb

Jika tarif kurang dari 35rb dikenakan biaya tambahan 5% dari tarif, jika diatas 35 rb dikenakan 3% dari tarif.
Total Biaya : tarif+biaya tambahan


Jawaban :
uses
  SysUtils;

var
  km, tarif, tambahan, total: Real;

begin
  Write('Jarak Tempuh (Km)  : '); Readln(km);
  if (km >= 0) and (km <= 5) then
     tarif := 15000
  else if (km > 5 ) and (km <= 15) then
     tarif := 25000
  else if (km > 15 ) and (km <= 50) then
     tarif := 35000
  else if (km > 50 ) and (km <= 100) then
     tarif := 100000;

  Writeln('Tarif Transportasi : Rp. ', tarif:0:0);

  if tarif <= 35000 then
     tambahan := tarif*(5/100)
  else if tarif > 35000 then
     tambahan := tarif*(3/100);

  Writeln('Biaya Tambahan     : Rp. ', tambahan:0:0);

  total := tarif+tambahan;
  Writeln('');
  Writeln('Total Biaya        : Rp. ', total:0:0);

  Readln;
end.

Penghitungan Tarif Transportasi 2015-11-03T23:45:00-08:00 Rating: 4.5 Diposkan Oleh: niena