Section courante

A propos

Section administrative du site

IF

 Si
QuickPascal  

Syntaxe

If exp_bool Then inst1;
If exp_bool Then inst1 else Inst2;

Paramètres

Nom Description
exp_bool Ce paramètre permet d'indiquer une expression booléen devant être vrai
inst1 Ce paramètre permet d'indiquer l'instruction exécuté si la condition est vrai
Inst2 Ce paramètre permet d'indiquer l'instruction exécuté 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. Program BoolSamp;
  2.      
  3. Const MyValue:Boolean=False;
  4.      
  5. BEGIN
  6.  If(myvalue)Then Begin
  7.   WriteLn('La valeur est vrai');
  8.  End 
  9.   Else
  10.  Begin
  11.   WriteLn('La valeur est fausse');
  12.  End;
  13. END.

on obtiendra le résultat suivant :

La condition est vrai

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

  1. Program IfSamples2;
  2.  
  3. BEGIN
  4.  If False Then WriteLn('FALSE');
  5.  If Not False Then WriteLn('NOT FALSE');
  6.  If True Then WriteLn('TRUE');
  7.  If Not True Then WriteLn('NOT TRUE');
  8.  If Boolean(0)Then WriteLn('0');
  9.  If Boolean(Abs(NOT 0))Then WriteLn('NOT 0');
  10.  If Not Boolean(0)Then WriteLn('NOT(0)');
  11.  If Boolean(1)Then WriteLn('1');
  12.  If Not Boolean(1)Then WriteLn('NOT(1)');
  13.  If 100 > 300 Then WriteLn('100 > 300');
  14.  If Boolean(1-Byte(100 > 300))Then WriteLn('1-(100 > 300)');
  15. END.

on obtiendra le résultat suivant :

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

Dernière mise à jour : Vendredi, le 13 février 2015