LCSI
 
Biblioteca de Proyectos
Rompecabezas móvil: Consejo Logo

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