Triangoli

Disegna un triangolo (equilatero)

Turtle.Speed=10

For lato=1 To 3
   Turtle.Move(150)
   Turtle.Turn(120)
EndFor

Disegna due triangoli

Turtle.Speed=10

For lato=1 To 3
   Turtle.Move(150)
   Turtle.Turn(120)
EndFor

Turtle.Turn(180)

For lato=1 To 3
   Turtle.Move(150)
   Turtle.Turn(120)
EndFor

Disegna tre triangoli

Turtle.Speed=10

QUANTI=3
ANGOLO=360/QUANTI

For triangolo=1 To QUANTI
   For lato=1 To 3
      Turtle.Move(150)
      Turtle.Turn(120)
   EndFor

   Turtle.Turn(ANGOLO)
EndFor

Continua…

Cambia il valore della variabile QUANTI per disegnare 4, 5, 6, … triangoli

…