Langage de programmation - Ada - Temps

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 Ada suivant :


			

WITH TEXT_IO;

 
PROCEDURE DateOfEaster IS

 
   USE TEXT_IO;   

   

   Year,Month,Day:INTEGER;

   

   PROCEDURE DateOfEaster(Year:IN INTEGER;Month,Day:IN OUT INTEGER) IS

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

   BEGIN      

      G := (Year MOD 19) + 1;      

      C := INTEGER(Year / 100) + 1;      

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

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

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

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

      IF E < 0 THEN         

         E := E + 30;

      END IF;

      IF ((E = 25) AND (G > 11)) OR (E = 24) THEN         

         E := E + 1;         

      END IF;

      N := 44 - E;      

      IF N < 21 THEN         

         N := N + 30;         

      END IF;

      N := N + 7 - INTEGER((D + N) MOD 7);      

      IF N > 31 THEN         

         Month := 4;         

         Day := N - 31;         

      ELSE         

         Month := 3;         

         Day := N;         

      END IF;      

   END DateOfEaster;

   

 
   FUNCTION MonthName(Month:IN INTEGER) RETURN STRING IS BEGIN      

      CASE Month IS         

         WHEN 1 => RETURN "Janvier";               

         WHEN 2 => RETURN "Février";               

         WHEN 3 => RETURN "Mars";               

         WHEN 4 => RETURN "Avril";               

         WHEN 5 => RETURN "Mai";               

         WHEN 6 => RETURN "Juin";               

         WHEN 7 => RETURN "Juillet";               

         WHEN 8 => RETURN "Août";               

         WHEN 9 => RETURN "Septembre";                        

         WHEN 10 => RETURN "Octobre";               

         WHEN 11 => RETURN "Novembre";               

         WHEN 12 => RETURN "Décembre";               

         WHEN OTHERS => RETURN "";

      END CASE;      

   END MonthName;

   

BEGIN

   FOR Year IN 2000..2014 LOOP      

      DateOfEaster(Year, Month, Day);      

      PUT_LINE("Pâque en l'année " & INTEGER'IMAGE(Year) & " est le jour " &          

         INTEGER'IMAGE(Day) & " du mois " & MonthName(Month));         

   END LOOP;   

END Dateofeaster;

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 : Samedi, le 25 août 2012

Section courante

A propos

Section administrative du site