Clase 5 Ejercicio 4.2.5

/*Completar las operaciones
llegoALaBase y PintarCeldaDe.
La funcion llegoALaBase verifica si el cabezal
se encuentra en la base de la columna, i.e. en
la celda que se encuentra mas al Sur
(o sea, no puede moverse mas hacia el sur).
El procedimiento PintarCeldaDe simplemente pone
una o mas bolitas del color indicado.*/


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 Main(){
PintarColumna(Rojo)
}