aldiunanto.com

Berikut saya kasih dikit contoh program Qbasic dengan RND() function.

Source Code

Result

Penjelasan dan logika 

1. G# = 0
   A# = 0
   Pertama kita lakukan pendeklarasian variable G dan A yang masing-masing bernilai 0
2. 20 FOR K = 1 TO 100
   Label 20, looping dengan “suku” K yang di deklarasi 1 sampai 100 kali pengulangan
3. 30 IF RND < .6 THEN 60
   Label 30, dilakukan sebuah kondisi. Disini kita menggunakan fungsi RND(), fungsi ini merupakan fungsi yang akan menghasilkan angka secara random atau acak diantara bilangan 0 dan 1(lebih besar dari 0 namun kurang dari 1).
4. 40 PRINT “G”;
   G# = G# + 1
   Mencetak karakter “G”, kemudian menjumlahkan variable G dengan 1.
5. 50 GOTO 70
   Label 50, menuju label 70. Statement ini akan di eksekusi jika nilai yang dihasilkan dari fungsi RND bernilai kurang dari 0,6
6. 60 PRINT “A”;
   A# = A# + 1
   Mencetak karakter “A”, kemudian menjumlahkan variable A dengan 1.
7. 70 NEXT K
   Melanjutkan pengulangan
8. PRINT “Jumlah nilai G = “; G#
   PRINT “Jumlah nilai A = “; A#
   END
   Mencetak jumlah nilai G dan A yang awalnya sudah dilakukan perhitungan berapa banyak kali cetak nilai A dan G, kemudian pemberhentian program.