aldiunanto.com

Fungsi RND() di Qbasic

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

Source code Qbasic RND() function

Source Code

Result Qbasic RND() function

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.

 

Leave a Reply

%d bloggers like this: