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


fonction saisir_valeur_a_chercher(): entier
{
        variable x: entier
        
        Afficher("Veuillez saisir la valeur entière à rechercher :")
        Saisir(x)
        
        retourne x
}

fonction Recherche(E/S V: vecteur d'entier, E N: entier, E val_recherchée: entier ): entier
{
        // retourne la première position de la valeur cherchée si
        // elle figure dans le vecteur ; -1 si elle n’y figure pas
        
        variable
                position: entier
                i: entier
        
        position <-- -1
        i <-- 0
        
        Tant que ((i != N-1) ET (position = -1))
        {
                Si (V[i] = val_recherchée) alors
                {
                        position <-- i
                }
                i <-- i + 1
        }
        
        retourne position
}

Algorithme Recherchons
{
        constante entier TAILLE <-- 10
        variable v: vecteur de TAILLE entier
                 ValR,pos : entier
        
        remplissage(v)
        ValR <-- saisir_valeur_a_chercher()
        pos <-- Recherche(v, TAILLE, ValR)
        
        Si (pos = -1) alors
        {
                Afficher(ValR, " n'existe pas dans le vecteur saisi.\n")
        }
        sinon
        {
                Afficher(ValR, "se trouve en position ", pos, "dans le vecteur saisi.\n")
        }
}