Conditionnelles généralisée et à choix

Avant de commencer

Vous voulez afficher la mention en fonction de la note. Avec Si...Sinon imbriqué, le code devient illisible dès 3-4 cas. Existe-t-il une structure plus claire ?

1. La conditionnelle généralisée : Si…Sinon Si…Sinon

Si note >= 16 Alors
  mention ← "Très Bien"
Sinon Si note >= 14 Alors
  mention ← "Bien"
Sinon Si note >= 12 Alors
  mention ← "Assez Bien"
Sinon Si note >= 10 Alors
  mention ← "Passable"
Sinon
  mention ← "Recalé"
FinSi

Si note >= 16 Alors
  mention ← "Très Bien"
Sinon Si note >= 14 Alors
  mention ← "Bien"
Sinon Si note >= 12 Alors
  mention ← "Assez Bien"
Sinon Si note >= 10 Alors
  mention ← "Passable"
Sinon
  mention ← "Recalé"
FinSi

IF note >= 16 THEN
  mention := 'Très Bien'
ELSE IF note >= 14 THEN
  mention := 'Bien'
ELSE IF note >= 12 THEN
  mention := 'Assez Bien'
ELSE IF note >= 10 THEN
  mention := 'Passable'
ELSE
  mention := 'Recalé';

2. La structure à choix : Selon

Quand on compare une même variable à plusieurs valeurs précises, Selon (CASE en Pascal) est plus lisible.

Selon jour Faire
  1, 2, 3, 4, 5 : Ecrire("Semaine")
  6, 7 : Ecrire("Week-end")
  Sinon : Ecrire("Jour invalide")
FinSelon

Selon jour Faire
  1, 2, 3, 4, 5 : Ecrire("Semaine")
  6, 7 : Ecrire("Week-end")
  Sinon : Ecrire("Jour invalide")
FinSelon

CASE jour OF
  1, 2, 3, 4, 5 : Writeln('Semaine');
  6, 7          : Writeln('Week-end');
ELSE
  Writeln('Jour invalide');
END;

Règles importantes

1. La variable testée doit être de type ordinal (entier, caractère, booléen, énuméré). Pas de réel, pas de chaîne.
2. Les branches sont exclusives : une seule s'exécute.
3. On peut grouper des valeurs avec , ou des intervalles avec .. (Pascal accepte 1..5).

CASE c OF
  'a'..'z', 'A'..'Z' : Writeln('Lettre');
  '0'..'9'           : Writeln('Chiffre');
ELSE
  Writeln('Autre');
END;

3. Quand utiliser quoi ?

4. Exercices

CASE mois OF
  12, 1, 2 : Writeln('Hiver');
  3..5     : Writeln('Printemps');
  6..8     : Writeln('Été');
  9..11    : Writeln('Automne');
ELSE
  Writeln('Mois invalide');
END;

PROGRAM Piscine;
VAR
  age : integer;
  tarif : real;
BEGIN
  Write('Âge : ');
  Readln(age);
  CASE age OF
    0..5   : tarif := 0;
    6..12  : tarif := 2;
    13..17 : tarif := 4;
    18..64 : tarif := 6;
  ELSE
    tarif := 3; { 65 et plus }
  END;
  Writeln('Tarif : ', tarif:3:2, ' DT');
END.

PROGRAM Lettre;
VAR
  c : char;
BEGIN
  Readln(c);
  CASE c OF
    'a', 'e', 'i', 'o', 'u', 'y',
    'A', 'E', 'I', 'O', 'U', 'Y' : Writeln('Voyelle');
    'b'..'d', 'f'..'h', 'j'..'n', 'p'..'t', 'v'..'x', 'z',
    'B'..'D', 'F'..'H', 'J'..'N', 'P'..'T', 'V'..'X', 'Z' : Writeln('Consonne');
  ELSE
    Writeln('Autre');
  END;
END.

5. Erreurs fréquentes au bac

• Utiliser Selon sur une variable réelle → erreur de compilation.
• Oublier Sinon (ou ELSE Pascal) → cas non couverts silencieusement.
• Mauvais ordre des conditions dans Sinon Si (du plus restrictif au moins).

6. Quiz