Selasa, 19 Oktober 2010

Contoh Program Sederhana QBASIC

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 diskon sebesar 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



8 komentar:

  1. thans you kakak sya nak kelas 1ic03 di gundar xmalang slm knl

    BalasHapus
  2. yo masama... btw gk usah panggil saya kakak, saya kan seangkatan jg ma kmu..

    BalasHapus
  3. weleh weleh nak gundar berkumpul

    BalasHapus
  4. kaks klo bkin gini gmana
    A
    AB
    ABC
    ABCD
    tolong kasih tw kaks

    BalasHapus
  5. kakka ajarin q basic dunk private dech

    BalasHapus
  6. kk kalo hasilnya
    masukan jumlah angka = 5
    hasilnya
    -1 2 -3 4 -5
    itu gimana ??

    BalasHapus
  7. permisi kak, aku mau tanya doong, kalau misalnya harga diskon sama total pembayaran buku2 nya dibuat dalam tabel gitu gimana ya caranya? terimakasihhh :))

    BalasHapus
  8. keren gan,, thx info nya,, by:: 1ka10

    BalasHapus

Tulis Komentar Disini