1.6 KiB
{ 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