Bac scientifiques

la structure conditionnelle

Corrigé :

Algorithme :

0. Début mots

1. Ecrire("Saisir une chaine de caractère :"), lire(ch)

2. message <-- "Plusieurs mots"

3. si pos(" ",ch)=0 alors Message <-- '' un seul mot''

Finsi

4. Ecrire(Message) 

5. Fin mots

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 :

0. Début mois

2. Ecrire(''Donner le n° de mois''), lire(n)

3. Selon n faire

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

4. Ecrire(''Le nombre de jour est '',nb)

5. Fin mois

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:

• divisibles par 4 mais non divisibles par 100

• divisibles par 400.