条件付き繰り返し － Do ... Loop の問題
問題２
Do .. Loop を用いて、下の図のような螺旋模様を描きなさい。
ヒント： 回転角を直角より少なめにし、向きを変える度に線の長さを少しずつ長くしていきます。
解答例
Sub Spiral_04()
Dim length, angle, d
length = 4 ' 線の長さの初期値
angle = 89 ' 回転角
d = 4 ' 線の長さの変化分
InitializeTurtleGraphics
Do While length > 400 ' 線の長さが 400 より短い間繰り返す
TGMoveL length
TGTurn angle
length = length + d ' 線の長さを d だけ長くする
Loop
End Sub
回転角を88°、87°にすると次のような図になります。
