Clase 4 Ejercicio 3.2.15

/*Escribir un procedimiento QuitarHastaTresFlores que,
suponiendo que en la celda actual hay
entre cero y tres flores representadas
cada una por una bolita roja
(pero no se sabe cuantas exactamente),
las elimine de la celda.
El procedimiento debe describir una operacion total.
Utilizar nombres adecuados para la subtarea
de quitar una flor (pero no puede hacerse aun con la
condicion).*/

/*Verifico la cantidad de flores que hay en el casillero*/
function verificaCantidadFlores()
{
return( nroBolitas(Rojo))
}
/* Quito la cantidad de flores que hay en el casillero
pero la operacion es total, que pasa si hubiera 5 flores?*/
procedure SacarHastaN(color, cantidad){
repeatWith indice in 1..(verificaCantidadFlores())
{Sacar(Rojo)}
}
/*Entonces utilizo la alternativa if-then, para
evitar la parcialidad de la operacion*/

procedure QuitarHastaTresFlores(){
if (verificaCantidadFlores()<=3)
{SacarHastaN(Rojo, verificaCantidadFlores())}
}
procedure Main(){
QuitarHastaTresFlores()

}