{ Recherche de la presence d'une valeur entiere }
{ dans un tableau d'entiers                     }
{ sans organisation particuliere                }
{ Methode sequentielle                          }

constante entier N <- ...

booleen fonction estPresent(v,t)
  Donnees
    v : entier
    t : Tableau[N] de entier
  Locales
    trouve : booleen
    i : entier
  trouve <- faux
  i <- 0
  tantque ( trouve = faux ) et ( i < N ) faire
    si t[i] = v alors
      trouve <- vrai
      sinon
      i <- i+1
    fsi
  fait
  retourner trouve
fin fonction