Section courante

A propos

Section administrative du site

IF

 Si
Oberon

Syntaxe

IF exp_bool THEN
inst1;
END;
IF exp_bool THEN
inst1
ELSE
Inst2;
END;

Paramètres

Nom Description
exp_bool Ce paramètre permet d'indiquer la condition à vérifier
inst1 Ce paramètre permet d'indiquer les instructions exécutés si la condition est vrai.
Inst2 Ce paramètre permet d'indiquer les instructions exécutés si la condition est fausse.

Description

Ce mot réservé permet d'effectuer des branchements d'instruction ou de bloc d'instruction en fonction de certaines conditions.

Exemples

Cet exemple permet de tester une condition vrai :

  1. MODULE IfSamples;
  2.  
  3. IMPORT Out;
  4.      
  5. BEGIN
  6.  IF TRUE THEN 
  7.   Out.String('La condition est vrai');
  8.   Out.Ln;
  9.  END;
  10. END IfSamples.

on obtiendra le résultat suivant :

La condition est vrai

Ces exemples, en Oberon, permet de tester le mot réservé «IF» d'un peu toute les façons :

  1. MODULE IfSamples2;
  2.  
  3. IMPORT SYSTEM,Bit,Out;
  4.      
  5. BEGIN
  6.  IF FALSE THEN 
  7.   Out.String("FALSE");
  8.   Out.Ln;
  9.  END;
  10.  IF FALSE # TRUE THEN
  11.   Out.String("NOT FALSE");
  12.   Out.Ln;
  13.  END;
  14.  IF TRUE THEN 
  15.   Out.String("TRUE");
  16.   Out.Ln;
  17.  END;
  18.  IF TRUE # TRUE THEN 
  19.   Out.String("NOT TRUE"); 
  20.   Out.Ln;
  21.  END;
  22.  IF SYSTEM.VAL(BOOLEAN,0)THEN 
  23.   Out.String("0"); 
  24.   Out.Ln;
  25.  END;
  26.  IF SYSTEM.VAL(BOOLEAN,0 # 1)THEN 
  27.   Out.String("NOT 0");
  28.   Out.Ln;
  29.  END;
  30.  IF SYSTEM.VAL(BOOLEAN,0) # TRUE THEN 
  31.   Out.String("NOT(0)");
  32.   Out.Ln;
  33.  END;
  34.  IF SYSTEM.VAL(BOOLEAN,1)THEN 
  35.   Out.String("1");
  36.   Out.Ln;
  37.  END;
  38.  IF SYSTEM.VAL(BOOLEAN,Bit.Not(1))THEN 
  39.   Out.String("NOT 1");
  40.   Out.Ln;
  41.  END;
  42.  IF SYSTEM.VAL(BOOLEAN,1) # TRUE THEN 
  43.   Out.String("NOT(1)");
  44.   Out.Ln;
  45.  END;
  46.  IF 100 > 300 THEN 
  47.   Out.String("100 > 300");
  48.   Out.Ln;
  49.  END;
  50.  IF SYSTEM.VAL(BOOLEAN,1-SYSTEM.VAL(INTEGER,100 > 300))THEN 
  51.   Out.String("1-(100 > 300)");
  52.   Out.Ln;
  53.  END;
  54. END IfSamples2.

on obtiendra le résultat suivant :

NOT FALSE
TRUE
NOT 0
NOT(0)
1
NOT 1
1-(100 > 300)

Dernière mise à jour : Samedi, le 7 avril 2018