Section courante

A propos

Section administrative du site

CASE

 Case
Ada

Syntaxe

CASE select IS
 WHEN etiquette1 =>
 instruction1;
 WHEN etiquette2 =>
 instruction2;
 WHEN etiquetten =>
 instructionn;
 WHEN OTHERS =>
 instructionautre;
END CASE;

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.

Exemple

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

  1. WITH TEXT_IO; USE TEXT_IO;
  2.  
  3. PROCEDURE CaseSamples IS 
  4.    a:Integer;
  5.  
  6. BEGIN
  7.    a:= 2;
  8.    CASE A IS
  9.       WHEN 1|2|3 => PUT_LINE("Entre 1 et 3");
  10.       WHEN 4|5|6 => PUT_LINE("Entre 4 et 6");
  11.       WHEN 7 => PUT_LINE("C'est 7");
  12.       WHEN OTHERS => PUT_LINE("Inférieur ou égale à 0 ou supérieur à 8");
  13.    END CASE;  
  14. END CaseSamples;

on obtiendra le résultat suivant :

Entre 1 et 3

Dernière mise à jour : Dimanche, le 1er avril 2018