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.
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
;
mois
Var :integer ;
BEGIN
Write('
Numero du mois: ') ;
Readln(mois) ;
mois
Case 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.