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.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
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) |