Suche nach Ostern

Suche nach Ostern

Suche nach Ostern : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Wie man Ostern Datum zu berechnen.

Autor: JEAN MEEUS

{ ===============================================================
Aus Kapitel 4 des 'Astronomischen Formeln für Taschenrechner' 2.
Ausgabe; von Jean Meeus; Verlag: Willmann-Bell Inc.,
ISBN 0-943396-01-8...

Datum des Osterfestes.

Die im folgenden verwendete Methode wurde von Spencer Jones in seinem gegeben
Buch 'Allgemeine Astronomie' (Seiten 73-74 der Ausgabe von 1922).
Es wurde wieder in das 'Journal of the British veröffentlicht
Astronomical Association', Vol.88, Seite 91 (Dezember 1977)
wo heißt es, dass es war 1876 entwickelt und in erschien
The Butcher's 'kirchlichen Kalender.'

Anders als die Formel von Guass gegeben hat diese Methode keine Ausnahme
und ist gültig für alle Jahre im gregorianischen Kalender, d.h.
aus dem Jahre 1583 auf.

[.. .text weggelassen...]

Die extremen Osterdaten sind (wie in 1818 und 2285) 22. März
und April 25 (Stand: 1886, 1943, 2038).
===============================================================

Die folgenden Modula-2-Code von Greg Vigneault, April 1993.

In Pascal von Kerry Sokalsky konvertiert
}
Prozedur FindEaster(Year: Integer);
{Jahr muss größer als 1583 sein}
VAR
a, b, C,
d, e, f,
g, h, i,
k, l, m,
n, p: INTEGER;
Monat: String [5];
BEGIN
Wenn Jahr < 1583 dann
beginnen
Writeln ('Jahr muß 1583 oder höher.');
Ausfahrt;
Ende;

ein: = Jahr MOD 19;
b: = Jahr DIV 100;
c: = Jahr 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;
Ich: = 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 = Monatszahl 3 oder 4 *)
p: = (p MOD 31) + 1; (* p = Tag im Monat *)

IF (n = 3) dann
Monat: = 'März'
SONST
Monat: = 'April';

WriteLn ('Das Datum des Osterfestes für', Jahr: 4, ' ist: ', Monat, p: 3);

ENDE;

beginnen
FindEaster(1993);
Ende.