Hvordan beregne påsken dato
bidragsyter. JEAN MEEÙS product: {=============================== ================================ Fra kapittel 4 " Astronomical Formler for Kalkulatorer " 2. utgave; Jean Meeus; Forlag: Willmann-Bell Inc., ISBN 0-943396-01-8 ...
Dato av påsken
metode som brukes under er gitt av Spencer Jones i sin bok " Generelt Astronomy ". (sidene 73-74 i utgaven 1922). Det har blitt publisert på nytt i " Journal of British Astronomical Association ", Vol.88, side 91 (desember 1977) hvor det sies at det ble utarbeidet i 1876 og dukket opp i Butcher er ". Ecclesiastical Calendar "
I motsetning til formelen gitt av Guass, har denne metoden ikke noe unntak, og gjelder for alle år i den gregorianske kalenderen, som er fra år 1 583 på.
[... tekst utelatt ...]
ekstreme datoene for påske er 22 mars (som i 1818 og 2 285) og April 25 (som i 1886, 1943, 2 038). ================================================== =============
følgende Modula-2 kode av Greg Vigneault april 1993.
Omregnet til Pascal av Kerry Sokalsky} Prosedyre FindEaster (År: Integer); {Året må være større enn 1583} VAR a, b, c, d, e, f, g, h, i, k, l, m, n, p: INTEGER; Måned: String [5]; BEGIN Hvis År < 1583 da begynne Writeln ('Year må være 1583 eller senere.'); Exit; enden,
en: = År MOD 19; b: = År DIV 100; c: = År 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; jeg: = c DIV 4; K: = c MOD 4; l: = (32 + 2 * e + 2 * i - h - k) MOD 7; m: = (a + 11 * h + 22 * ​​l) DIV 451; p: = (h + l - 7 * m + 114); n: = p DIV 31; (* N = måned nummer 3 eller 4 *) p: = (p MOD 31) + 1; (* P = dag i måneden *)
IF (n = 3) SÅ Måned: = 'Mars' ELSE Måned: = 'april';
WriteLn ('The datoen for påsken for', År: 4, 'er:', Måned, p: 3);
END;
begynne FindEaster (1993); enden.