Section courante

A propos

Section administrative du site

ARRAY

Tableau
Turbo Pascal 1+

Syntaxe

Array[debut..fin] of type_de_base
Array[typescalaire] of type_de_base
Version 1+
Array of type_de_base Version 7+

Paramètres

Nom Description
debut Ce paramètre permet d'indiquer la borne inférieur
fin Ce paramètre permet d'indiquer la borne supérieur
typescalaire Ce paramètre permet d'indiquer un type scalaire comme ShortInt, Integer, Byte, Word, Boolean, Char ou numérique.
type_de_base Ce paramètre permet d'indiquer un type de données

Description

Cet opérateur permet de définir des tableaux avec des valeurs scalaires.

Bonnes pratiques

Une des mauvaises pratiques les plus répondu en Turbo Pascal consiste à indiquer des limites du tableau directement en nombre plutôt que d'utiliser d'utiliser les mots réservé «LOW» et «HIGH». Il est fortement recommander d'utiliser ses mots réservés plutôt qu'un nombre directement, car si vous changez la limite d'un tableau, vous devrez changer partout dans le programme les limites. Suivant cette idée, voici donc la mauvaise pratique :

  1. Program ArrayBadLimitSamples;
  2.  
  3. Var
  4.  Tableau:Array[5..15]of Byte;
  5.  I:Byte;
  6.  
  7. BEGIN
  8.  { MAUVAISE PRATIQUE }
  9.  For I:=5 To 15 do Begin
  10.   Tableau[I] := I + 1;
  11.  End;
  12. END.

Vous remarquez la bonne pratique dans l'utilisation de la boucle et une reconstruction possible du mot «ARRAY» d'origine :

  1. Program ArrayGoodLimitSamples;
  2.  
  3. Var
  4.  Tableau:Array[5..15]of Byte;
  5.  I:Byte;
  6.  
  7. BEGIN
  8.  WriteLn('Array[',Low(Tableau),'..',High(Tableau),']');
  9.  { BONNE PRATIQUE }
  10.  For I:=Low(Tableau) To High(Tableau) do Begin
  11.   Tableau[I] := I + 1;
  12.  End;
  13. END.

Exemple

Voici quelques exemples typiques de l'utilisation de cette fonction :

Essayer maintenant !
  1. Program ArraySamples;
  2.  
  3. Const
  4.  TableauNombre:Array[1..7] of Byte=(10,20,10,4,6,1,5);
  5.  TableauChaine:Array[1..4] of String=('ABC','DEF','GHI','JKL');
  6.  TableauMixed:Array[-3..3] of Byte=(10,Byte('A'),Ord('B'),5,Byte('C'),Ord('D'),7);
  7.  
  8. Var
  9.  TableauEntierDe0A255:Array[Byte]of Integer;
  10.  TableauEntierLongDe0A5:Array[0..5]of LongInt;
  11.  TableauChar:Array['A'..'Z']of Byte;
  12.  I:Byte;
  13.  
  14. BEGIN
  15.  For I:=1 to 7 do Begin
  16.   WriteLn('TableauNombre[',I,']=',TableauNombre[I]);
  17.  End;
  18. END.

on obtiendra le résultat suivant :

TableauNombre[1]=10
TableauNombre[2]=20
TableauNombre[3]=10
TableauNombre[4]=4
TableauNombre[5]=6
TableauNombre[6]=1
TableauNombre[7]=5

Voir également

Langage de programmation - Turbo Pascal - Référence de procédures et fonctions - RECORD
Langage de programmation - Turbo Pascal - Référence de procédures et fonctions - TYPE

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 98 à 99.

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