Program Hadiah Belanja
Kode Program Yang Dipakai :
program hadiahBelanja
Uses wincrt;
var
x:integer;
begin
write('masukkan harga=');read(x);
if x<=49.999 then
write('maaf sampeyan dereng beruntung')
else
if x<=99.999 then
write('selamat sampeyan mendapatkan mie goreng')
else
if x<=149.999 then
write('selamat sampeyan mendapatkan gelas cantik')
else
if x<=199.999 then
write('selamat sampeyan mendapatkan piring cantik')
else
if x<=5000.000 then
write('selamat sampeyan mendapatkan payung cantik')
end.
Sekian Postingan Dari Saya
Jika Ada Salah Kata Mohon Dimaklumi
