zyberx

Codigos Karel ----------------------------------------------------------------------------------------------------------------------------------------------------------------------TAche iniciar-programa define-nueva-instruccion gira-derecha como inicio repetir 3 veces gira-izquierda; fin; define-nueva-instruccion contar(n) como inicio si frente-libre entonces inicio avanza; contar(sucede(n)); fin sino inicio mientras no-orientado-al-oeste hacer gira-izquierda; mientras frente-libre hacer avanza; gira-izquierda; repetir n veces inicio deja-zumbador; si frente-libre entonces avanza; gira-izquierda; si frente-libre entonces avanza; gira-derecha; fin; mientras no-orientado-al-oeste hacer gira-izquierda; mientras frente-libre hacer avanza; mientras no-orientado-al-norte hacer gira-izquierda; repetir n veces inicio si no-junto-a-zumbador entonces deja-zumbador; gira-derecha; si frente-libre entonces avanza; gira-izquierda; si frente-libre entonces avanza; fin; fin; fin; inicia-ejecucion mientras no-orientado-al-norte hacer gira-izquierda; mientras frente-libre hacer avanza; gira-izquierda; mientras frente-libre hacer avanza; mientras no orientado-al-este hacer gira-izquierda; contar(1); apagate; termina-ejecucion finalizar-programa ----------------------------------------------------------------------------------------------------------------------------------------------------------------------Canalees Del LAgo iniciar-programa inicia-ejecucion mientras no-junto-a-zumbador hacer inicio mientras frente-libre hacer avanza; si derecha-bloqueada entonces gira-izquierda sino repetir 3 veces gira-izquierda; fin; apagate; termina-ejecucion finalizar-programa ---------------------------------------------------------------------------------------------------------------------------------------------------------------------- Numeros De un Lado a Otro niciar-programa define-nueva-instruccion gira-derecha como inicio repetir 3 veces gira-izquierda; fin; define-nueva-instruccion recoge(n) como inicio repetir n veces si frente-libre entonces avanza; si junto-a-zumbador entonces inicio mientras junto-a-zumbador hacer coge-zumbador; mientras frente-libre hacer avanza; gira-izquierda; mientras derecha-bloqueada hacer avanza; gira-derecha; avanza; gira-derecha; mientras frente-libre hacer avanza; gira-izquierda; mientras junto-a-zumbador hacer avanza; mientras algun-zumbador-en-la-mochila hacer deja-zumbador; mientras no-orientado-al-oeste hacer gira-izquierda; mientras frente-libre hacer avanza; gira-derecha; mientras izquierda-bloqueada hacer avanza; gira-izquierda; avanza; gira-izquierda; mientras frente-libre hacer avanza; gira-derecha; mientras frente-libre hacer avanza; mientras no-orientado-al-este hacer gira-izquierda; recoge(sucede(n)); fin sino apagate; fin; inicia-ejecucion mientras no-orientado-al-este hacer gira-izquierda; recoge(1); apagate; termina-ejecucion finalizar-programa ----------------------------------------------------------------------------------------------------------------------------------------------------------------------Primadies Medias al Revez iniciar-programa define-nueva-instruccion revez(n) como inicio repetir n veces inicio deja-zumbador; si frente-libre entonces avanza; fin; gira-izquierda; gira-izquierda; repetir n veces si frente-libre entonces avanza; gira-izquierda; si frente-libre entonces avanza; gira-izquierda; si algun-zumbador-en-la-mochila entonces revez(precede(n)); fin; define-nueva-instruccion piramide(n) como inicio repetir n veces deja-zumbador; si algun-zumbador-en-la-mochila entonces piramide(sucede(n)) sino inicio mientras junto-a-zumbador hacer coge-zumbador; revez(n); fin; fin; inicia-ejecucion si algun-zumbador-en-la-mochila entonces piramide(1); apagate; termina-ejecucion finalizar-programa ----------------------------------------------------------------------------------------------------------------------------------------------------------------------Piramide Media iniciar-programa define-nueva-instruccion piramide(n) como inicio repetir n veces inicio deja-zumbador; si frente-libre entonces avanza; fin; gira-izquierda; gira-izquierda; repetir n veces si frente-libre entonces avanza; gira-izquierda; si frente-libre entonces avanza; gira-izquierda; si algun-zumbador-en-la-mochila entonces piramide(sucede(n)); fin; inicia-ejecucion si algun-zumbador-en-la-mochila entonces piramide(1); apagate; termina-ejecucion finalizar-programa ---------------------------------------------------------------------------------------------------------------------------------------------------------------------- Paredes niciar-programa define-nueva-instruccion coge-columna como inicio mientras junto-a-zumbador hacer inicio mientras junto-a-zumbador hacer coge-zumbador; avanza; fin; gira-izquierda; gira-izquierda; mientras frente-libre hacer avanza; gira-izquierda; fin; define-nueva-instruccion construye-pared como inicio mientras frente-libre hacer inicio deja-zumbador; avanza; fin; deja-zumbador; mientras no-orientado-al-oeste hacer gira-izquierda; mientras frente-libre hacer avanza; gira-izquierda; gira-izquierda; gira-izquierda; avanza; mientras no-orientado-al-este hacer gira-izquierda; fin; inicia-ejecucion mientras no-orientado-al-norte hacer gira-izquierda; mientras derecha-libre hacer inicio coge-columna; avanza; gira-izquierda; fin; coge-columna; mientras no-orientado-al-oeste hacer gira-izquierda; mientras frente-libre hacer avanza; mientras no-orientado-al-este hacer gira-izquierda; mientras algun-zumbador-en-la-mochila hacer construye-pared; apagate; termina-ejecucion finalizar-programa ---------------------------------------------------------------------------------------------------------------------------------------------------------------------- Amontonar Zumbadores iniciar-programa define-nueva-instruccion coge-columna como inicio mientras junto-a-zumbador hacer inicio mientras junto-a-zumbador hacer coge-zumbador; avanza; fin; gira-izquierda; gira-izquierda; mientras frente-libre hacer avanza; mientras algun-zumbador-en-la-mochila hacer deja-zumbador; gira-izquierda; avanza; gira-izquierda; fin; inicia-ejecucion mientras junto-a-zumbador hacer coge-columna; apagate; termina-ejecucion finalizar-programa Pronto Les Trere mas T! Saludos