fonction produit_scalaire(E v1 : vecteur de réel, E v2 : vecteur de réel, E Taille : entier): réel
{
        variable i : entier
                 ps : réel
                 
        ps <-- 0
        
        Pour i de 0 à Taille - 1
                ps <-- ps + v1[i]*v2[i]
                
        retourne ps
}


procedure saisie_vecteur(E/S vect : vecteur de réel, E nbelts : entier)
{
        variable i : entier

        Pour i de 0 à nbelts - 1
        {
                Afficher("Saisir le ",i+1,"ème élément.\n")
                Saisir(vect[i])
        }
}


Algorithme Produit_Scalaire
{
        constante entier TAILLE <-- 100
        variable v1,v2 : vecteur de TAILLE réel
                 ps : réel
        
        saisie_vecteur(v1, TAILLE)
        saisie_vecteur(v2, TAILLE)

        ps <-- produit_scalaire(v1,v2, TAILLE)
        
        Afficher("Le produit scalaire des deux vecteurs précédemment saisis est : ", ps, ".\n")
}