Sabtu, 09 Januari 2016

Program Menghitung Diskon (Bahasa Pascal)

Buat program untuk menghitung diskon, yang mana kode barang = ‘PK01’, nama barang = ‘Pakaian’, harga satuan Rp. 75.000,- , jumlah yg dibeli 2 buahJika membeli tidak kurang dari 5buahmaka akan mendapat diskon 12,5% dari harga total. Tampilkan ke layar kode barangnamabarangharga satuanjumlah yang dibelidiskon dan total bayar.
program Menghitung_Diskon;
{I.S. : Diberikan kode barang, nama barang, harga satuan, dan jumlah yang dibeli}
{F.S. : menampilkan diskon dan total bayar}
var
   JumlahBiaya, TotalBayar, Diskon: real;
   JumlahyangDibeli, HargaSatuan : integer;

begin
   write('Kode Barang = PK01');readln;
   write('Nama Barang = Pakaian');
   HargaSatuan := 75000;readln;
   write('Harga Satuan = Rp. ',HargaSatuan,',-');readln;
   JumlahyangDibeli := 2;
   write('Jumlah yang Dibeli = ',JumlahyangDibeli,' buah');readln;
   JumlahBiaya := JumlahyangDibeli * HargaSatuan;
   write('Jumlah Biaya = Rp. ',JumlahBiaya:5:2);readln;
   if (JumlahyangDibeli >= 5) then
        Diskon:= JumlahBiaya*12.5/100
      else
        Diskon:= 0;
   write('Diskon = Rp. ',Diskon:5:2,',-');readln;
   write('Total Bayar = Rp. ',JumlahBiaya-Diskon:5:2,',-');
   readln;
   readln;

end.

Tidak ada komentar:

Posting Komentar