iniciar-programa


define-nueva-instruccion compara(m) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
compara(sucede(m));
fin
sino inicio
gira-izquierda;
gira-izquierda;
mientras frente-libre hacer
avanza;
gira-izquierda;
avanza;
gira-izquierda;
mientras no junto-a-zumbador hacer
avanza;
si junto-a-zumbador entonces inicio
mientras orientado-al-norte hacer inicio
si frente-libre entonces inicio
avanza;
fin
sino inicio
repetir 2 veces inicio
gira-izquierda;
fin;
mientras frente-libre hacer
avanza;
repetir 3 veces
gira-izquierda;
avanza;
repetir 3 veces
gira-izquierda;
mientras no junto-a-zumbador hacer
avanza;
compara(0);
fin;
si no junto-a-zumbador entonces inicio
repetir 2 veces
gira-izquierda;
mientras frente-libre hacer
avanza;
repetir 3 veces
gira-izquierda;
avanza;
repetir 3 veces
gira-izquierda;
mientras frente-libre y no junto-a-zumbador hacer
avanza;
compara(0);
fin;
repetir m veces inicio
si junto-a-zumbador y orientado-al-norte entonces inicio
coge-zumbador;
fin
sino inicio
si orientado-al-norte entonces
gira-izquierda;
deja-zumbador;
fin;
fin;
si junto-a-zumbador y orientado-al-norte entonces inicio
repetir m veces inicio
deja-zumbador;
fin;
fin;
si orientado-al-oeste entonces inicio
repetir m veces inicio
si junto-a-zumbador y orientado-al-oeste entonces inicio
coge-zumbador;
fin
sino inicio
si orientado-al-oeste entonces
repetir 3 veces
gira-izquierda;
deja-zumbador;
fin;
fin;
fin;
si no junto-a-zumbador entonces inicio
repetir 2 veces
gira-izquierda;
mientras frente-libre hacer
avanza;
gira-izquierda;
avanza;
repetir m veces
deja-zumbador;
apagate;
fin;
fin;
fin;
fin;
fin;
define-prototipo-instruccion multiplica(n);

define-nueva-instruccion multiplicas(n) como inicio
si frente-libre y junto-a-zumbador entonces inicio
avanza;
multiplicas(n);
repetir n veces inicio
deja-zumbador;
fin;
fin
sino inicio
repetir 3 veces
gira-izquierda;
avanza;
avanza;
si junto-a-zumbador entonces inicio
repetir 3 veces
gira-izquierda;
mientras frente-libre hacer
avanza;
repetir 3 veces
gira-izquierda;
avanza;
repetir 3 veces
gira-izquierda;
si junto-a-zumbador entonces inicio
multiplica(0);
fin
sino inicio
gira-izquierda;
avanza;
avanza;
repetir 3 veces
gira-izquierda;
compara(0);
fin;
fin
sino inicio
repetir 2 veces
gira-izquierda;
avanza;
avanza;
repetir 3 veces
gira-izquierda;
sal-de-instruccion;
fin;
si frente-bloqueado y junto-a-zumbador entonces inicio
gira-izquierda;
gira-izquierda;
mientras frente-libre hacer
avanza;
gira-izquierda;
avanza;
gira-izquierda;
si junto-a-zumbador entonces inicio
multiplica(0);
fin
sino inicio
gira-izquierda;
avanza;
avanza;
repetir 3 veces inicio
gira-izquierda;
fin;
compara(0);
fin;
fin;
fin;
fin;
define-nueva-instruccion multiplica(n) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
multiplica(sucede(n));
fin
sino inicio
repetir n veces
deja-zumbador;
multiplicas(n);
gira-izquierda;
gira-izquierda;
mientras frente-libre hacer
avanza;
gira-izquierda;
gira-izquierda;
multiplica(0);
fin;
fin;
inicia-ejecucion
    mientras no orientado-al-oeste hacer
    gira-izquierda;
    mientras frente-libre hacer
    avanza;
    gira-izquierda;
    mientras frente-libre hacer
    avanza;
    gira-izquierda;
    gira-izquierda;
    repetir 40 veces
    avanza;
    repetir 3 veces
    gira-izquierda;
    avanza;
    avanza;
    deja-zumbador;
    avanza;
    deja-zumbador;
    repetir 3 veces
    gira-izquierda;
    mientras frente-libre hacer
    avanza;
    repetir 3 veces
    gira-izquierda;
    avanza;
    avanza;
    avanza;
    repetir 3 veces
    gira-izquierdA;
    multiplica(0);

        apagate;
    termina-ejecucion
finalizar-programa
