Section courante

A propos

Section administrative du site

FOR

 Pour
Turbo Pascal 1+

Syntaxe

FOR compt := init TO fin DO inst;
FOR compt := init DownTo fin DO inst;

Paramètres

Nom Description
compt Ce paramètre permet d'indiquer la variable utiliser pour le compteur de boucle
init Ce paramètre permet d'indiquer la valeur de départ du compteur
fin Ce paramètre permet d'indiquer la valeur de fin du compteur
inst Ce paramètre permet d'indiquer les instructions subissant le traitement de la boucle de compteur

Description

Ce mot réservé permet de produire un compteur de boucle.

Exemples

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

Essayer maintenant !
  1. Program ForSamples;
  2.      
  3. Var
  4.  I:Integer;
  5.      
  6. BEGIN
  7.  For i := 0 to 10 do Begin
  8.   WriteLn('i = ',i);
  9.  End;
  10. 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

Cet exemple permet de changer un format «jj/mm/aaa» en «mm/jj/aaa» :

Essayer maintenant !
  1. Program JMA2MJA;
  2.  
  3. Function JMAToMJA(Const S:String):String;
  4. Var
  5.  T:Array[1..3]of String;
  6.  J,I:Byte;
  7. Begin
  8.  I:=1;
  9.  For J:=1 to 3 do Begin
  10.   T[J]:='';
  11.   While S[I] <> '/' do Begin
  12.    T[J] := T[J] + S[I];
  13.    Inc(I);
  14.    If I > Length(S)Then Break;
  15.   End;
  16.   Inc(I);
  17.  End;
  18.  JMAToMJA := T[2] + '/' + T[1] + '/' + T[3];
  19. End;
  20.  
  21. BEGIN
  22.  WriteLn('jj/mm/aaa=',JMAToMJA('jj/mm/aaa'));
  23.  WriteLn('31/12/101=',JMAToMJA('31/12/101'));
  24.  WriteLn('01/01/101=',JMAToMJA('31/12/101'));
  25.  WriteLn('jj/mm/aaaa=',JMAToMJA('jj/mm/aaaa'));
  26.  WriteLn('31/09/2001=',JMAToMJA('31/09/2001'));
  27. END.

on obtiendra le résultat suivant :

jj/mm/aaa=mm/jj/aaa
31/12/101=12/31/101
01/01/101=12/31/101
jj/mm/aaaa=mm/jj/aaaa
31/09/2001=09/31/2001

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 184 à 185.

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