繰り返し　－　For.. Next の問題

問題４

For.. Nextを使って、多角形として円を近似し描きなさい。

ヒント　辺の長さを２とし、３６０角形としてプログラムを作成しなさい。

解答例

Sub Polygon360()    ' 多角形で円を近似する
  Dim angle, length
  Dim i, n 
  n = 360
  angle = 360 / n
  length = 2
  InitializeTurtleGraphics
  For i = 1 To n
    TGMoveL length
    TGTurn angle
  Next i
End Sub

問題ページへ戻る