Accueil de Gladir.com Notes légales de Gladir.com Flux RSS des nouvelles du site Gladir.com - Turbo Pascal pour Windows - Boucle Section du logiciel DOS «MonsterBook» Inventaire de la bibliothèque de Gladir.com Entrée administrateur

Les instructions de boucle (aussi appelé instructions répétitives) en langage Pascal sont au nombres de trois mais permettent quand même de faire face à de nombreuses situations ou presque :

  • WHILE
  • REPEAT ... UNTIL
  • FOR

WHILE

L'instruction «WHILE» permet la comparaison au début de la boucle, avant même que la suite d'instruction inclus dans la boucle ne soit lancé! On peut voir cette instruction à la manière d'un «IF» se répétant tant et aussi longtemps que la condition est vrai. Voici donc sa syntaxe :

WHILE expression_vrai DO instruction_exécuté_si_vrai


Exemple

Cet exemple permet de montrer un simple boucle avec la variable «a» :

  1. Program WhileSamples;
  2.  
  3. Uses WinCrt;
  4.  
  5. Var a:Integer;
  6.  
  7. BEGIN
  8.  a := 0;
  9.  While a < 10 do Begin
  10.   WriteLn('a = ',a);
  11.   Inc(a);
  12.  End;
  13. END.

on obtiendra le résultat suivant :

a = 0
a = 1
a = 2
a = 3
a = 4
a = 5
a = 6
a = 7
a = 8
a = 9

REPEAT ... UNTIL

L'instruction «REPEAT ... UNTIL» oblige à répéter une boucle jusqu'à ce que la condition soit finalement vrai. Ainsi, tant que la condition est fausse, la boucle est répétée. Ainsi le principe de fonctionnement est simple, on execute les instructions, on effectue un teste pour vérifier si la condition est fausse, on revient au début et on recommence sinon on poursuit à l'instruction suivante. Voici enfin sa syntaxe :

REPEAT
 instruction
UNTIL expression_fausse


Exemple

Cet exemple permet d'effectuer une simple boucle :

  1. Program RepeatSamples;
  2.  
  3. Uses WinCrt;
  4.  
  5. Var I:Byte;
  6.  
  7. BEGIN
  8.  i := 0;
  9.  Repeat
  10.   WriteLn('i = ',i);
  11.   Inc(i);
  12.  Until i >= 10;
  13. END.

on obtiendra le résultat suivant :

i = 0
i = 1
i = 2
i = 3
i = 4
i = 5
i = 6
i = 7
i = 8
i = 9

FOR

Avec «Pascal» l'instruction permettant d'effectuer des compteurs de boucles est «FOR». L'«expression1» permet d'identifier la variable devant être utilisé pour effectuer le compteur de boucle. L'«expression2» est la valeur de départ ou d'initialisation du compteur de boucle. L'«expression3» est la valeur de fin du compteur de boucle. Voici enfin sa syntaxe :

FOR expression1 := expression2 TO expression3 DO instruction;


Exemple

Cet exemple permet d'effectuer un saut de 1 dans une boucle :

  1. Program ForSamples;
  2.  
  3. Uses WinCrt;
  4.  
  5. Var
  6.  I:Integer;
  7.  
  8. BEGIN
  9.  For i := 0 to 10 do Begin
  10.   WriteLn('i = ',i);
  11.  End;
  12. END.

on obtiendra le résultat suivant :

i = 0
i = 1
i = 2
i = 3
i = 4
i = 5
i = 6
i = 7
i = 8
i = 9
i = 10


Dernière mise à jour: Samedi, le 24 septembre 2011