Clase 4 Ejercicio 3.2.6

/*Escribir un procedimiento MostrarNumero que toma un parametro
de tipo numero, y asumiendo que el mismo es menor que 100,
lo muestra en el tablero en dos celdas contiguas
utilizando bolitas negras. Para mostrar el numero,
la celda de la derecha debe contener tantas bolitas negras
como unidades esten representadas por el numero,
y la de la izquierda debe contener tantas bolitas negras
como decenas esten representadas por el numero.*/

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

procedure PonerX(color, veces) {
repeatWith indice in 1..veces {
Poner(color)
}
}

procedure MostrarNumero(color, cant){
PonerX(Negro,cant div 10)
Mover(Este)
PonerX(Negro, cant mod 10)
}



/*Empieza Main*/
procedure Main(){
PrepararTablero()
MostrarNumero(Negro, 97)
}