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.
|