プロシージャの呼び出し

問題２

問題１のプログラムを、辺の数と辺の長さを与えて多角形を描く副プロシージャの呼び出しに書き換えなさい。

Sub DrawPolygon()
  Dim n, length
  n = 3 ' 三角形を描きます
  length = 200    ' 辺の長さ
  InitializeTurtleGraphics　' Turtleグラフィックスの初期設定

  Polygon n, length 　' 多角形を描く副プログラムを呼び出します

End Sub

Sub Polygon(n, length)    ' 辺の数　n と辺の長さ length の値が渡されます
  ............
End Sub


解答例

Sub Polygon(n, length)    ' 辺の数　n と辺の長さ length の値が渡されます
  Dim  i
  For i = 1 To n
    TGMoveL length
    TGTurn 360 / n
  Next i
End Sub


問題ページへ戻る