Pemrograman Pascal Menghitung Diskon untuk mendapatkan bonus belanja

-

 Membuat Program Pascal untuk Menghitung Bonus Belanja


Pada kesempatan kali ini ane ingin membagikan contoh program untuk mendapatkan bonus belanja dengan perhitungan diskon. Program ini cukup sederhana hanya menggunakan pernyataan IF THEN ELSE untuk proses menentukan harga barang dan diskon yang di dapat pembeli saat total belanja telah mencapai syarat tertentu.

Sebelum kita membuat program penjualan barang di pascal, kita perlu mendefinisikan aturan-aturan yang digunakan dalam program. Aturan yang pertama mengenai deskripsi barang dan yang kedua mengenai potongan (diskon) yang akan di dapat pembeli.


Aturan mendapat diskon dan bonus
Berikut ini adalah aturan pembeli akan mendapat potongan (diskon) jika memenuhi syarat minimal total belanja.

No Total belanja     Diskon            Bonus
1 >= 500000            20      %        Sepatu
2 >= 400000            15      %        Tas
3 >= 300000      12,5    %        Jaket
4      >= 200000            10       %       Kemeja
5      >= 100000            7,5      %       Kaos
6      <   100000              -                  Jam


Contoh Program

Input

Program Bonus_Belanja;
uses crt;
var
        jb,tbayar,diskon : real;
begin
        clrscr;
        writeln('Nama : Farhan Misbahul Hayat');
        writeln('Npm  : 202143502440');
        write('Masukkan Jumlah Belanja : Rp. ');
        readln(jb);
        writeln('=================================');
        if jb >=500000 then
        begin
                writeln('mendapatkan bonus = Sepatu');
                diskon:=jb*0.20;
                writeln('Mendapatkan diskon = Rp. ',diskon:3:2)
        end
         else
         if jb >=400000 then
         begin
                writeln('mendapatkan bonus = Tas');
                diskon:=jb*0.15;
                writeln('Mendapatkan diskon = Rp. ',diskon:3:2);
         end
         else
         if jb >=300000 then
         begin
                writeln('mendapatkan bonus = Jaket');
                diskon:=jb*12.5;
                 writeln('Mendapatkan diskon = Rp. ',diskon:3:2);
         end
         else
         if jb >=200000 then
         begin
                writeln('mendapatkan bonus = Kemeja');
                diskon:=jb*0.10;
                writeln('Mendapatkan diskon = Rp. ',diskon:3:2);
         end
         else
         if jb >=100000 then
         begin
                writeln('Mendapatkan bonus = Kaos');
                diskon:=jb*7.5;
                writeln('Mendapatkan diskon = Rp. ',diskon:3:2);
         end
         else
         if jb <100000 then
         begin
                writeln('mendapatkan bonus = Jam');
                diskon:=jb-diskon;
                writeln('Mendapatkan diskon = Rp. ',diskon:3:2);
                writeln('Total Pembayaran = Rp. ',jb:0:2);
                end;
readln;
end.


Hasil Output



segitu aja ges


Komentar

Posting Komentar

Postingan populer dari blog ini

Part 10 : Perulangan While Pada PHP

-
Gambar
  🌕 Perulangan While Pada PHP          While adalah perintah pada PHP dan bahasa pemrograman lainnya untuk membuat sebuah perulangan yang tidak diketahui berapa kali perulangan tersebut dilakukan.  Untuk contoh penulisan dan struktur cara penggunaan perulangan while pada PHP dapat dilihat pada contoh di bawah ini while( Kondisi ){   Statement. } Dapat dilihat pada contoh penulisan while diatas setelah menuliskan while kemudian di dalam tanda kurung berisi kondisi nilai yang harus terpenuhi agar while dijalankan. Kemudian di dalam tanda kurung kurawal berisi statement yang di jalankan dalam bentuk perulangan apabila kondisi terpenuhi. Statement ini maksudnya adalah perintah syntax yang akan dijalankan dalam bentuk perulangan apabila kondisi terpenuhi. <?php  $x = 1; while ($x <= 10) { echo "Angka $x <br/>"; $x++; }  ?> Perhatikan contoh diatas, perintah while digunakan untuk melakukan perulangan. variabel x mem...
Read more »

Part 11 : Perulangan For Pada PHP

-
Gambar
  🌕 Perulangan For Pada PHP          Perulangan For digunakan untuk membuat sebuah perulangan pada pemrograman termasuk dalam bahasa pemrograman PHP. Tujuan hampir sama dengan while, hanya saja perulangan while memiliki jumlah batas yang tidak diketahui, sedangkan perulangan for memiliki batas berapa kali perulanga di ulangi dan bats dari perulangannya sudah ditentukan pada kondisi perulangan for. Untuk pemahaman yang lebih jelasnya bisa dilihat contoh perulangan for berikut: <?php  for ($i=1; $i <= 10 ; $i++) {     echo $i;   //Membuat perulangan menampilkan angka 1 sampai 10 } ?> Pada contoh perulangan for diatas kita mennetukan variabel i sama dengan 1, kemudian variabel i lebih kecl sama dengan 10, artinya bilangan 1 sampai 10, kemudian menampilkan isi dari variabel dalam bentuk perulangan for dengan menampilannya di dalam perulangan for. Untuk penulisan perulangan for kondisi perulangan diletakkan di dalam tanda...
Read more »

Part 5 : Tipe Data Pada PHP

-
Gambar
  🌕 Tipe Data Pada PHP     Sama seperti bahasa pemrograman lainnya yang memiliki tipe data, sama halnya dengan bahasa pemrograman PHP.      Berikut ini ada beberapa tipe data pada PHP:          1. String          2. Integer          3 . Float          4. Boolean          5. Array          6. Object          7. NULL             Dari tipe data PHP diatas hampir semua tipe data tersebut sering digunakan dalam membangun sebuah aplikasi. Kali ini kita akan jelaskan satu persatu. 🌕 Tipe Data String Pada PHP          Tipe DataString adalah tipe data yang berbentuk teks. Cara penulisan nya di letakkan di tengah dengan diapit tanda petik " ".          Contohnya: 🌕 Tipe Data Integer pada PHP    ...
Read more »