Program Belanja Sederhana dengan Pascal

Pada kesempatan ini saya akan berbagi sebuah kasus dan pemecahannya, dimana kasusnya sangat sederhana sekali. Sebut saja program belanja sederhana dengan pascal. Ketentuan kasusnya seperti ini :

1. Input (masukan) berupa total belanja seorang pelanggan.
2. Jika belanja nya lebih dari sama dengan (>=) 350.000, maka pelanggan mendapat diskon 8% (persen).
3. Jika  belanja nya lebih dari sama dengan (>=) 250.000 dan kurang dari (<) 350.000, maka pelanggan mendapat diskon 5%.
4. Jika belanja nya lebih dari sama dengan  (>=) 200.000 dan kurang dari (<) 200.000, maka pelanggan mendapat diskon 3%.
5. Jika belanja yang sudah mendapat potongan ( belanja - diskon ) hasilnya 3 digit di belakang lebih dari sama dengan (>=) 250, maka dibulatkan menjadi 500. apabila kurang dari 250, maka di bulatkan kebawah menjadi 0.
6. Outputnya :

          

Oke langsung saja saya buat source code nya di bawah :

program belanja_sederhana;
uses crt;
var
        belanja,diskon,jumlah,bayar:longint;
begin
        clrscr;
        write('Masukan total belanja : ');readln(belanja);
        //mencari diskon
        if(belanja>=350000)then
         begin
          diskon:=round(0.08*belanja);
          jumlah:=belanja-diskon;
         end
        else
         if((belanja>=250000)and(belanja<350000))then
          begin
           diskon:=round(0.05*belanja);
           jumlah:=belanja-diskon;
          end
         else
          if((belanja>=200000)and(belanja<250000))then
           begin
            diskon:=round(0.03*belanja);
            jumlah:=belanja-diskon;
           end
          else
           jumlah:=belanja;

        //pembulatan
        if (jumlah mod 500 >= 250 )then
          bayar:=jumlah + (500 - (jumlah mod 500 ))
        else
          bayar:=jumlah - (jumlah mod 500)  ;


        //cetak output
        writeln('Belanja        :Rp.',belanja);
        writeln('Diskon         :Rp.',diskon);
        writeln('---------------------------');
        writeln('Jumlah         :Rp.',jumlah);
        writeln('Bayar          :Rp.',bayar);
        writeln('===========================');

        readln;
end.

yup, cukup yah . . .
ohh iya compiler yang saya pake yaitu "free pascal" .
semoga bermanfaat.