Section courante

A propos

Section administrative du site

CASE OF

Cas de
Turbo Pascal 1+

Syntaxe

CASE select OF
 etiquette1: instruction1;
 etiquette2: instruction2;
 ...
 etiquetten: instructionn;
 ELSE instructionautre;
END;

Paramètres

Nom Description
select Ce paramètre permet d'indiquer l'expression à évaluer
etiquette1, etiquette2, etiquetten Ce paramètre permet d'indiquer une valeur à évaluer
instruction1, instruction2, instructionn Ce paramètre permet d'indiquer l'instruction exécuté si la valeur correspond
instructionautre Ce paramètre permet d'indiquer l'instruction exécuté si aucune valeur ne correspond

Description

Ce mot réservé permet de définir une liste de conditionnels ayant comme point de comparaison un même résultat.

Remarques

Exemple

Cet exemple permet d'évaluer la valeur de la variable «a» :

Essayer maintenant !
  1. Program CaseOfSamples;
  2.      
  3. Const a:Integer = 2;
  4.      
  5. BEGIN
  6.  Case a of
  7.    1,2,3:WriteLn('Entre 1 et 3');
  8.    4,5,6:WriteLn('Entre 4 et 6');
  9.    7:WriteLn('C''est 7');
  10.    Else WriteLn('Inférieur ou égale à 0 ou supérieur à 8');
  11.  End; 
  12. END.

on obtiendra le résultat suivant :

Entre 1 et 3

Référence

Aide-mémoire de Turbo Pascal versions de 3 à 6, Edition Marabout, De Groote, Virga, 1992, ISBN: 2-501-01833-8, page 115 à 116.

Dernière mise à jour : Mardi, le 17 mars 2015