Membuat program Hadiah Belanja
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 mendpatkan sampeyan payung cantik')
end.
Terima Kasih Sobat Sudah:
1. Berkomentar Dengan Sopan
2. Tidak Memasukkan Link Aktif Dalam Form Komentar
3. Berkomentar Sesuai Artikel/Postingan
4. Berilah Informasi Kepada Admin Jika ada script yang Sudah tidak berfungsi
5. komentar Jorok/kasar /berbau Sara/Porno /saya anggap sebagai SPAM
Jika Sudah Mematuhi Peraturan diatas Anda Sudah dianggap SOPAN.
Thanks
EmoticonEmoticon