Section courante

A propos

Section administrative du site

Dans les pays occidentaux, il est inévitable de calculer la date de la Pâque chrétienne. Vous trouverez la réponse que vous souhaitez, à l'aide du code source Delphi suivant :

  1. Program DOE;
  2.  
  3. {$APPTYPE CONSOLE}
  4. Uses SysUtils;
  5.  
  6. Procedure DateOfEaster(Year:Integer;Var Month,Day:Byte);
  7. Var
  8.  G,C,X,Z,D,E,N:Integer;
  9. Begin
  10.  G:=(Year mod 19) + 1;
  11.  C:=(Year div 100) + 1;
  12.  X:=((3 * C) div 4) - 12;
  13.  Z:=((8 * C + 5) div 25) - 5;
  14.  D:=((5 * Year) div 4) - X - 10;
  15.  E:=(11 * G + 20 + Z - X) MOD 30;
  16.  If E < 0 Then Inc(E,30);
  17.  If((E = 25) and (G > 11)) or (E = 24) Then Inc(E);
  18.  N:=44-E;
  19.  If N < 21 Then Inc(N,30);
  20.  Inc(N,7 - Integer((D + N) MOD 7));
  21.  If N > 31 Then Begin
  22.   Month := 4;
  23.   Day := N - 31;
  24.  End
  25.   Else
  26.  Begin
  27.   Month := 3;
  28.   Day := N;
  29.  End;
  30. End;
  31.  
  32. Function MonthName(Month:Byte):String;BEGIN
  33.  Case Month of
  34.   1:MonthName:='Janvier';
  35.   2:MonthName:='Février';
  36.   3:MonthName:='Mars';
  37.   4:MonthName:='Avril';
  38.   5:MonthName:='Mai';
  39.   6:MonthName:='Juin';
  40.   7:MonthName:='Juillet';
  41.   8:MonthName:='Août';
  42.   9:MonthName:='Septembre';
  43.   10:MonthName:='Octobre';
  44.   11:MonthName:='Novembre';
  45.   12:MonthName:='Décembre';
  46.  End;
  47. End;
  48.  
  49. Var
  50.  Year:Integer;
  51.  Month,Day:Byte;
  52.  
  53. BEGIN
  54.  For Year:=2000 to 2014 do Begin
  55.   DateOfEaster(Year, Month, Day);
  56.   WriteLn('Pâque en l''année ',Year,' est le jour ',Day,' du mois ',MonthName(Month));
  57.  End;
  58. END.

on obtiendra le résultat suivant :

Pâque en l'année 2000 est le jour 23 du mois Avril
Pâque en l'année 2001 est le jour 15 du mois Avril
Pâque en l'année 2002 est le jour 31 du mois Mars
Pâque en l'année 2003 est le jour 20 du mois Avril
Pâque en l'année 2004 est le jour 11 du mois Avril
Pâque en l'année 2005 est le jour 27 du mois Mars
Pâque en l'année 2006 est le jour 16 du mois Avril
Pâque en l'année 2007 est le jour 8 du mois Avril
Pâque en l'année 2008 est le jour 23 du mois Mars
Pâque en l'année 2009 est le jour 12 du mois Avril
Pâque en l'année 2010 est le jour 4 du mois Avril
Pâque en l'année 2011 est le jour 24 du mois Avril
Pâque en l'année 2012 est le jour 8 du mois Avril
Pâque en l'année 2013 est le jour 31 du mois Mars
Pâque en l'année 2014 est le jour 20 du mois Avril

Dernière mise à jour : Dimanche, le 17 août 2014