First commit

IUT/Info1/TD/Exercices/6.8.2_bisextile/6.8.3.md

@@ -0,0 +1,53 @@
+{
+    R : Renvoie Vrai si l'année passée en paramètre est bisextile.
+    E : année un entier
+    S : un booléen en fonction de si l'année est bisextile
+}
+verifAnneBisextile : une fonction (annee : un entier) -> booléen
+
+{
+    R : Renvoie vrai si le mois saisi est bien entre 1 et 12
+    E : mois un entier positif
+    S : un booléen en fonction de la validité du mois
+}
+verifMois : une fonction (mois : un entier positif) -> booléen
+
+{
+    R : Verifie si le jour saisi est valide en fonction du mois et de l'année
+    E : jour, mois 2 entiers positifs, anneeEstBisextile un booléen
+    S : un booléen en fonction de la validité du jour
+}
+verifJour : une fonction (jour : un entier positif, mois : un entier positif, anneeEstBisextile : un booléen) -> booléen
+
+{
+    R : Verifie si jour, mois et annee sont valides
+    E : jour, mois, annee : 3 entiers positifs
+    S : booléen en fonction de si la date est valide
+}
+verifDate(jour : un entier positif, mois : un entier positif, annee : un entier positif) -> booléen
+
+
+Lexique : {Principal}
+    {Les déclarations de fonctions}
+
+    jourSaisie : un entier positif
+    moisSaisie : un entier positif
+    anneeSaisie : un entier positif
+    dateValide : un booléen
+Algorithme : {Principal}
+    Début
+        Ecrire("Veuillez saisir le jour")
+        Lire(jourSaisie)
+
+        Ecrire("Veuillez saisir le mois")
+        Lire(moisSaisie)
+
+        Ecrire("Veuillez saisir l'année")
+        Lire(anneeSaisie)
+
+        dateValide <- verifDate(jourSaisie, moisSaisie, anneeSaisie)
+
+        Si dateValide
+            Alors Ecrire("La date saisie est valide")
+            Sinon Ecrire("La date saisie est invalide")
+    Fin