Cómo calcular la fecha de la Pascua.
Colaborador: JEAN MEEUS
{ ===============================================================
En el capítulo 4 de la 'Astronómica Fórmulas para Calculadoras', 2
edición por Jean Meeus editor: Willmann-Bell Inc.,
ISBN 0-943396-01-8 ...
la Fecha de la Pascua.
El método que se utiliza a continuación ha sido dada por Spencer Jones en su
libro 'Astronomía General' (páginas 73-74 de la edición de 1922).
Se ha publicado de nuevo en el 'Journal of the British
agrupación Astronómica', Vol.88, página 91 (diciembre de 1977)
donde se dice que fue inventado en 1876 y apareció en
el Carnicero & #39 s 'Calendario Eclesiástico.'
a Diferencia de la fórmula dada por Guass, este método no tiene ninguna excepción
y es válido para todos los años en el calendario Gregoriano, que es
desde el año 1583.
[...texto omitido...]
La extrema fechas de semana santa son de 22 de Marzo (como en 1818 y 2285)
y el 25 de abril (como en 1886, 1943, 2038).
===============================================================
El siguiente Modula-2 código por Greg Vigneault, abril de 1993.
Convertir A la de Pascal, por Kerry Sokalsky
}
Procedimiento FindEaster(Año : Integer)
{ Año DEBE ser mayor que 1583 }
VAR
a, b, c,
d, e, f,
g, h, i,
k, l, m,
n, p : INTEGER
Mes : String[5]
BEGIN
Si el Año < 1583, a continuación,
begin
Writeln( & #39 Año debe ser 1583 o más tarde. & #39 )
Salir
fin
a := Año MOD 19
b := Año DIV 100
c := Año MOD 100
d := b DIV 4
e := b MOD 4
f := (b, 8) DIV 25
g := (b - f 1) DIV 3
h := (19 * a b - d - g 15) MOD 30
i := c DIV 4
k := c MOD 4
l := (32 2 * e 2 * i - h - k) MOD 7
m := (un 11 * 22 h * l) DIV 451
p := (l - 7 * m 114)
n := p DIV 31 (* n = número de mes 3 o 4 *)
p := (p MOD 31) 1 (* p = día del mes *)
SI (n = 3) ENTONCES
Mes := & #39 de Marzo & #39
ELSE
Mes := & #39 de abril & #39
WriteLn( & #39 de La fecha de la Pascua & #39 , Año : 4, & #39: & #39 , Mes, p : 3)
FINAL
begin
FindEaster(1993)
final.
Busqueda de pascua
Busqueda de pascua : Multi-millones de consejos para hacer su vida mas facil.
Como calcular la fecha de la Pascua.
Colaborador: JEAN MEEUS
{ ===============================================================
En el capitulo 4 de la 'Astronomica Formulas para Calculadoras', 2
edicion por Jean Meeus editor: Willmann-Bell Inc.,
ISBN 0-943396-01-8 ...
la Fecha de la Pascua.
El metodo que se utiliza a continuacion ha sido dada por Spencer Jones en su
libro 'Astronomia General' (paginas 73-74 de la edicion de 1922).
Se ha publicado de nuevo en el 'Journal of the British
agrupacion Astronomica', Vol.88, pagina 91 (diciembre de 1977)
donde se dice que fue inventado en 1876 y aparecio en
el Carnicero & #39 s 'Calendario Eclesiastico.'
a Diferencia de la formula dada por Guass, este metodo no tiene ninguna excepcion
y es valido para todos los años en el calendario Gregoriano, que es
desde el año 1583.
[...texto omitido...]
La extrema fechas de semana santa son de 22 de Marzo (como en 1818 y 2285)
y el 25 de abril (como en 1886, 1943, 2038).
===============================================================
El siguiente Modula-2 codigo por Greg Vigneault, abril de 1993.
Convertir A la de Pascal, por Kerry Sokalsky
}
Procedimiento FindEaster(Año : Integer)
{ Año DEBE ser mayor que 1583 }
VAR
a, b, c,
d, e, f,
g, h, i,
k, l, m,
n, p : INTEGER
Mes : String[5]
BEGIN
Si el Año < 1583, a continuacion,
begin
Writeln( & #39 Año debe ser 1583 o mas tarde. & #39 )
Salir
fin
a := Año MOD 19
b := Año DIV 100
c := Año MOD 100
d := b DIV 4
e := b MOD 4
f := (b, 8) DIV 25
g := (b - f 1) DIV 3
h := (19 * a b - d - g 15) MOD 30
i := c DIV 4
k := c MOD 4
l := (32 2 * e 2 * i - h - k) MOD 7
m := (un 11 * 22 h * l) DIV 451
p := (l - 7 * m 114)
n := p DIV 31 (* n = numero de mes 3 o 4 *)
p := (p MOD 31) 1 (* p = dia del mes *)
SI (n = 3) ENTONCES
Mes := & #39 de Marzo & #39
ELSE
Mes := & #39 de abril & #39
WriteLn( & #39 de La fecha de la Pascua & #39 , Año : 4, & #39: & #39 , Mes, p : 3)
FINAL
begin
FindEaster(1993)
final.
