34 lines
1.0 KiB
Markdown
34 lines
1.0 KiB
Markdown
{
|
|
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 |