Clase 4 Ejercicio 3.2.14

/*Supongamos que una celda representa un dıgito de un indicador de
kilometraje, para lo cual utiliza bolitas negras.
Escribir un procedimiento IncrementarDigCuentaKm(),
que incremente en uno el kilometraje indicado por ese dıgito (y solo ese).
Tener en cuenta que el indicador, al llegar al lımite de
9 debe volver a 0, pues es un dıgito.
Considerar el uso de una alternativa para
detectar las dos situaciones posibles (¿cuales son?),
y la reutilizacion de la condicion del ejercicio 3.2.11
y del procedimiento del ejercicio 3.2.12.*/
/* que el num<=9 o num>9*/

/* 3.2.11 me dice si la cantidad de bolitas esta entre 0 y 9,
me devuelve False ò True*/
function verificaCantidadBolitas()
{
return( nroBolitas(Negro)<9)
}
/* 3.2.13 me permite sacar todas las bolitas negras
del casillero*/
procedure SacarN(cant, color){
repeatWith i in 1..nroBolitas(Negro)
{ Sacar(color) }
}


procedure SacarTodasLasDeColor(color){
SacarN(nroBolitas(Negro), color)
}
/*3.2.14*/

procedure IncrementarDigCuentaKm(){
if (verificaCantidadBolitas()==True){
Poner(Negro)
}
else{
SacarTodasLasDeColor(Negro)
Poner(Negro)
}
}
procedure Main(){
IncrementarDigCuentaKm()
}