Section courante

A propos

Section administrative du site

BEGIN

 Début
Turbo Pascal 1+  

Syntaxe

Begin
...
End

Description

Cette instruction permet de définir le début d'un bloc d'instruction.

Remarques

Bonnes pratiques

Lorsque vous avez de multiple combinaisons de mot réservé «Begin» et «End» dans un procédure et programme et le corps du programme, il peut être difficile de déterminer où commence le corps du programme, comme dans l'exemple suivant :

  1. Program BeginBadSamples;
  2. { MAUVAISE PRATIQUE }
  3.  
  4. Procedure Proc1;Begin
  5.  Begin
  6.   While 0 = 1 do Begin
  7.    While true do Begin
  8.    End;
  9.   End;
  10.  End;
  11. End;
  12. Begin
  13. End.

Toutefois, si vous mettez toujours en majuscule «BEGIN» et «END» du corps du programme, on voit immédiatement la limite de la procédure et du corps du programme :

  1. Program BeginGoodSamples;
  2. { BONNE PRATIQUE }
  3.  
  4. Procedure Proc1;Begin
  5.  Begin
  6.   While 0 = 1 do Begin
  7.    While true do Begin
  8.    End;
  9.   End;
  10.  End;
  11. End;
  12.  
  13. BEGIN
  14. END.

Cette technique toute simple de mettre uniquement se bloque en majuscule rend beaucoup plus lisible n'importe quel code prenant beaucoup d'expansion.

Exemple

Voici quelques exemples typiques de l'utilisation de ce mot clef :

Essayer maintenant !
  1. Program BeginSamples;
  2.      
  3. Var
  4.  I:Byte;
  5.      
  6. BEGIN
  7.  Begin
  8.   WriteLn('Bonjour A');
  9.  End;
  10.  For I := 1 to 3 do Begin
  11.   WriteLn('Bonjour B');
  12.  End;
  13.  Begin
  14.   WriteLn('Bonjour C');
  15.  End;
  16. END.

on obtiendra le résultat suivant :

Bonjour A
Bonjour B
Bonjour B
Bonjour B
Bonjour C

Référence

Aide-mémoire de Turbo Pascal versions de 3 à 6, Edition Marabout, De Groote, Virga, 1992, ISBN: 2-501-01833-8, page 107.

Dernière mise à jour : Dimanche, le 25 janvier 2015