{ Test de la presence de tous les entiers   }
{ entre 1 et NxN dans un tableau carre NxN  }

fonction testEnsembleNombresMatrice(t) : booleen
  Donnees t : tableau [N][N] de reel   { tableau de recherche                  }
  Locales i : entier                   { indice de boucle tant que et pour     }
          b : tableau [NxN] de booleen { tableau de test de presence           }
          v : entier                   { valeur extraite du tableau            }
          res : booleen                { variable booleenne resultat           }
  res := vrai
  pour i de 0 à NxN faire
    b[i] := faux
  fait
  i := 0
  tant que res et (i < N*N) faire
    v := t[i/N][i modulo N]-1
    si ( v < 0 ) ou ( v >= N*N ) alors
      res := faux
      sinon
      si b[v] alors
        res := faux
        sinon
        b[v] := vrai
      fsi
    fsi
    i := i+1
  fait
  Resultat : res
fin fonction