procédure saisie(E/S v: vecteur de TAILLE réel)
{
        variable i : entier
        
        // Saisie
        Pour i de 0 à TAILLE - 1
        {
                Afficher("Veuillez saisir le ", i+1, "ème terme")
                Saisir(v[i])
        }
}

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

Algorithme Calcul_produit_scalaire
{

        constante entier TAILLE <-- 20
        variable v,w : vecteur de TAILLE entier
        
        Afficher("Cet algorithme saisit deux vecteurs et calcule le produit scalaire.\n")
        
        saisie(v)
        saisie(w)
        
        
        // Affichage
        Afficher("Le produit scalaire des deux vecteurs est :",produit_scalaire(v,w),".\n")
}