For/fr: what changed

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

Old	New		Line
1	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	2
3		-	`FOR ``control_variable`` := ``start`` `[[To/fr\|TO]]` ``final`` DO ``statement`
	3	+	``` pascal
	4	+	FOR control_variable := start TO final DO statement
	5	+	```
4	6
5	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
6	8
7		-	`FOR ``control_variable`` := ``start`` `[[Downto/fr\|DOWNTO]]` ``final`` do ``statement`
	9	+	``` pascal
	10	+	FOR control_variable := start DOWNTO final do statement
	11	+	```
8	12
9	13		qui diminue control_variable de 1 à chaque exécution de la boucle jusqu'à ce que la valeur soit inférieure ou égale à final
10	14
11	15		où control_variable Where control_variable est la variable mise à la valeur start au départ.
12	16
13	17		``` pascal
14	18		For I:=1 To 100 Do statement;
15	19		```
16	20
17	21		(répète statement 100 fois, en augmentant I de 1 à 100)
18	22
19	23		``` pascal
20	24		for I:=100 downto 1 do ''statement'';
21	25		```
22	26
23	27		(répète statement 100 fois, en diminuant I de 100 à 1)
24	28
25	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]].
26	30		- Dans une boucle for..to, si start est supérieur à final, la boucle n'est pas exécutée.
27	31		- Dans une boucle for..downto, si start is inférieur à final, la boucle n'est pas exécutée.
28	32
29	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.
30	34
31	35		## Variables enumérées
32	36
33	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 :
34	38
35	39		``` pascal
36	40		program Fruits;
37	41		type
38	42		TFruit = (fPomme, fPoire, fFraise, fMirabelle, fPrune, fFramboise, fCassis);
39	43		const
40	44		FruitTextes: array[TFruit] of String =
41	45		('Pomme', 'Poire', 'Fraise', 'Mirabelle', 'Prune', 'Framboise', 'Cassis');
42	46		begin
43	47		WriteLn(' Liste des fruits ');
44	48		for f := Low(TFruit) to High(TFruit) do
45	49		WriteLn(FruitTextes[f]);
46	50		End;
47	51
48	52		End.
49	53		```
50	54
51	55		## Extension de Pascal Objet
52	56
53	57		- [[for-in loop/fr\|Boucle for...in]]
54	58
55	59		L'exemple des fruits devient :
56	60
57	61		``` pascal
58	62		program Fruits;
59	63		type
60	64		TFruit = (fPomme, fPoire, fFraise, fMirabelle, fPrune, fFramboise, fCassis);
61	65		const
62	66		FruitTextes: array[TFruit] of String =
63	67		('Pomme', 'Poire', 'Fraise', 'Mirabelle', 'Prune', 'Framboise', 'Cassis');
64	68		begin
65	69		WriteLn(' Liste des fruits ');
66	70		for f in TFruit do
67	71		WriteLn(FruitTextes[f]);
68	72		End;
69	73
70	74		End.
71	75		```
72	76
73	77		Ce qui est plus joli, non ?
74	78
75	79		## Voir aussi
76	80
77	81		- [[Example: Why the loop variable should be of signed type]]
78	82
79	83		---
80	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).

Back to history