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.