Enseignement > Pascal > Cours > Structures alternatives  

If ... Then ... Else

Cette instruction permet de tester une expression booléenne puis d'exécuter un bloc d'insructions ou un autre selon le résultat du test

Program Exemple_de_test;
Var chiffre:integer ;
BEGIN

Write('Entrez un entier pas trop grand : ') ;
Readln(chiffre) ;
If chiffre < 100
   then writeln(chiffre, ' est inférieur à cent.')
   else writeln(chiffre, ' est supérieur ou égale à cent.');

END.

2. Case ... Of ... End

Cette instruction compare la valeur d'une variable de type entier ou caractère (et de manière générale de type intervalle) à tout une liste d'autres valeurs constantes.

Note : attention Case ... of ne permet de comparer une variable qu'avec des constantes.

Program exemple_case_of ;
Var
mois
:integer ;
BEGIN

Write('Numero du mois: ') ;
Readln(mois
) ;
Case 
mois
of

1,3,5,7,8,10,12: writeln('31 jours') ;
4,6,9,11: writeln('30 jours')

2 : writeln('28 ou 29 jours selon que l'année est bissextile ou non
')
Else writeln('les mois ont un numéro compris entre 1 et 12'
) ;

End ;

END.