Contoh Program Pembayaran Diskon Dengan Menggunakan Turbo Pascal

Contoh Program Pembayaran Diskon Dengan Menggunakan Turbo Pascal - Berikut ini adalah contoh program diskon dengan data sebagai berikut :
Program menghitung besar besar pembayaran berdasarkan pembelian :

1. Diskon diberikan 10% untuk pembelian 100.000 atau lebih,
2. Diskon diberikan 20% untuk pembelian 500.000 atau lebih.

Maka bentuk programnya adalah sebagai berikut :

program Discount;

uses crt;

var

Harga : longint;

diskon, bayar : real;

begin

    clrscr;

    write('Inputkan Harga : ');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

    if Harga < 100000 then

    write('Bayar = ' , Harga);

readkey;

end.

Maka dari program diatas, hasil keluarannya adalah :

Inputkan Harga : 100000
Bayar = 90000

Maka demikianlah artikel Contoh Program Pembayaran Diskon Dengan Menggunakan Turbo Pascal, semoga dapat membantu Anda.