Advertisement
cindex1a

pascal diskon

Jan 18th, 2022
1,114
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program penjualan_barang;
  2.  
  3. var
  4.  
  5.    harga_barang, jumlah, total: longint;
  6.    kode_barang : string;
  7.    nama_barang : string;
  8.    diskon,tot_bayar : real;
  9.    
  10. begin
  11.  
  12.    write('Masukan Kode Barang : ');read(kode_barang);
  13.  
  14.  
  15.    if (kode_barang = 'B1') or (kode_barang = 'b1') then
  16.         begin
  17.             nama_barang :='Kaos Anak Anak';
  18.             harga_barang :=50000;
  19.         end
  20.    else if (kode_barang = 'B2') or (kode_barang = 'b2') then
  21.         begin
  22.             nama_barang := 'Celana Jeans';
  23.             harga_barang := 235000;
  24.         end
  25.    else if (kode_barang = 'B3') or (kode_barang = 'b3') then
  26.         begin
  27.             nama_barang := 'Tas sekolah';
  28.             harga_barang := 150000;
  29.         end
  30.    else if (kode_barang = 'B4') or (kode_barang = 'b4') then
  31.         begin
  32.             nama_barang := 'Sepatu Sekolah';
  33.             harga_barang := 199000;
  34.         end
  35.    else if (kode_barang = 'B5') or (kode_barang = 'b5') then
  36.         begin
  37.             nama_barang := 'Buku Tulis';
  38.             harga_barang := 1500;
  39.         end
  40.     else if (kode_barang = 'B6') or (kode_barang = 'b6') then
  41.         begin
  42.             nama_barang := 'Pena,pensil';
  43.             harga_barang := 5000;
  44.         end
  45.     else if (kode_barang = 'B7') or (kode_barang = 'b7') then
  46.         begin
  47.             nama_barang := 'Tip-X';
  48.             harga_barang := 2000;
  49.         end
  50.     else
  51.         begin
  52.              writeln('Kode barang salah');
  53.              exit();
  54.         end;  
  55.        
  56.    writeln('Nama Barang  : ',nama_barang);
  57.    writeln('Harga Barang : ',harga_barang);
  58.    write('Jumlah Beli   : ');read(jumlah);
  59.    
  60.    total:=harga_barang*jumlah;
  61.    diskon:=0;
  62.    if (total >= 1000000) then
  63.         begin
  64.         {
  65.             diskon 30% jika total harga di atas 1000000
  66.         }
  67.             diskon:=0.3;
  68.         end
  69.    else if (total >= 500000) then
  70.         begin
  71.         {
  72.             diskon 20% jika total harga di atas 500000
  73.         }
  74.             diskon:=0.2;
  75.         end
  76.     else if (total >= 250000) then
  77.         begin
  78.         {
  79.             diskon 10% jika total harga di atas 25000
  80.         }
  81.             diskon:=0.1;
  82.         end;  
  83.    
  84.   tot_bayar:=(total-(total*diskon));
  85.   writeln('Sub total   : ',total);
  86.   writeln('Potongan    : ',total*diskon:0:0);
  87.   writeln('Total Bayar : ',tot_bayar:0:0);
  88.  
  89. end.
Advertisement
Advertisement
Advertisement
RAW Paste Data Copied
Advertisement