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