Poligono regolare con 5 lati di lunghezza 150
|
1 2 3 4 |
For lato=1 To 5 Turtle.Move(150) Turtle.Turn(72) EndFor |
Continua…
|
1 2 3 4 5 6 7 8 9 10 11 12 |
GraphicsWindow.Height=GraphicsWindow.Width Turtle.Y=GraphicsWindow.Height/2 Turtle.Speed=10 QUANTI=15 ANGOLO=360/QUANTI For pentagono=1 To QUANTI For lato=1 To 5 Turtle.Move(150) Turtle.Turn(72) EndFor Turtle.Turn(ANGOLO) EndFor |