Difference between revisions of "For/fr"
m |
m (Fixed syntax highlighting; deleted category included in page template) |
||
Line 12: | Line 12: | ||
Where ''control_variable'' est la variable mise à la valeur ''start'' au départ. | Where ''control_variable'' est la variable mise à la valeur ''start'' au départ. | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
For I:=1 To 100 Do statement; | For I:=1 To 100 Do statement; | ||
</syntaxhighlight> | </syntaxhighlight> | ||
(répète ''statement'' 100 fois, en augmentant I de 1 à 100) | (répète ''statement'' 100 fois, en augmentant I de 1 à 100) | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
for I:=100 downto 1 do ''statement''; | for I:=100 downto 1 do ''statement''; | ||
</syntaxhighlight> | </syntaxhighlight> | ||
Line 31: | Line 31: | ||
[[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 : | [[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 : | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
program Fruits; | program Fruits; | ||
type | type | ||
Line 50: | Line 50: | ||
* [[for-in_loop/fr|Boucle for...in]] | * [[for-in_loop/fr|Boucle for...in]] | ||
L'exemple des fruits devient : | L'exemple des fruits devient : | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
program Fruits; | program Fruits; | ||
type | type | ||
Line 72: | Line 72: | ||
{{Keywords/fr}} | {{Keywords/fr}} | ||
− | |||
− | |||
− | |||
− |
Latest revision as of 01:30, 16 February 2020
│
Deutsch (de) │
English (en) │
français (fr) │
русский (ru) │
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 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 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
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
Mots-clés: begin — do — else — end — for — if — repeat — then — until — while