tableau a une dimmension

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.