Section courante

A propos

Section administrative du site

IF

Si
Turbo Pascal pour Windows

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 IfSamples;
  2.  
  3. Uses WinCrt;
  4.  
  5. BEGIN
  6.  If True Then WriteLn('La condition est vrai');
  7. END.

on obtiendra le résultat suivant :

La condition est vrai

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

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

on obtiendra le résultat suivant :

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

Voir également

Langage de programmation - Turbo Pascal - Référence de procédures et fonctions - IF

Dernière mise à jour : Dimanche, le 10 décembre 2017