Section courante

A propos

Section administrative du site

LABEL

Étiquette
Turbo Pascal 1+

Syntaxe

Label etiq1,etiq2,...;

Paramètres

Nom Description
etiq1, etiq2 Ce paramètre permet d'indiquer le nom des étiquettes

Description

Ce mot réservé permet de définir des étiquettes utilisable habituellement par l'instruction «GOTO» ou comme adressage dans le code assembleur.

Exemple

Cet exemple permet de montrer l'utilisation de se mot réservé :

Essayer maintenant !
  1. Program LabelSamples;
  2.          
  3. Label 10,BreakAll;
  4.          
  5. Var
  6.  i,j:Integer;
  7.         
  8. BEGIN
  9.  Goto 10;
  10.  Exit;
  11. 10:
  12.  For i:=0 to 10 do Begin
  13.   If i < 0 Then Goto BreakAll;
  14.  End;
  15.  For j:=0 to 10 do Begin
  16.   WriteLn('J = ',j);
  17.  End;
  18. BreakAll:
  19. END.

on obtiendra le résultat suivant :

J = 0
J = 1
J = 2
J = 3
J = 4
J = 5
J = 6
J = 7
J = 8
J = 9
J = 10

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 275.

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