総合問題

問題Ｆ２

演習問題Ｂの問題４の円を描くプログラムを、辺の長さと線の色番号を与えて描くSubプロシージャに書き換えなさい。

' 辺の長さlength と色番号cの値が渡されます
Sub Maru(length, c)
  Dim i
  
  For i = 1 To 360
    TGMoveL length, QBColor(c)
    TGTurn 1
  Next i
  
End Sub

Sub Main()
  Dim length, c

  InitializeTurtleGraphics
  c = 1    '　青色
  length = 2

  Maru length, c    '　または　Call Maru(length, c)
  
End Sub