Vai al contenuto
Tag:

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

Lascia un commento

Il tuo indirizzo email non sarà pubblicato. I campi obbligatori sono contrassegnati *

Questo sito usa Akismet per ridurre lo spam. Scopri come i tuoi dati vengono elaborati.