Section courante

A propos

Section administrative du site

DO

 Faire
Free Pascal  

Syntaxe

for Variable := Expression to Expression do Statement;
for each el: String in mylist do
while Expression do Statement;
try Statements except on ExceptionClass do Statement; end;
with Expression do Statement;

Description

Ce mot réservé permet d'indiquer des instructions a exécuter ou traiter selon un certain contexte.

Exemple

Voici quelques exemples typiques de l'utilisation de ce mot réservé :

  1. Program DoSamples;
  2.  
  3. {$MODE Delphi}
  4.  
  5. Uses SysUtils;
  6.  
  7. Var
  8.  Enregistrement:Record
  9.   champA,champB:Integer;
  10.  End;
  11.  I:Integer;
  12.  
  13. BEGIN
  14.  With Enregistrement do Begin
  15.   champA := -10;
  16.   champB := 3;
  17.   For I:=champA to champB do Begin
  18.    Try
  19.     WriteLn('I = ',I,', 1/I = ',1/I:0:2);
  20.    Except
  21.     On EDivByZero do WriteLn('Division par 0');
  22.    End;
  23.   End;
  24.  End;
  25. END.

on obtiendra le résultat suivant :

I = -10, 1/I = -0.10
I = -9, 1/I = -0.11
I = -8, 1/I = -0.13
I = -7, 1/I = -0.14
I = -6, 1/I = -0.17
I = -5, 1/I = -0.20
I = -4, 1/I = -0.25
I = -3, 1/I = -0.33
I = -2, 1/I = -0.50
I = -1, 1/I = -1.00
I = 0, 1/I = Division par 0
I = 1, 1/I = 1.00
I = 2, 1/I = 0.50
I = 3, 1/I = 0.33

Dernière mise à jour : Dimanche, le 28 février 2016