Program Discount

Membuat Program Discount Belanja ~ "Program Discount Belanja Pascal" Berikut ini adalah salah satu contoh program Pascal Discount. Yah masih banyak yang kurang dari Program Pascal Discount Belanja ini. Silahkan dicopy dan dimodifikasi agar menjadi lebih lengkap dan bisa dijadikan pembelajaran bagi yang lain.

program diskon_belanja;

uses wincrt;

var nama:string;

   total_bayar,harga:real;

    diskon:real;

begin

writeln('#=============================#');

writeln('      TOKO PASCAL PUSING');

writeln('#=============================#');

write('  Masukan Nama Barang   = ');readln(nama);

write('  Jumlah Belanja = Rp ');readln(harga);

writeln('#=============================#');

writeln;

     if (harga>=1000000) then

     begin

        diskon:=harga*0.25;

        total_bayar:=harga-diskon;

        writeln('Total Bayar = Rp ',total_bayar:2:2);

        writeln('Selamat anda dapat diskon (25%) Rp ',diskon:2:2);

     end

     else if (harga>=100000) then

     begin

          diskon:=harga*0.1;

          total_bayar:=harga-diskon;

          writeln('Total Bayar = Rp ',total_bayar:2:2);

          writeln('Selamat anda dapat diskon (10%) Rp ',diskon:2:2);

     end

     else if

        (harga>=50000) then

     begin

        diskon:=harga*0.05;

        total_bayar:=harga-diskon;

        writeln('Total Bayar = Rp ',total_bayar:2:2);

        writeln('Selamat anda dapat diskon (5%) Rp ',diskon:2:2);

     end

     else

     writeln('Anda Tidak Mendapat Diskon..')

end.