IF |
Si |
|---|---|
| Ada | |
Syntaxe
|
IF exp_bool THEN inst1; END IF; |
|
IF exp_bool THEN inst1 ELSE Inst2; END IF; |
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 :
on obtiendra le résultat suivant :
La condition est vraiCes exemples, en Ada, permet de tester le mot réservé «IF» d'un peu toute les façons :
- with TEXT_IO; use TEXT_IO;
-
- PROCEDURE If2Samples IS
-
- FUNCTION IntegerToBoolean(Value:Integer) RETURN Boolean IS BEGIN
- IF Value = 0 THEN
- RETURN FALSE;
- ELSE
- RETURN TRUE;
- END IF;
- END IntegerToBoolean;
-
- FUNCTION NotInteger(Value:IN Integer) RETURN Integer IS BEGIN
- Return -(Value + 1);
- END NotInteger;
-
- BEGIN
- IF False THEN
- PUT_LINE("FALSE");
- END IF;
- IF NOT False THEN
- PUT_LINE("NOT FALSE");
- END IF;
- IF True THEN
- PUT_LINE("TRUE");
- END IF;
- IF NOT True THEN
- PUT_LINE("NOT TRUE");
- END IF;
- IF IntegerToBoolean(0) THEN
- PUT_LINE("0");
- END IF;
- IF IntegerToBoolean(-1) THEN
- PUT_LINE("NOT 0");
- END IF;
- IF IntegerToBoolean(NotInteger(0)) THEN
- PUT_LINE("NOT(0)");
- END IF;
- IF IntegerToBoolean(1) THEN
- PUT_LINE("1");
- END IF;
- IF IntegerToBoolean(NotInteger(1)) THEN
- PUT_LINE("NOT 1");
- END IF;
- IF NOT IntegerToBoolean(1) THEN
- PUT_LINE("NOT(1)");
- END IF;
- IF 100 > 300 THEN
- PUT_LINE("100 > 300");
- END IF;
- IF IntegerToBoolean(1-Boolean'POS(100 > 300))THEN
- PUT_LINE("1-(100 > 300)");
- END IF;
- END If2Samples;
on obtiendra le résultat suivant :
NOT FALSETRUE
NOT 0
NOT(0)
1
NOT 1
1-(100 > 300)
Dernière mise à jour : Dimanche, le 1er avril 2018