Meta: Encuentra la longitud de los lados de un polígono dibujado alrededor de un punto central.
Vocabulario: set, int
to polygon
t1, pu
t2, pu
setc whatcolor
setpensize howthick
repeat 1 + #sides [
t1, fd howbig
t2,
setlength_of_side int distance "t1
wait 10
setpos t1's "pos
if touching? "t2 "t1 [pd]
t1, bk howbig rt 360 / #sides
]
end
to reset
everyone [home]
cg
end
Notas - Crea una caja de texto y nómbrala length_of_side. (El nombre de la caja de texto debe ser una palabra solamente). Si deseas, usa la opción Text del menú, para cambiar el tipo y tamaño de letra.
- En el procedimiento polygon modificado, Setlength_of_side significa: Haz que el contenido de la caja de texto llamada length_of_side sea la siguiente entrada.
- Int distance "t1 significa: "Mide la distancia desde la tortuga activa hasta t1 y reporta sólo la parte entera del número (sin incluir la parte decimal)."
- Ahora, mientras t2 se alista para moverse a cada nueva posición de t1, mide y reporta la distancia. Puedes comparar los números reportados en la caja de texto con los números del control howbig.
¿Qué pasa si?
¿Qué pasa si eliminas la palabra int ?
Desafío
Compara el número de la caja de texto con el número en el control howbig (la medida desde el centro hasta el vértice). Intenta con diferentes polígonos. ¿Para qué polígonos la distancia de cada lado es menor que howbig? ¿Para qué polígonos la distancia de cada lado es mayor que howbig? ¿Para qué polígonos la distancia de cada lado es igual a howbig?
¿Cuál es la longitud de lado máxima para un triángulo? ¿cuadrado? ¿pentágono?
|
