Algoritmos y Programación en Pascal

11.1. Tipos ordinales definidos por el programador 237
Succ(dom) ❀ error (ya que no existe el siguiente al último valor)
Ord(jue) ❀ 3
Como en todo tipo ordinal, salvo en el caso de los enteros, el número de orden
comienza siempre por cero.
Observaciones sobre los tipos enumerados
• Dado que los tipos enumerados son ordinales, se pueden utilizar como
índices en instrucciones for:
var
d: tDiasSemana;
· · ·
for d:= lun to dom do
· · ·
• Pueden pasarse como parámetros en procedimientos y funciones. Incluso,
por tratarse de un tipo simple, puede ser el resultado de una función:
function DiaMannana(hoy: tDıasSemana): tDiasSemana;
{Dev. el día de la semana que sigue a hoy}
begin
if hoy = dom then
DiaMannana:= lun
else
DiaMannana:= Succ(hoy)
end; {DiaMannana}
• Los valores de un tipo enumerado no se pueden escribir directamente.
Para resolver este problema hay que emplear un procedimiento con una
instrucción case que escriba, según el valor de la variable del tipo enumerado,
la cadena de caracteres correspondiente al identificador del valor. El
código de dicho procedimiento podría ser:
procedure EscribirDiaSemana(dia: tDiasSemana);
{Efecto: escribe en el output el nombre de dia}
begin
case dia of
lun: WriteLn(’Lunes’);
mar: WriteLn(’Martes’);
· · ·