Clase 4 Ejercicio 3.2.12

/*Escribir un procedimiento SacarTodasLasDeColor que, dado
un parametro color, elimina todas las bolitas del color
indicado de la celda actual.
Para realizarlo, considere utilizar el procedimiento SacarN
del ejercicio 3.1.2, parte 3, y combinarlo con alguna
de las expresiones recien presentadas*/

procedure PrepararTablero(){
VaciarTablero()
IrAlOrigen()
}

/*Empieza 1*/

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

/*Empieza 3*/
procedure SacarN(cant, color){
repeatWith i in 1..cant
{ Sacar(color) }
}


procedure SacarTodasLasDeColor(color){
SacarN(nroBolitas(color), color)
}

procedure Main(){
PrepararTablero()
PonerN(17, Azul)
SacarTodasLasDeColor(Azul)
}