Clase 6 Ejemplo G.4.4

/*PROPOSITO: Copiar las bolitas verdes de la celda actual
en la celda al Norte
PRECONDICION:
* debe haber una celda al Norte
SUPOSICION:
* la celda al Norte se encuentra vacia*/

procedure PonerN(color, cantVerdes){
repeatWith i in 1..cantVerdes
{Poner(Verde)}
}

procedure CopiarVerdesAlNorte(){
cantVerdes := nroBolitas(Verde) -- Recuerda el nro de bolitas de la celda inicial

Mover(Norte) -- Se mueve al Norte

PonerN(Verde, cantVerdes)-- Pone en la nueva celda la cantidad recordada

Mover(Sur)
}

procedure Main(){
CopiarVerdesAlNorte()
}