Argonz’s Weblog

uses crt;
var kelas : char;
JBrg : string ;
Pajak,harga : real ;
begin
clrscr;
write (’Masukkan kelas barang : ‘);readln(kelas);
write (’Masukkan Harga Barang : ‘);readln(harga);
case kelas of
‘1′ : begin
writeln (’Jenis Barang : Makanan’);
writeln (’Pajak :’,harga * 0.1:2:0);
end;
‘2′ : begin
writeln (’Jenis Barang : Minuman’);
writeln (’Pajak :’,harga * 0.2:2:0);
end;

else
begin
writeln (’Jenis Barang : Mainan’);
writeln (’Pajak :’,harga * 0.15:2:0);
end;
end;

readln;
end.

Penjelasan :

uses crt : unit yang berfungsi …

Bersambung ………