Disegna un triangolo (equilatero)
1 2 3 4 5 |
Turtle.Speed=10 For lato=1 To 3 Turtle.Move(150) Turtle.Turn(120) EndFor |
Disegna due triangoli
1 2 3 4 5 6 7 8 9 10 |
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
1 2 3 4 5 6 7 8 9 10 |
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 |
Cambia il valore della variabile QUANTI per disegnare 4, 5, 6, … triangoli
…