{ Recherche de la presence d'une valeur entiere }
{ dans un tableau d'entiers trie                }
{ par ordre croissant                           }
{ Methode sequentielle                          }

constante entier N <- ...

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