# Ostern mit Pascal

      FUNCTION Osterberechnung(year : INTEGER) : INTEGER;
      VAR  a, b, c, d, e, f, g, h, i, k, l, m : INTEGER;
      BEGIN
         a  :=  year MOD 19;
         b  :=  year DIV 100;
         c  :=  year 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  :=  ( a + 11 * h + 22 * l ) DIV 451;
         Easter :=  h + l - 7 * m + 22;
      END{FUNC};

zurück