miércoles, 14 de octubre de 1998

Activando diez tortugas para hacerlas avanzar en fila india. Un ejercicio de programación en WinLogo (LOGO)

; ---------------------------------------------------------
; Deu tortugues avançant en fila índia
;
;    © Joan Aranes Clua, 1998
                CC BY 4.0
; ---------------------------------------------------------
procediment Posa.fila
fes.actives [1 2 3 4 5 6 7 8 9 10] no.llapis
per.a.cada [ fes.forma 116 posa't llista (200 - actives * 30) 0]
fi

procediment Avança.fila
per.a.cada [si coor.x < -200 [acaba]]
per.a.cada 
  [
    orienta't 270 
    av 10 
    fes.forma 117 
    toca 700 20 
    espera 20 av 10 
    fes.forma 116 
    espera 20 
  ]
  Avança.fila
fi

procediment Fila.índia ;procediment principal
  Posa.fila
  Avança.fila
fi

; ---------------------------------------------------------
; exemple d'ús
% id
% Fila.índia
% restaura.tortuga
% id


No hay comentarios:

Publicar un comentario

Gracias por tus comentarios