Clase 5 Ejercicio 4.2.6

/* Completar el codigo anterior. Para ello, debe escribir la funcion
llegoALaUltimaColumna,
que establece si el cabezal se encuentra en la columna mas al Oeste
(o sea, no puede moverse mas hacia el oeste)
y tambien el procedimiento
CabezalALaPrimeraColumna
que lleva el cabezal a la primera columna del tablero(similar al procedimiento CabezalATopeDeLaColumna). Pag 125*/

function llegoALaBase(){
return (puedeMover(Sur)==False)
}

procedure PintarCeldaDe(color){
Poner (color)
}

procedure CabezalAlTopeDeLaColumna(){
while (puedeMover(Norte)==True)
{Mover(Norte)}
}

procedure PintarColumna(color){
CabezalAlTopeDeLaColumna()
while (not llegoALaBase())

{
PintarCeldaDe(color)
Mover(Sur)
}

PintarCeldaDe(color)
}

/*********************************************/

procedure CabezalALaPrimeraColumna()
{
while (puedeMover(Este)==True)
{Mover(Este)}
}

function llegoALaUltimaColumna()
{
return (puedeMover(Oeste)==False)
}

procedure PintarTablero(color)
{
CabezalALaPrimeraColumna()
while (not llegoALaUltimaColumna())
{
PintarColumna(color)
Mover(Oeste)
}
PintarColumna(color)
}

procedure Main(){
PintarTablero(Rojo)
}