[ Foro de Pascal ]

Retornar puntaje

El puntaje de un tablero es la suma de los puntajes de cada celda. A su vez el puntaje de una celda se calcula como sigue:
Celdas rojas, azules y grises tienen puntaje 0.
Una celda blanca con valor (2?×3) tendrá puntaje 3??¹

type
TipoColor = (roja, azul, blanca, gris);
TipoCelda = record case color : TipoColor of
roja,azul,gris : ();
blanca : (exponente : integer);
end;
RangoIndice = 1..MAXTablero;
TipoFila = array [RangoIndice] of TipoCelda;
TipoTablero = array [RangoIndice] of TipoFila;

function MostrarPuntaje(tablero: TipoTablero) : integer;