Comment calculer la date de Pâques.
Contributeur: JEAN MEEUS
{ ===============================================================
Dans le chapitre 4 de 'Astronomique des Formules pour les Calculatrices' 2ème
édition par Jean Meeus editeur: Willmann-Bell Inc.,
ISBN 0-943396-01-8 ...
Date de Pâques.
La méthode utilisée ci-dessous a été donné par Spencer Jones dans son
le livre 'Général de l'Astronomie' (pages 73-74 de l'édition de 1922).
Il a été publié à nouveau dans le 'Journal of the British
l'Association Astronomique', Vol.88, page 91 (décembre 1977)
où il est dit qu'il a été conçu en 1876 et est apparu dans
le Boucher & #39 s 'Calendrier Ecclésiastique.'
Contrairement à la formule donnée par Guass, cette méthode n'a pas d'exception
et est valable pour toutes les années dans le calendrier Grégorien, qui est
à partir de l'année 1583.
[...texte omis...]
Les dates extrêmes de Pâques sont 22 Mars (en 1818 et 2285)
et le 25 avril (comme en 1886, 1943, 2038).
===============================================================
La suite de Modula-2 du code de Greg Vigneault, avril 1993.
Converti À Pascal par Kerry Sokalsky
}
Procédure FindEaster(Année : Entier)
{ Année DOIT être supérieure à 1583 }
VAR
a, b, c,
d, e, f,
g, h, i,
k, l, m,
n, p : ENTIER
Mois : String[5]
BEGIN
Si An < 1583, puis
begin
Writeln( & #39 Ans doit être 1583 ou plus tard. & #39 )
Sortie
fin
a := An MOD 19
b := Année DIV 100
c := An MOD 100
d := b DIV 4
e := b MOD 4
f := (b 8) DIV 25
g := (b - f 1) DIV 3
h := (19 * 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 := (a 11 * 22 h * l) DIV 451
p := (l h - 7 * m 114)
n := p DIV 31 (* n = numéro du mois 3 ou 4 *)
p := (p MOD 31) 1 (* p = jour dans le mois *)
SI (n = 3)
Mois := & #39 Mars & #39
ELSE
Mois := & #39 avril & #39
WriteLn( & #39 de La date de Pâques & #39 , Année : 4, & #39: & #39 , Mois, p : 3)
FIN
begin
FindEaster(1993)
à la fin.
Trouver de paques
Trouver de paques : Plusieurs milliers de conseils pour vous faciliter la vie.
Comment calculer la date de Paques.
Contributeur: JEAN MEEUS
{ ===============================================================
Dans le chapitre 4 de 'Astronomique des Formules pour les Calculatrices' 2eme
edition par Jean Meeus editeur: Willmann-Bell Inc.,
ISBN 0-943396-01-8 ...
Date de Paques.
La methode utilisee ci-dessous a ete donne par Spencer Jones dans son
le livre 'General de l'Astronomie' (pages 73-74 de l'edition de 1922).
Il a ete publie a nouveau dans le 'Journal of the British
l'Association Astronomique', Vol.88, page 91 (decembre 1977)
ou il est dit qu'il a ete conçu en 1876 et est apparu dans
le Boucher & #39 s 'Calendrier Ecclesiastique.'
Contrairement a la formule donnee par Guass, cette methode n'a pas d'exception
et est valable pour toutes les annees dans le calendrier Gregorien, qui est
a partir de l'annee 1583.
[...texte omis...]
Les dates extremes de Paques sont 22 Mars (en 1818 et 2285)
et le 25 avril (comme en 1886, 1943, 2038).
===============================================================
La suite de Modula-2 du code de Greg Vigneault, avril 1993.
Converti A Pascal par Kerry Sokalsky
}
Procedure FindEaster(Annee : Entier)
{ Annee DOIT etre superieure a 1583 }
VAR
a, b, c,
d, e, f,
g, h, i,
k, l, m,
n, p : ENTIER
Mois : String[5]
BEGIN
Si An < 1583, puis
begin
Writeln( & #39 Ans doit etre 1583 ou plus tard. & #39 )
Sortie
fin
a := An MOD 19
b := Annee DIV 100
c := An MOD 100
d := b DIV 4
e := b MOD 4
f := (b 8) DIV 25
g := (b - f 1) DIV 3
h := (19 * 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 := (a 11 * 22 h * l) DIV 451
p := (l h - 7 * m 114)
n := p DIV 31 (* n = numero du mois 3 ou 4 *)
p := (p MOD 31) 1 (* p = jour dans le mois *)
SI (n = 3)
Mois := & #39 Mars & #39
ELSE
Mois := & #39 avril & #39
WriteLn( & #39 de La date de Paques & #39 , Annee : 4, & #39: & #39 , Mois, p : 3)
FIN
begin
FindEaster(1993)
a la fin.
