プロシージャの呼び出しの問題

問題１

次のプログラムを、辺の長さを与えて三角形を描くプロシージャの呼び出しに書き換えなさい。

Sub Triangle03()
  Dim length, i
  length = 100
  InitializeTurtleGraphics
  
  For i = 1 To 3
    TGMoveL length
    TGTurn 120
  Next i
  
End Sub



解答例

Sub DrawTriangle()
  Dim length
  InitializeTurtleGraphics
  length = 100
  
  Triangle length
End Sub

Sub Triangle(length)
  Dim i
  
  For i = 1 To 3
    TGMoveL length
    TGTurn 120 
  Next i
  
End Sub



問題ページへ戻る