Harga Barang

Contoh pemrograman pascal atau bahasa pascal ini menjelaskan tentang harga barang yang ada ditoko. Cara kerjanya tinggal masukkin nama barang maka harga barang akan keluar contohnya jika Anda masukkin nama barang yaitu super maka harga akan keluar Rp. 9000. Ini cuma sekedar contoh harga barang dari rokok, Anda juga bisa ganti dengan nama dan harga yang lain yang sesuai. Berikut sintaknya:


Uses wincrt;

Var
nama:string[20];
merek:string;
harga:real;

begin
write('Nama Barang : ');
readln(merek);
if(merek='Super') or (merek='super') then
begin
harga:=9000;
end
else if(merek='Sejati') or (merek='sejati') then
begin
harga:=5500;
end
else if(merek='Brown') or (merek='brown') then
begin
harga:=6000;
end
else if(merek='Super Besar') or (merek='super besar') then
begin
harga:=12000;
end
else if(merek='Samsu Besar') or (merek='samsu besar') then
begin
harga:=13000;
end
else if(merek='Samsu') or (merek='samsu') then
begin
harga:=10000;
end
else if(merek='Samsu Revil') or (merek='samsu revil') then
begin
harga:=14000;
end
else if(merek='Mild') or (merek='mild') then
begin
harga:=11000;
end
else if(merek='Sampurna') or (merek='sampurna') then
begin
harga:=7000;
end
else if(merek='Malboro') or (merek='malboro') then
begin
harga:=11000;
end
else if(merek='Clas Mild') or (merek='clas mild') then
begin
harga:=10000;
end
else if(merek='Star Mild') or (merek='star mild') then
begin
harga:=10000;
end
else if(merek='Surya 16') or (merek='surya 16') then
begin
harga:=11000;
end
else if(merek='Surya 12') or (merek='surya 12') then
begin
harga:=9000;
end
else if(merek='Filter') or (merek='filter') then
begin
harga:=9000;
end
else if(merek='Slim') or (merek='slim') then
begin
harga:=7000;
end
else if(merek='La') or (merek='la') then
begin
harga:=10000;
end
else if(merek='Jarum Black') or (merek='jarum black') then
begin
harga:=10000;
end
else if(merek='Jarum Coklat') or (merek='jarum coklat') then
begin
harga:=7000;
end
else if(merek='Mahayana') or (merek='mahayana') then
begin
harga:=3500;
end
else if(merek='Umild') or (merek='umild') then
begin
harga:=7500;
end
else if(merek='Country') or (merek='country') then
begin
harga:=7000;
end
else if(merek='Jinggo') or (merek='jinggo') then
begin
harga:=4500;
end;
writeln('Harga : Rp.',harga:6:0);

end.