For/fr

keyword utilisé avec "to" ou "downto" et "do" pour parcourir une boucle dans laquelle la variable de contrôle est incrémentée ou décrémentée de 1 à chaque fois :

FOR _control_variable_??:= _start_ [[To/fr|TO]] _final_ DO _statement_

qui augmente control_variable de 1 à chaque exécution de la boucle jusqu'à ce que la valeur soit supérieure ou égale à final ou

FOR _control_variable_??:= _start_ [[Downto/fr|DOWNTO]] _final_ do _statement_

qui diminue control_variable de 1 à chaque exécution de la boucle jusqu'à ce que la valeur soit inférieure ou égale à final

où control_variable Where control_variable est la variable mise à la valeur start au départ.

For I:=1 To 100 Do statement;

(répète statement 100 fois, en augmentant I de 1 à 100)

for I:=100 downto 1 do ''statement'';

(répète statement 100 fois, en diminuant I de 100 à 1)

• FOR bouclera l'unique instruction qui le suit. Pour exécute plus d'une instruction, il faut entourer la séquence d'instructions avec un bloc Begin/End.
• Dans une boucle for..to, si start est supérieur à final , la boucle n'est pas exécutée.
• Dans une boucle for..downto, si start is inférieur à final , la boucle n'est pas exécutée.

After the loop, the value of control_variable will be final. If the loop was not executed, the value of control_variable does not change.

Variables enumérées

Pascal permet d'employer une variable de contrôle d'un type énuméré (par exemple un booléen) au lieu d'un variable entière :

program Fruits;
    type
      TFruit = (fPomme, fPoire, fFraise, fMirabelle, fPrune, fFramboise, fCassis);
    const
      FruitTextes: array[TFruit] of String =
        ('Pomme', 'Poire', 'Fraise', 'Mirabelle', 'Prune', 'Framboise', 'Cassis');
    begin
      WriteLn('** Liste des fruits **');
      for f := Low(TFruit) to High(TFruit) do
        WriteLn(FruitTextes[f]); 
    End;
    
    End.

Extension de Pascal Objet

• Boucle for...in

L'exemple des fruits devient :

program Fruits;
    type
      TFruit = (fPomme, fPoire, fFraise, fMirabelle, fPrune, fFramboise, fCassis);
    const
      FruitTextes: array[TFruit] of String =
        ('Pomme', 'Poire', 'Fraise', 'Mirabelle', 'Prune', 'Framboise', 'Cassis');
    begin
      WriteLn('** Liste des fruits **');
      for f in TFruit do
        WriteLn(FruitTextes[f]); 
    End;
    
    End.

Ce qui est plus joli, non ?

Voir aussi

• Example: Why the loop variable should be of signed type

Mots-clés: begin — do — else — end — for — if — repeat — then — until — while

From the Free Pascal wiki, page "For/fr", as the Internet Archive kept it on 2025-01-14, last changed on 2020-02-16. Copyright stays with the author who wrote it, according to the old wiki's Licensing page. If you have concerns about this material, message the admin.