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