Contoh Program PembayaranDiskonDenganMenggunakan Turbo Pascal

Bonvisa Satu Hati



Program menghitungbesarbesarpembayaranberdasarkanpembelian :
  1. Diskondiberikan 10% untukpembelian 100.000 ataulebih,
  2. Diskondiberikan 20% untukpembelian 500.000 ataulebih.
Makabentukprogramnyaadalahsebagaiberikut :
programDiscount;
usescrt;
var
Harga :longint;
diskon, bayar : real;
begin
    clrscr;
    write('InputkanHarga : ');read(Harga);
    if (Harga>= 100000) and (Harga< 500000) then
begin
    Diskon :=Harga * (10/100);
    Bayar :=Harga - Diskon;
    write('Bayar = ' , Bayar:0:0);
end
    else
    id (Harga>= 500000) then
begin
    Diskon :=Harga * (20/100);
    Bayar :=harga - Diskon;
    write('Bayar = ' , Bayar:0:0);
end
    else
    ifHarga< 100000 then
    write('Bayar = ' , Harga);
readkey;
end.
 

0 comments "Contoh Program PembayaranDiskonDenganMenggunakan Turbo Pascal ", Baca atau Masukkan Komentar

Post a Comment