Vai al contenuto

Segue rettangolo casuale

2012-01: Easy 2

Write a program to place a randomly sized and positioned rectangle on the GraphicsWindow and then get the Turtle to draw round the rectangle’s perimeter.

Scrivi un programma che disegna, nella finestra grafica, un rettangolo con dimensioni e posizione casuali e poi la tartaruga disegna (percorre) il perimetro del rettangolo.


Soluzione

Disegna gli assi e genera due vertici opposti nel 2° e nel 4° quadrante.
Posiziona la tartaruga nel primo vertice e poi percorre il rettangolo in senso orario.

w =GraphicsWindow.Width
h =GraphicsWindow.Height
w2=w/2
h2=h/2

GraphicsWindow.PenColor="blue"     ' Disegna gli assi
GraphicsWindow.PenWidth=1
GraphicsWindow.DrawLine(w2,0,w2,h)
GraphicsWindow.DrawLine(0,h2,w,h2)

x1=Math.GetRandomNumber(w2)        ' In alto a sinistra
y1=Math.GetRandomNumber(h2)
x2=Math.GetRandomNumber(w2)+w2     ' In basso a destra
y2=Math.GetRandomNumber(h2)+h2
GraphicsWindow.PenColor="red"      ' Disegna il rettangolo
GraphicsWindow.PenWidth=5
GraphicsWindow.DrawRectangle(x1,y1,x2-x1,y2-y1)

Turtle.X=x1                        ' La tartaruga in alto a sinistra
Turtle.Y=y1
Turtle.Speed=8
Turtle.MoveTo(x2,y1)
Turtle.MoveTo(x2,y2)
Turtle.MoveTo(x1,y2)
'Turtle.TurnRight()                ' Prova!
Turtle.MoveTo(x1,y1)

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.