Exercice :
donner la date de lendemain
Solution :
Algorithme londemain
var j,m,a entier{v,E/S}
debut
ercire"donner une date sous forma jour,mois,annee")
ecrire("jour")
lire(j)
ecrire("mois")
lire(m)
ecrire("annee")
lire(a)
selon m faire
1,3,5,7,8,10 :
si (j<31 alors="" nbsp="" p=""> j<-----j p=""> sinon
j<----1 p=""> m<---m p=""> finsi
4,6,9,11 :
si(j<30 span="">30>
j<---- j="" span="">---->
sinon
j<----1 span="">----1>
m<--- m="" span="">--->
finsi
12 : si(j=31) alors
j<---1 span="">---1>
m<----1 span="">----1>
a<--- a="" span="">--->
sinon
j<----j span="">----j>
finsi
2 : si (a mod 4 =0) alors
si (j<29 alors="" nbsp="" p=""> j<-----j p=""> sinon
j<----1 p=""> m<----3 p=""> finsi
sinon
si (j<28 alors="" p=""> j<-----j p=""> sinon
j<----1 p=""> m<--- 3="" p=""> finsi
finsi
ecrire("la date n'est pas valable")
finselon
ecrire("le londemain=",j,"/",m,"/",a)
<-----b a="" b-4="" c="" p=""><----- a-sqrt="" a="" deltat="" p=""><----- a="" b="" deltat="" p="" sqrt=""> fin ----->----->-----b>--->----1>-----j>28>----3>----1>-----j>29>---m>----1>-----j>31>
var j,m,a entier{v,E/S}
debut
ercire"donner une date sous forma jour,mois,annee")
ecrire("jour")
lire(j)
ecrire("mois")
lire(m)
ecrire("annee")
lire(a)
selon m faire
1,3,5,7,8,10 :
si (j<31 alors="" nbsp="" p=""> j<-----j p=""> sinon
j<----1 p=""> m<---m p=""> finsi
4,6,9,11 :
si(j<30 span="">30>
j<---- j="" span="">---->
sinon
j<----1 span="">----1>
m<--- m="" span="">--->
finsi
12 : si(j=31) alors
j<---1 span="">---1>
m<----1 span="">----1>
a<--- a="" span="">--->
sinon
j<----j span="">----j>
finsi
2 : si (a mod 4 =0) alors
si (j<29 alors="" nbsp="" p=""> j<-----j p=""> sinon
j<----1 p=""> m<----3 p=""> finsi
sinon
si (j<28 alors="" p=""> j<-----j p=""> sinon
j<----1 p=""> m<--- 3="" p=""> finsi
finsi
ecrire("la date n'est pas valable")
finselon
ecrire("le londemain=",j,"/",m,"/",a)
<-----b a="" b-4="" c="" p=""><----- a-sqrt="" a="" deltat="" p=""><----- a="" b="" deltat="" p="" sqrt=""> fin
Commentaires
Enregistrer un commentaire