総合問題

問題F４

問題1の星形を描くSubプロシージャを利用して、ランダムに色を変えながら別々な場所に繰り返し星形を描くプログラムを作成しなさい。

書き始めの位置を変えるには、座標(x, y)を乱数で決め、TGSetPoint命令で移動します。

解答例

Sub RandomStars()
  Dim length, c
  Dim i, n
  Dim x, y

  InitializeTurtleGraphics
  randomize    ' 乱数列の初期化
  length = 80
  n = 20    ' 繰り返し回数
  
  For i = 1 To n
    x = Rnd(1) * 600 + 100
    y = Rnd(1) * 600 - 300
    TGSetPoint x, y 
    
    c = Int(Rnd(1) * 15) + 1

    DrawStar length, c
  Next i
  
End Sub

問題ページへ戻る