|
|
ous
commencerons par un programme qui permettra de retrouver le jour
associé à une date donnée (calendrier
perpétuel).
Mais avant, un peu de maths (il en faut
bien un peu ! ) : |
-
Effectuez
la division euclidienne (vous vous en souvenez ?) de 17 par 3. Quel
est le reste de cette division ? Quelle condition doit vérifier le reste ?
Cette division euclidienne
s'écrit dans notre programme 17 \ 3 (anti slash, attention).
-
Comment, à partir de la formule
: D = d x q + r peut -on en déduire le reste r de la
division de D par d ? (D = dividende , d = diviseur , q = quotient et r =
reste).
En maths, le reste
de la division de a par b s'écrit : "a mod
b" qui se lit : "a modulo b". Par exemple : 15 mod 2 = 1 (15 = 2 x 7 +
1 (1 < 2)).
|
|
Voici un programme, en QBasic ou en Visual
Basic, qui détermine au moyen d'une formule empirique le jour de la semaine d'une date
donnée.
Recopiez-le en respectant scrupuleusement les signes et les symboles ; comptez
bien les parenthèses ! Une ligne complète se termine par ®
qui signifie "Retour" ou "Envoi". (N'oubliez pas l'apostrophe (') juste avant
le titre "Calendrier Perpétuel"). |
|
|
|
|
' Calendrier Perpétuel
®
INPUT "Jj,Mm,SSaa: ", D,
M, A : S = A \ 100 MOD 4 : B = A MOD 100 ®
J = (B + B \ 4 + D - 2 * S +
VAL(MID$("512503514624", M, 1)) + (M < 3) * (B MOD 4 <> 0 +
(B = 0) *
S <> 0)) MOD 7 ®
FOR I = 0 TO J : READ N$: NEXT :
PRINT "Le"; D; M; A; "est un: "; N$ ®
DATA
Dimanche,Lundi,Mardi,Mercredi,Jeudi,Vendredi,Samedi ®
|
|
|
Explications :
Jj : Jour en 2 chiffres - Mm : Mois
en 2 chiffres - SS = Nombre de siècles
- A = années
Vous entrez : D (le jour) VIRGULE M (mois)
VIRGULE A (an en 4 chiffres)
Ex: 25 (VIRGULE) 05 (VIRGULE)
2000 puis vous appuyez sur "Entrer".
Le programme détermine si l'année est bissextile, puis applique cette formule
un peu barbare (!) pour calculer J et sélectionner le quantième du jour
correspondant à la date entrée et l'affiche à l'écran.
|
|
 |
Le
programme lancé en cliquant sur Calendrier,
(ou sur l'icône à gauche) est plus complet.
Découvrez-le dès maintenant : savez-vous quel était le jour de votre naissance ?
Celui de vos parents, de vos amis ? Il vous en donnera l'équivalent dans le calendrier républicain, vous
parlera sommairement de ce calendrier et vous souhaitera, le cas échéant,
votre anniversaire en musique. (Les cadeaux ne sont pas encore prévus ! ) |
Il
existe d'autres formules pour déterminer le jour de la semaine d'une date
donnée. Par exemple, la formule de GAUSS (mathématicien allemand). Elle est
valable pour le calendrier Grégorien qui a été adopté par l'Angleterre et
ses colonies d'Amérique en 1752. Mais cela est une autre histoire ! À bientôt
pour de nouvelles découvertes.
|
