乱数について

• 不使用の場合
• 使用した場合

function sai
  sai = INT(6 * RND) + 1
end function

CLS
DIM C(6)
RANDOMIZE TIMER
FOR i = 1 TO 100
  PRINT sai
NEXT

CLS
DIM C(6)
RANDOMIZE TIMER
FOR i = 1 TO 100
  x = sai
  C(x) = C(x) + 1
NEXT
FOR i = 1 TO 6
  PRINT i ; ":" ; C(i)
NEXT

CLS
DIM C(12)
RANDOMIZE TIMER
FOR i = 1 TO 100
  x = sai
  y = sai
  C(x + y) = C(x + y) + 1
NEXT
FOR i = 2 TO 12
  PRINT i ; ":" ; C(i)
NEXT