Clase 2 Ejercicio 2.4.15

/*Modificar el programa del ejercicio 2.4.14 para que ahora las flores se representen
utilizando el siguiente esquema.
Las rosas se representan con 3 bolitas de color rojo y 1 de color negro,
las violetas se representan con 2 bolitas de color azul y 1 de color rojo,
y los girasoles se representan con 3 bolitas de color negro y 2 de color verde.*/
procedure PrepararTablero()
{
VaciarTablero()
IrAlOrigen()
}

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