Berikut saya kasih dikit contoh program Qbasic dengan RND() function.
Penjelasan dan logika
- G# = 0
A# = 0
Pertama kita lakukan pendeklarasian variable G dan A yang masing-masing bernilai 0 - 20 FOR K = 1 TO 100
Label 20, looping dengan “suku” K yang di deklarasi 1 sampai 100 kali pengulangan - 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). - 40 PRINT “G”;
G# = G# + 1
Mencetak karakter “G”, kemudian menjumlahkan variable G dengan 1. - 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 - 60 PRINT “A”;
A# = A# + 1
Mencetak karakter “A”, kemudian menjumlahkan variable A dengan 1. - 70 NEXT K
Melanjutkan pengulangan - 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.