Pentagono
Poligono regolare con 5 lati di lunghezza 150 For lato=1 To 5 Turtle.Move(150) Turtle.Turn(72) EndFor Continua… 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)… Leggi tutto »Pentagono