Algoritmos y Programación en Pascal

12.3. Matrices 267
function Mannana(hoy: tDiasSemana): tDiasSemana;
{Dev. el día de la semana que sigue a hoy}
begin
if hoy = dom then
Mannana:= lun {se evita Succ(dom) ❀ error}
else
Mannana:= Succ(hoy)
end; {Mannana}
function EsBisiesto(anno: tAnnos): boolean;
{Efecto: Averigua si un a~no es bisiesto o no}
begin
EsBisiesto:= ((anno mod 4 = 0) and (anno mod 100 0))
or (anno mod 400 = 0)
end; {EsBisiesto}
function CuantosDias(unmes: tMeses, anno: tAnnos): tDiasMes;
{Dev. el numero de días del mes unmes del a~no anno}
begin
case unmes of
abr,jun,sep,nov :
CuantosDias:= 30;
feb :
if EsBisiesto(anno) then
CuantosDias:= 29
else
CuantosDias:= 28;
ene,mar,may,jul,ago,oct,dic :
CuantosDias:= 31
end {case}
end; {CuantosDias}
begin {AlmanaqueSigloXX}
{Crea un almanaque del siglo XX}
ayer:= lun; {El dia 31 de diciembre de 1900 fue lunes}
for contAnnos:= 1901 to 2000 do
for mes:= ene to dic do begin
dıas:= CuantosDias (mes, contAnnos);
{número de días del mes actual}
for contaDias:= 1 to dias do begin
almanaque[contaDias, mes, contAnnos]:= Mannana(ayer);
ayer:= almanaque[contaDias,mes,contAnnos]
end {for contaDias}
end {for mes}
end {for contAnnos}
end. {AlmanaqueSigloXX}