Tableau à une dimension

Constitué d'un nombre fixe d'éléments du même type. La syntaxe est la suivante :

• type T = array[TI] of TB
• TB : type de base, pas de restrictions.
• TI : type d'indice, doit être un type scalaire (sauf real).

Quelques exemples de déclarations d'objets de type tableau :

• type vecteur=array[1..n] of real;
• type memoire=array[0..max] of integer;

• type jour=(lundi, mardi, mercredi, jeudi, vendredi, samedi, dimanche)
  var present : array[jour] of boolean;

 : En utilisant le type vecteur, on va calculer la norme euclidienne d'un vecteur,

program norme;

const n=3;

type vecteur=array[1..n] of real;

var v : vecteur;

procedure saisie(var v : vecteur);
   var i : integer;
   begin
     for i:=1 to n do
       begin
         writeln('valeur numero ', i,' de v = ');
         readln(v[i]);
       end;
   end;

function norme(v: vecteur):real;
   var somme : real;
       i : integer;
   begin
     somme:=0;
     for i:=1 to n do
         somme:=somme+sqr(v[i]);
     norme:=sqrt(somme);
end;

begin
  saisie(v);
  writeln('La norme est ', norme(v));
end.

 : On a mis n en constante. Ainsi pour modifier la dimension du problème il suffit de modifier la valeur de la constante.