Sign in Join
Wiki copytemporary

For/fr: what changed

Revision 3 to 4. Removed lines have a minus sign; added lines have a plus sign.

OldNewLine
1-[[Keyword/fr|keyword]] utilisé avec "[[To/fr|to]]" ou "[[Downto/fr|downto]]" et "[[Do/fr|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 :
2-
3-``` pascal
4-FOR control_variable := start TO final DO statement
1+[[Keyword/fr|keyword]] utilisé avec "[[To/fr|to]]" ou "[[Downto/fr|downto]]" et "[[Do/fr|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 :
52```
6-
7-qui augmente *control_variable* de 1 à chaque exécution de la boucle jusqu'à ce que la valeur soit supérieure ou égale à *final* ou
8-
9-``` pascal
10-FOR control_variable := start DOWNTO final do statement
3+FOR _control_variable_ := _start_ [[To/fr|TO]] _final_ DO _statement_
114```
125
13-qui diminue *control_variable* de 1 à chaque exécution de la boucle jusqu'à ce que la valeur soit inférieure ou égale à *final*
6+qui augmente _control_variable_ de 1 à chaque exécution de la boucle jusqu'à ce que la valeur soit supérieure ou égale à _final_ ou
7+```
8+FOR _control_variable_ := _start_ [[Downto/fr|DOWNTO]] _final_ do _statement_
9+```
1410
15-où *control_variable* Where *control_variable* est la variable mise à la valeur *start* au départ.
11+qui diminue _control_variable_ de 1 à chaque exécution de la boucle jusqu'à ce que la valeur soit inférieure ou égale à _final_
1612
17-``` pascal
13+où _control_variable_ Where _control_variable_ est la variable mise à la valeur _start_ au départ.
14+```
1815For I:=1 To 100 Do statement;
1916```
2017
21-(répète *statement* 100 fois, en augmentant I de 1 à 100)
22-
23-``` pascal
24- for I:=100 downto 1 do ''statement'';
18+(répète _statement_ 100 fois, en augmentant I de 1 à 100)
2519```
20+for I:=100 downto 1 do ''statement'';
21+```
2622
27-(répète *statement* 100 fois, en diminuant I de 100 à 1)
23+(répète _statement_ 100 fois, en diminuant I de 100 à 1)
2824
29-- 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/fr|Begin]]/[[End/fr|End]].
30-- Dans une boucle for..to, si *start* est supérieur à *final*, la boucle n'est pas exécutée.
31-- Dans une boucle for..downto, si *start* is inférieur à *final*, la boucle n'est pas exécutée.
25+ * 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/fr|Begin]]/[[End/fr|End]].
26+ * Dans une boucle for..to, si _start_ est supérieur à _final_ , la boucle n'est pas exécutée.
27+ * Dans une boucle for..downto, si _start_ is inférieur à _final_ , la boucle n'est pas exécutée.
3228
33-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.
29+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.
3430
3531## Variables enumérées
3632
37-[[Pascal/fr|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 :
38-
39-``` pascal
33+[[Pascal/fr|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 :
34+```
4035program Fruits;
41-type
42- TFruit = (fPomme, fPoire, fFraise, fMirabelle, fPrune, fFramboise, fCassis);
43-const
44- FruitTextes: array[TFruit] of String =
45- ('Pomme', 'Poire', 'Fraise', 'Mirabelle', 'Prune', 'Framboise', 'Cassis');
46-begin
47- WriteLn('** Liste des fruits **');
48- for f := Low(TFruit) to High(TFruit) do
49- WriteLn(FruitTextes[f]);
50-End;
51-
52-End.
36+ type
37+ TFruit = (fPomme, fPoire, fFraise, fMirabelle, fPrune, fFramboise, fCassis);
38+ const
39+ FruitTextes: array[TFruit] of String =
40+ ('Pomme', 'Poire', 'Fraise', 'Mirabelle', 'Prune', 'Framboise', 'Cassis');
41+ begin
42+ WriteLn('** Liste des fruits **');
43+ for f := Low(TFruit) to High(TFruit) do
44+ WriteLn(FruitTextes[f]);
45+ End;
46+
47+ End.
5348```
5449
5550## Extension de Pascal Objet
5651
57-- [[for-in loop/fr|Boucle for...in]]
58-
59-L'exemple des fruits devient :
52+ * [[for-in loop/fr|Boucle for...in]]
6053
61-``` pascal
54+L'exemple des fruits devient :
55+```
6256program Fruits;
63-type
64- TFruit = (fPomme, fPoire, fFraise, fMirabelle, fPrune, fFramboise, fCassis);
65-const
66- FruitTextes: array[TFruit] of String =
67- ('Pomme', 'Poire', 'Fraise', 'Mirabelle', 'Prune', 'Framboise', 'Cassis');
68-begin
69- WriteLn('** Liste des fruits **');
70- for f in TFruit do
71- WriteLn(FruitTextes[f]);
72-End;
73-
74-End.
57+ type
58+ TFruit = (fPomme, fPoire, fFraise, fMirabelle, fPrune, fFramboise, fCassis);
59+ const
60+ FruitTextes: array[TFruit] of String =
61+ ('Pomme', 'Poire', 'Fraise', 'Mirabelle', 'Prune', 'Framboise', 'Cassis');
62+ begin
63+ WriteLn('** Liste des fruits **');
64+ for f in TFruit do
65+ WriteLn(FruitTextes[f]);
66+ End;
67+
68+ End.
7569```
7670
77-Ce qui est plus joli, non ?
71+Ce qui est plus joli, non ?
7872
7973## Voir aussi
8074
81-- [[Example: Why the loop variable should be of signed type]]
75+ * [[Example: Why the loop variable should be of signed type]]
8276
77+
78+
79+**Mots-clés:** [[Begin/fr|begin]] — [[Do/fr|do]] — [[Else/fr|else]] — [[End/fr|end]] — for — [[If/fr|if]] — [[Repeat/fr|repeat]] — [[Then/fr|then]] — [[Until/fr|until]] — [[While/fr|while]]
80+
8381---
84-*From the Free Pascal wiki, page "For/fr", as it stood on 2020-02-15 after a change by Trev, out of the wiki's dump of 2024-05-26. 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](/wiki-contact).*
82+*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](/wiki-contact).*

Back to history