50 lines
945 B
Plaintext
50 lines
945 B
Plaintext
j entier
|
|
m entier
|
|
a entier
|
|
b booléen
|
|
|
|
DEBUT
|
|
|
|
ECRIRE "Entrez un jour"
|
|
LIRE j
|
|
|
|
ECRIRE "Entrez un mois"
|
|
LIRE m
|
|
|
|
ECRIRE "Entrez une année"
|
|
LIRE a
|
|
|
|
SI (j <= 0 OU j > 31) OU (m <= 0 OU m > 12) OU (a <= 0) ALORS
|
|
ECRIRE "Erreur dans la date"
|
|
|
|
SINON
|
|
SI ((a%4 == 0 ET a%100 != 0) OU (a%400 == 0)) ALORS
|
|
b = VRAI // Année bissextile
|
|
SINON
|
|
b = FAUX // Année non bissextile
|
|
FINSI
|
|
|
|
SI (m == 2) ALORS
|
|
SI (b == VRAI ET j <= 29) OU (b == FAUX ET j <= 28) ALORS
|
|
ECRIRE "Date valide"
|
|
SINON
|
|
ECRIRE "Erreur dans la date"
|
|
FINSI
|
|
|
|
SINON SI (m == 4 OU m == 6 OU m == 9 OU m == 11) ALORS
|
|
SI (j <= 30) ALORS
|
|
ECRIRE "Date valide"
|
|
SINON
|
|
ECRIRE "Erreur dans la date"
|
|
FINSI
|
|
|
|
SINON
|
|
SI (j <= 31) ALORS
|
|
ECRIRE "Date valide"
|
|
SINON
|
|
ECRIRE "Erreur dans la date"
|
|
FINSI
|
|
|
|
FINSI
|
|
|
|
FINSI |