Second exemple d'écriture dans un tableau

Le programme suivant calcule le produit scalaire de deux vecteurs entrés par l'utilisateur.

program PRODUIT-SCALAIRE ;

type

  Coordonnee = (X1, X2, X3) ;

  Vecteur = array [Coordonnee] of real ;

var

  u, v : vecteur ;

  resultat : real ;

  c : Coordonnee ;

begin

  resultat := 0 ;

  for C := X1 to X3 do

  begin

    read (u[c]) ;

    readln (v[c]) ;

    resultat := resultat + u[c] * v[c] ;

  end ;

  writeln ('le produit scalaire est : ', resultat) ;

end.