1.0 KiB
1.0 KiB
{ R : Verifie si l'année passée en paramètre est bisextile E : annee un entier correspondant à l'année S : un booléen correspondant à si l'année est bisextile ou non } estBisextile : une fonction (annee : un entier) -> booléen Lexique : {Local à estBisextile} bisextile : un booléen Algorithme : {Local à estBisextile} Début Si (annee reste 4 = 0) Alors Si (annee reste 4000 /= 0) ET (annee reste 400 = 0) Alors bisextile <- Faux Sinon bisextile <- Vrai Sinon bisextile <- Faux
Retourner bisextile
Fin
Lexique : {Principal} estBisextile : une fonction (annee : un entier) -> booléen annee : un entier anneeEstBisextile : un booléen Algortihme : {Principal} Début Ecrire("Saisir une année") Lire(annee)
anneeEstBisextile <- estBisextile(annee)
Si anneeEstBisextile
Alors Ecrire("L'année saisie est bisexile")
Sinon Ecrire("L'année saisie n'est pas bisextile")
Fin