Date de Pâques

Présentation
Programme calculant la date du dimanche de Pâques pour une année quelconque du calendrier grégorien.
Détails
Avatar de Roland Chastain
Rédacteur / Modérateur
Voir tous les téléchargements de l'auteur
Licence : Autre
Date de mise en ligne : 7 février 2016




Avatar de batyann811 batyann811 - Membre confirmé https://www.developpez.com
le 22/03/2012 à 11:39
Si ça intéresse quelqu'un j'ai le même genre de programme pour l'Epiphanie, la Chandeleur, la saint Valentin, l'Assomption, la Toussaint, Noël et le Nouvel an.


Avatar de Roland Chastain Roland Chastain - Rédacteur/Modérateur https://www.developpez.com
le 22/03/2012 à 16:39
Je suis preneur !

Avatar de droggo droggo - Expert confirmé https://www.developpez.com
le 22/03/2012 à 17:47
Gie,
Citation Envoyé par batyann811  Voir le message
Si ça intéresse quelqu'un j'ai le même genre de programme pour l'Epiphanie, la Chandeleur, la saint Valentin, l'Assomption, la Toussaint, Noël et le Nouvel an.



À ce sujet, j'ai toujours trouvé dommage que le Nouvel An ne tombe jamais un vendredi 13.

Et un calcul plus amusant à faire est la date précise des équinoxes et solstices.
Avatar de Roland Chastain Roland Chastain - Rédacteur/Modérateur https://www.developpez.com
le 22/03/2012 à 19:46
Citation Envoyé par droggo  Voir le message
À ce sujet, j'ai toujours trouvé dommage que le Nouvel An ne tombe jamais un vendredi 13.

C'est regrettable en effet ! La même chose arrive pour la Saint-Valentin.

Et un calcul plus amusant à faire est la date précise des équinoxes et solstices.

Je serais curieux de voir ça, étant dépourvu de connaissances sur le sujet. Quels sont les principes de ce calcul ?
Avatar de droggo droggo - Expert confirmé https://www.developpez.com
le 22/03/2012 à 21:50
Mie,

Goog te donnera pas mal de réponses.
Avatar de batyann811 batyann811 - Membre confirmé https://www.developpez.com
le 23/03/2012 à 9:08
Code : Sélectionner tout
1
2
3
4
5
6
 
program Divination; 
begin 
  WriteLn('Hummm....'); 
  WriteLn('D''après mes calculs, cette année, Noël tombera le 25 Décembre.'); 
end.
C'est un vieux programme. Je l'ai écrite en à mes débuts en pascal. 1990 je crois. Il a passé sans encombre le cap de l'an 2 000. J'espère qu'il en sera de même pour l'an 10 000. Si ce n'est pas le cas signalez le moi et j'y apporterais les corrections nécessaires.
Avatar de Roland Chastain Roland Chastain - Rédacteur/Modérateur https://www.developpez.com
le 23/03/2012 à 10:06
@batyann811

En fait je n'avais pas lu assez attentivement ton premier message et je ne m'étais pas rendu compte de la plaisanterie !



J'avais en tête le calcul des fêtes mobiles relatives à Pâques et j'ai cru que c'était de cela que tu parlais.

Avatar de Roland Chastain Roland Chastain - Rédacteur/Modérateur https://www.developpez.com
le 31/01/2016 à 23:15
Je vous propose l'unité Fetes, qui permet de connaître la date d'une fête relative à Pâques, par exemple la date du mercredi des Cendres. Le calcul se base sur une table des dates de Pâques de 1900 à 2199.

Code : Sélectionner tout
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program JourCendres; 
 
{$APPTYPE GUI} 
{$IFDEF FPC} 
  {$MODE DELPHI} 
{$ENDIF} 
 
uses 
  Windows, SysUtils, Fetes; 
 
const 
  CENDRES = -46; 
   
var 
  s: string; 
  y: word; 
 
begin 
  y := CurrentYear; 
   
  s := 'Jour des Cendres'#13#13 + ChaineJour(JourRelatifPaques(y, CENDRES)); 
      
  MessageBox(0, pChar(s), pChar('Année ' + IntToStr(y)), MB_OK); 
end.
Si vous lisez ce message avant 1900 (ce qui m'étonnerait franchement mais on ne sait jamais) ou après 2199, vous ne pouvez pas utiliser ce programme. Vous devez acheter la version "Pro".
Avatar de Eric2a Eric2a - Membre émérite https://www.developpez.com
le 31/01/2016 à 23:52
Salut Roland,

[...] après 2199, vous ne pouvez pas utiliser ce programme.

Je n'en mourrais pas

Puissent ces fêtes exister encore au delà de cette date.
Developpez.com décline toute responsabilité quant à l'utilisation des différents éléments téléchargés.
Responsables bénévoles de la rubrique Pascal : Gilles Vasseur - Alcatîz -