structure de choix multiple en pascal

Elle évite d'utiliser une trop grande suite de ELSE IF.

structure : CASE expression OF {regardez bien où j'ai mis les ;}
liste_de_cas1:instruction1;
liste_de_cas2:instruction2;
.....
liste_de_casN:instructionN
END
L'instruction i sera exécutée si l'expression appartient à la liste_de_cas i. Les autres ne seront pas exécutées (on passe directement au END). L'expression doit être de type énuméré (pas de réels).
En TURBO PASCAL, on accepte une liste_de_cas particulière qui est ELSE (et doit être placée en dernier), pour prévoir le cas où expression n'appartient à aucun des cas cités au dessus. En MS-PASCAL on utilise de même OTHERWISE.

ex: CASE a*b OF (* avec a et b déclarés entiers *)
0 : writeln('un des nombres est nul');
1,10,100,1000,10000 : writeln('le produit est une puissance de 10');
(* 100000 est impossible en TURBO car supérieur à MAXINT *)
END;
Attention certains compilateurs n'acceptent pas de passer sur un CASE avec une valeur prévue dans aucune liste de cas.