Section courante

A propos

Section administrative du site

IF

Si
Turbo Pascal 1+  

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 :

Essayer maintenant !
  1. Program IfSamples;
  2.  
  3. BEGIN
  4.  If True Then WriteLn('La condition est vrai');
  5. END.

on obtiendra le résultat suivant :

La condition est vrai

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

Essayer maintenant !
  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(NOT 0)Then WriteLn('NOT 0');
  10.  If Not Boolean(0)Then WriteLn('NOT(0)');
  11.  If Boolean(1)Then WriteLn('1');
  12.  If Boolean(NOT 1)Then WriteLn('NOT 1');
  13.  If Not Boolean(1)Then WriteLn('NOT(1)');
  14.  If 100 > 300 Then WriteLn('100 > 300');
  15.  If Boolean(1-Byte(100 > 300))Then WriteLn('1-(100 > 300)');
  16. END.

on obtiendra le résultat suivant :

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

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 247 à 248.

Dernière mise à jour : Dimanche, le 25 janvier 2015