Langage de programmation - Delphi/Kylix/Lazarus - Temps

Dans les pays occidentaux, il est souvent nécessaire de connaître avec précision la date de la fête chrétienne de Pâques. Cette célébration religieuse occupe une place centrale dans le calendrier liturgique chrétien et sert également de point de référence pour plusieurs autres fêtes mobiles, telles que le lundi de Pâques, l'Ascension ou encore la Pentecôte. Contrairement à Noël, qui est célébré chaque année à une date fixe, Pâques varie d'une année à l'autre selon des règles astronomiques et calendaires relativement complexes.

L'origine du calcul de la date de Pâques remonte aux premiers siècles du christianisme. Les autorités religieuses ont cherché à établir une méthode uniforme permettant de déterminer la date de cette fête à partir des cycles de la Lune et de la position de l'équinoxe de printemps. Le résultat est un ensemble de règles combinant des éléments du calendrier solaire et du calendrier lunaire. C'est précisément cette combinaison qui explique pourquoi la date de Pâques peut parfois tomber dès la fin du mois de mars, alors que certaines années elle est célébrée beaucoup plus tard en avril.

Au fil des siècles, plusieurs mathématiciens, astronomes et ecclésiastiques ont mis au point des algorithmes permettant de calculer automatiquement cette date. Ces méthodes tiennent compte du cycle lunaire de dix-neuf ans, des années séculaires ainsi que des ajustements introduits par le calendrier grégorien. Bien que les calculs puissent paraître impressionnants au premier abord, ils reposent essentiellement sur une série d'opérations arithmétiques simples permettant d'obtenir le mois et le jour exacts de la célébration.

Dans le domaine de l'informatique, le calcul de la date de Pâques constitue un excellent exemple d'application pratique des algorithmes calendaires. Il permet de manipuler des dates, d'effectuer des opérations modulaires et de reproduire des règles historiques utilisées depuis plusieurs siècles. De nombreux logiciels de calendrier, systèmes de gestion des congés et applications de planification utilisent encore aujourd'hui des méthodes semblables afin de déterminer automatiquement les fêtes mobiles.

À l'aide du code source Delphi présenté ci-dessous, vous pourrez calculer la date de Pâques pour différentes années du calendrier grégorien. Le programme applique directement les règles traditionnelles de calcul et affiche le jour ainsi que le mois correspondant à cette fête. Vous trouverez ainsi une solution simple et efficace permettant de déterminer la date de Pâques tout en découvrant un algorithme classique mêlant histoire, astronomie, religion et mathématiques :


			

Program DOE;

 
{$APPTYPE CONSOLE}

Uses SysUtils;


 
Procedure DateOfEaster(Year:Integer;Var Month,Day:Byte);


Var

 G,C,X,Z,D,E,N:Integer;


Begin

 G:=(Year mod 19) + 1;


 C:=(Year div 100) + 1;

 X:=((3 * C) div 4) - 12;


 Z:=((8 * C + 5) div 25) - 5;


 D:=((5 * Year) div 4) - X - 10;


 E:=(11 * G + 20 + Z - X) MOD 30;


 If E < 0 Then Inc(E,30);

 If((E = 25) and (G > 11)) or (E = 24) Then Inc(E);


 N:=44-E;

 If N < 21 Then Inc(N,30);


 Inc(N,7 - Integer((D + N) MOD 7));


 If N > 31 Then Begin

  Month := 4;

  Day := N - 31;


 End

  Else

 Begin

  Month := 3;


  Day := N;

 End;

End;

 
Function MonthName(Month:Byte):String;BEGIN


 Case Month of

  1:MonthName:='Janvier';

  2:MonthName:='Février';


  3:MonthName:='Mars';

  4:MonthName:='Avril';


  5:MonthName:='Mai';

  6:MonthName:='Juin';


  7:MonthName:='Juillet';

  8:MonthName:='Août';


  9:MonthName:='Septembre';

  10:MonthName:='Octobre';


  11:MonthName:='Novembre';

  12:MonthName:='Décembre';


 End;

End;

 
Var

 Year:Integer;


 Month,Day:Byte;

 
BEGIN

 For Year:=2000 to 2014 do Begin


  DateOfEaster(Year, Month, Day);

  WriteLn('Pâque en l''année ',Year,' est le jour ',Day,' du mois ',MonthName(Month));


 End;

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

Section courante

A propos

Section administrative du site