Algoritmos y Programación en Pascal

266 Capítulo 12. Arrays
El día 31 de diciembre de 1900 fue lunes
Para todos los años del siglo hacer
Para todos los meses del año hacer
Asignar el día de la semana a cada día del mes
donde, la acción Asignar el día de la semana a cada día del mes puede ser
refinada en un nivel inferior de la siguiente forma:
Calcular cuántos días tiene el mes
Para todos los días del mes hacer
asignar al día actual el mañana de ayer
asignar a ayer el día actual
Los bucles correspondientes a los años y los meses no presentan dificultad,
sin embargo, los días del mes dependen del propio mes, y en el caso de febrero,
de que el año sea o no bisiesto. Por eso hay que calcular CuantosDias tiene el
mes y para ello es necesario conocer el mes y el año.
Durante el cálculo de CuantosDías se hará una llamada a EsBisiesto, una
función que determina el número de días de febrero. 2 Se usa también una función
Mannana para el cálculo correcto del día siguiente, de forma que al domingo le
siga el lunes.
El programa completo es el siguiente:
Program AlmanaqueSigloXX (input,output);
{Calcula el día de la semana correspondiente a cada día del siglo XX}
type
tMeses = (ene, feb, mar, abr, may, jun, jul, ago, sep, oct,
nov, dic);
tDiasSemana = (lun, mat, mie, jue, vie, sab, dom);
tAnnos = 1901..2000;
tDiasMes = 1..31;
tCalendarioSigloXX = array[tDıasMes, tMeses, tAnnos] of
tDıasSemana;
var
almanaque: tCalendarioSigloXX;
mes: tMeses;
ayer: tDiasSemana;
contAnnos: tAnnos;
dias, contaDias: tDiasMes;
2 En el desarrollo de esta función se tendrá en cuenta que los años múltiplos de 100 no son
bisiestos, salvo que sean múltiplos de 400.