乱数を利用した問題

問題２

０から１の乱数を発生させ、値に応じて左右に向きを変えて歩く様子をシミュレーションしなさい。

例　0.5以下の場合　右向き　TGTurn -angle、0.5以上の場合　左向き　TGTurn angle　のように指定する。

ヒント：　　乱数 　　　タートルグラフィックス

解答例

Sub Drunken_Walk()   ' 乱数　－　千鳥歩き
  Dim angle, length, i, s
  angle = 90
  length = 20
  Randomize   ' 乱数の初期化
  InitializeTurtleGraphics
  TGTurn angle / 2
  TGMoveL length / 2     ' 左に半歩進む
  For i = 1 To 30
    s = Rnd(1)
    If s < 0.5 Then
      TGTurn -angle
    Else
      TGTurn angle
    End If
    TGMoveL length
  Next i
End Sub

問題ページへ戻る