Clase 4 Ejercicio 3.2.10

/*
Escribir un procedimiento ArribaAbajo que tome un parametro
de tipo Direccion, y ponga una bolita roja en la celda contigua a la inicial
en la direccion indicada, y una bolita verde en la celda contigua a la inicial,
pero en la direccion opuesta a la indicada.
Por ejemplo, el resultado de llamar al procedimiento
ArribaAbajo(Norte) deberıa ser como el mostrado en el grafico G.3.6.
Observar que la celda actual al terminar debe ser la misma que la celda inicial.
*/
procedure PrepararTablero()
{
VaciarTablero()
IrAlOrigen()
Mover(Este)
Mover(Este)
Mover(Norte)
Mover(Norte)
}

procedure ArribaAbajo(dir){
Mover(dir)
Poner(Rojo)
Mover(-dir)
Mover(-dir)
Poner(Verde)
}

procedure Main(){
PrepararTablero()
ArribaAbajo(Norte)

}