総合問題

問題F1

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

解答例

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

主プログラムの例

Sub Main() 
  Dim length, c

  InitializeTurtleGraphics
  c = 4    '　赤色
  length = 100

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

問題ページへ戻る