Harga Barang

Harga Barang

Buatlah program untuk menyelesaikan masalah berikut :
Program akan menerima masukan berupa kode, jenis dan harga, dengan jenis adalah "A", "B", dan "C". Untuk setiap jenis, masing-masing akan diberikan diskon sebesar 10% untuk A, 15% untuk B, dan 20% untuk C. Program akan menghitung berapa harga setelah didiskon.
Contoh masukan :
Jenis = B

kode = 10
harga = 10000
Contoh keluaran :
Jenis barang B mENDapat diskon = 15%, Harga setelah didiskon = 8500  

Jawab:

uses crt;

var

        harga, disk: Real;

        jenis: char;

begin

clrscr;

        writeln('Masukkan Jenis: ');

        readln(jenis);

        writeln('Masukkan Harga: ');

        readln(harga);

        case jenis of

        'a':disk := harga * 0.1;

        'b':disk := harga * 0.15;

        'c':disk := harga * 0.2;

        end;

        writeln('Harga setelah diskon: ', harga - disk:2:0);

        readln;

end.