Clase 2 Ejercicio 2.4.14

/*Supongamos que cada celda del tablero representa una seccion del cantero de 1metro de longitud.
Ademas, representaremos flores con combinaciones de bolitas.
Las rosas se representan con 1 bolita de color rojo, las
violetas se representan con 1 bolita de color azul, y los
girasoles se representan con 1 bolita de color negro.
Se desea armar un cantero de flores de 3 metros de longitud,
donde cada metro del cantero posee 5 rosas, 8 violetas
y 3 girasoles.
Escribir el procedimiento ArmarCantero que cumpla con esta
representacion.*/
procedure PrepararTablero()
{
VaciarTablero()
IrAlOrigen()
}

procedure Plantar5Rosas()
{
	Poner(Rojo)
	Poner(Rojo)
	Poner(Rojo)
	Poner(Rojo)
	Poner(Rojo)
}
procedure Plantar8Violetas()
{
	Poner(Azul)
	Poner(Azul)
	Poner(Azul)
	Poner(Azul)
	Poner(Azul)
	Poner(Azul)
	Poner(Azul)
	Poner(Azul)
}
procedure Plantar3Girasoles()
{
	Poner(Negro)
	Poner(Negro)
	Poner(Negro)
}
procedure ArmarCantero1()
{
	Plantar5Rosas()
	Plantar8Violetas()
	Plantar3Girasoles()
}
procedure ArmarCantero()
{
	PrepararTablero()
        ArmarCantero1()
	Mover(Norte)
	ArmarCantero1()
	Mover(Norte)
	ArmarCantero1()
}
procedure Main()
{
	ArmarCantero()
}