Visites aujourd'hui : 4330 Top visites par jour : 71940 Le 09 novembre 2024 Visiteurs en ligne: 11 |
la structure conditionnelle
Corrigé : Algorithme :
Finsi
Corrigé : Program touche ; uses wincrt ; var nature : string ; c : char ; begin writeln('Taper une touche') ; readln(c) ; case c of 'a'..'z','A'..'Z': if upcase(c) in ['A', 'E','I','O','U','Y'] then nature:='voyelle' else nature:='consonne' ; '0'..'9' : nature:= 'Chiffre' ; else nature:='symbole' ; end ; writeln(nature) ; end.
Corrigé : Algorithme :
1,3,5,7,8,10,12 : nb <-- 31 4,6,9,11 : nb <-- 30 2 : Ecrire(''Donner l'année ''), lire(a) Si (a mod 400 =0) ou ( (a mod 4 =0) et (a mod 100 <>0) ) alors nb <-- 29 sinon nb <-- 28 Finsi FinSelon
pascal : Program mois ; uses wincrt ; var n,a,nb : integer ; begin
Write('Donner le n° de mois ') ; readln(n) ; case n of 1,3,5,7,8,10,12 : nb:= 31; 4,6,9,11 : nb:= 30; 2 : begin write('Donner l''année ');readln(a) ; if (a mod 400 =0) OR ( (a mod 4 =0) AND (a mod 100 <>0) ) then nb:= 29 else nb:= 28 ; End ; End ; writeln('Le nombre de jour est ',nb) ;
End.
NB:Une année bissextile est une année comptant 366 jours au lieu de 365, c'est-à-dire une année comprenant un 29 février (exemple 2012) sont bissextiles les années:
|
|
Date d'ajout de la page: 10/11/2013 Dernière mise à jour de la page: 10/11/2013 |
Dernière modification: 24 mai 2024
K i t e b . n e t © 2008-2024