

Rompecabezas m�vil:
Consejo LogoTodas las tortugas de este
rompecabezas han sido programadas con el siguiente
procedimiento:
para desplazar
si (distancia "t1) > 40 [alto]
cambiar qui�n "t1
fin
La primitiva qui�n es un reportero que informa
el nombre de la tortuga sobre la cual Ud. ha hecho clic.
El procedimiento desplazar verifica si esa tortuga
est� lo suficientemente cerca del cuadrado azul para
realizar el cambio (el cuadrado azul es un tortuga cuyo
nombre es t1).
para cambiar :yo :t�
asigna [mi-pos pide :yo [pos]
tu-pos pide :t� [pos]]
pide :yo [fpos :tu-pos]
pide :t� [fpos :mi-pos]
fin
Este procedimiento guarda las posiciones de las
tortugas en variables locales y luego realiza el cambio.



|