FreeBASIC Rnd

' CheckAccuracyOfRandomNumbers


'' [最初, 最後]、つまり {最初 <= x <= 最後} の範囲の整数乱数を発生させる関数
Function RandomNumberInteger(Initial As Integer, Last As Integer) As Integer
   'Rnd 関数は、0 以上 1 未満の値を返します。
   RandomNumberInteger = Int(Rnd * (Last - Initial + 1)) + Initial
   'Int は、number の小数部分を取り除いて、その結果得られる整数値を返します。
   'このため Int を入れないと、最後より一つ大きい数が発生してしまいます。
End Function

Function RandomNumberIntegerNG(Initial As Integer, Last As Integer) As Integer
   'Rnd 関数は、0 以上 1 未満の値を返します。
   'Int を入れないと、最後より一つ大きい数が発生してしまいます。
   RandomNumberIntegerNG = Rnd * (Last - Initial + 1) + Initial
End Function



Dim Initial As Integer
Dim Last As Integer
Dim Accumulator(20, 2) As Integer
Dim Trials As Integer
Dim Number As Integer
Dim Counter As Integer
Dim Row As Integer
Dim Column As Integer


Initial = 1 ' 11
Last = 6 ' 20

For Trials = 1 To 100000
   Number = RandomNumberInteger(Initial, Last)
   Accumulator(Number - Initial + 1, 1) = Accumulator(Number - Initial + 1, 1) + 1
   Number = RandomNumberIntegerNG(Initial, Last)
   Accumulator(Number - Initial + 1, 2) = Accumulator(Number - Initial + 1, 2) + 1
Next Trials

For Row = 0 To 20
   Print Row,
   For Column = 1 To 2
      Print Accumulator(Row, Column) ,
   Next Column   
   Print 
Next Row

Sleep

'Emulate dice
'2020/04/29
'Rnd 関数を用いて偏りのないサイコロを実現する
'サイコロの目の数が 6 でない変則を考慮して結果を検証する

Function RndDice(me As Integer) As Integer
   '' 乱数発生器に種をまいて、毎回、同じ系列にならないようにします。
   Randomize
   RndDice = Int(Rnd * me) + 1
End Function

Dim MeKazu As Integer

Input "サイコロの目の数を入力して下さい: ", MeKazu

Dim Dice(MeKazu) As Integer
Dim Counter As Integer
Dim Roll As Integer

For Counter = 1 To MeKazu * 10000
   Roll = RndDice(MeKazu)
   Dice(Roll) = Dice(Roll) + 1
Next

For Counter = 1 To MeKazu
   Print Using "###  ##,###"; Counter; Dice(Counter)
Next
Print
Print "何かキー入力で終了"
Sleep

'//------------------------------------//
'作成 2019/07/06
'プログラミングの考え方：さいころを 2つ使って足し算の問題を自動生成してみる
'注意: このソースは、ユニコードで、表示・編集して下さい。
'//------------------------------------//

#Include Once "xfont.bi"

Dim A As Integer
Dim B As Integer
Dim S As Integer
Dim Dice1 As Any Ptr
Dim Dice2 As Any Ptr
Dim FileName1 As String
Dim FileName2 As String
Dim KeyInput As Integer

Dim x As Integer
Dim y As Integer
Dim Japanese As WString * 20
Dim Shared As xfont.interface font
font.loadfont("MsGothic.xf", 1) 'FontIndex 1 に、登録します
font.fontindex = 1 'フォントを使います


Print "サイコロを使って、足し算の問題を自動生成します。"
Print "何かキー入力で回答を表示します。そして次の問題を生成してます。"
Print "問題生成のくり返えしは、[Esc]キーで抜けます。"
Print

Screen 18, 32

Dice1 = ImageCreate(170,170)  '画像のために、記憶装置を、割り当てて、初期化します。
Dice2 = ImageCreate(170,170)  '画像のために、記憶装置を、割り当てて、初期化します。

Randomize

Do
   Cls
   ScreenRes 640, 480, 32
   A = Rnd * 6 + 0.5
   B = Rnd * 6 + 0.5
   S = A+B
   
   FileName1 = "dice" & Str(A) & ".bmp"
   FileName2 = "dice" & Str(B) & ".bmp"
   BLoad FileName1, Dice1
   BLoad FileName2, Dice2
   
   Put (70,200),Dice1
   Put (360,200),Dice2
   
   Print
   Print
   Print
   Print
   Print Using "  ## + ## = "; A; B;
   Sleep
   
   Japanese ="　" & Str(S) & "　　　[Esc]キーで抜ける"
   x = 150
   y = 100
   font.drawstring ( , Japanese , x, y,3,3) '文字の大きさ 3倍 size
   
   print
   KeyInput = GetKey
   Sleep(2000)

Loop Until KeyInput = 27 ' [27]=[Esc] キー入力するまで、繰返す

ImageDestroy(Dice1)     '画像のための記憶装置を破棄して、割り当てを解除します。
ImageDestroy(Dice2)

'How To use Rnd And Randomize Timer
'Post by Triopstor ≫ May 01, 2023 6:42
'https://www.freebasic.net/forum/viewtopic.php?p=298358#p298358

Dim Shared As LongInt X1,X2,X3,X4
Dim Shared As Double N1

'プログラムの開始時に、RANDOMIZE TIMER を 1 回だけ、
'最初の FOR ループの前に使います。

Randomize Timer

For X4=1 To 20
   X2=0:X3=0
   
   For X1=1 To 1000000
       N1 = Int((Rnd(1) * 37))+1
       If N1<19 Then
          X2=X2+1
       Else
          X3=X3+1
       End If   
   Next X1
   
   Print "X2=";X2;" X3=";X3
Next X4

Sleep