Section courante

A propos

Section administrative du site

LABEL

 Étiquette
Turbo Pascal pour Windows

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é :

  1. Program LabelSamples;
  2.  
  3. Uses WinCrt;
  4.  
  5. Label 10,BreakAll;
  6.  
  7. Var
  8.  i,j:Integer;
  9.  
  10. BEGIN
  11.  Goto 10;
  12.  Exit;
  13. 10:
  14.  For i:=0 to 10 do Begin
  15.   If i < 0 Then Goto BreakAll;
  16.  End;
  17.  For j:=0 to 10 do Begin
  18.   WriteLn('J = ',j);
  19.  End;
  20. BreakAll:
  21. 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

Dernière mise à jour : Dimanche, le 10 décembre 2017