Popular Posts :
Home » » Contoh Program Sederhana QBASIC

Contoh Program Sederhana QBASIC

Senin, 04 April 2011 | 0 komentar

1. Membuat program dengan output "Halo, nama saya .... saya kuliah di UG kelas .... ,salam kenal"

Source Codenya kira-kira seperti ini:
CLS
INPUT "Nama :"; NAMA$
INPUT "Kelas :"; KELA$
PRINT "Halo, nama saya "; NAMA$ ;" saya kuliah di UG kelas "; KELA$ ;" ,salam kenal"
END
Hasil :


2. Sebuah Toko Buku mempromosikan tokonya dengan memberikan diskonsebesar 20% jika buku yang dibeli lebih dari 24 buku.

Source Codenya :


Hasil jika buku yang dibeli 60 buah (A >= 25)


Hasil jika buku yang dibeli 15 buah (A <>


Penjelasan : Dari program diatas kita bisa lihat tampilan dari hasil jika buku yang dibeli <= 24 dan >=25 buah. Pada tampilan >= 25 terlihat ada tampilan Harga dan Diskon sedangkan pada <= 24 tidak ada, nahh kalo yang itu bisa dilihat sendiri dalam algoritma IF A >=25-nya ada banyak, jadi semua statement A >= 25 itu menunjukkan rumus yang dipakai jika buku yang dibeli >=25 dan yang lainnya itu menunjukkan tampilan (tampilan Harga dan Diskon) jika buku yang dibeli >=25 buah lebih jelasnya lihat aja di bawah ini :
CLS : untuk membersihkan layar ketika program diaktifkan kembali
INPUT "Masukkan Jumlah Barang yang Dibeli ="; A : untuk memasukkan jumlah barang yang dibeli yang diberi simbol A
INPUT "Masukkan Harga Barang ="; B : untuk memasukkan harga barang yang diberi simbol B
IF A >= 25 THEN LET C = (A * B) – (A * B * 20 / 100) : menunjukkan rumus Total harga jika buku yang dibeli lebih dari 24 buah (A >= 25)
IF A >= 25 THEN PRINT “Harga = Rp.”; A * B : jika buku yang dibeli lebih dari 25 maka harga seharusnya yang dibayar (tanpa diskon) adalah A * B (banyak buku dibeli * harga)
IF A >= 25 THEN PRINT “Diskon = Rp.”; (A * B * 20 / 100) : jika buku yang dibeli lebih dari 24 buah maka dia mendapat diskon sebesar (A * B * 20 /100) (total harga tanpa diskon * 20%)
IF A >= 25 THEN PRINT “------------------------ (-)” : yang inisihh tampilan buat keren-kerenan aja
ELSE LET C = A * B : jika buku yang dibeli tidak lebih dari 24 maka total harga yang harus dibayar adalah A * B
END : program diakhiri

Share this article :

0 komentar:

Posting Komentar

 
Support : Indonesia Blogger | Eggy Prayogia Adistira | The Prayogia
| SUHE
Copyright © 2012. Eprayogia - All Rights Reserved
Template Modify by Eprayogia
Proudly powered by Eggy Prayogia Adistira