{ Test de l'egalite de deux tableaux        }
{ d'entiers position pour position          }

fonction testEgaliteTableaux(t1,t2) : booleen
  Donnees t1 : tableau [N] de entier   { premier tableau d'entiers             }
          t2 : tableau [N] de entier   { second tableau d'entiers              }
  Locales i : entier                   { variable indice de boucle tant que    }
          res : booleen                { variable booleenne resultat           }
  res := vrai
  i := 0
  tant que res et (i < N) faire
    si t1[i] <> t2[i] alors
      res := faux
      sinon
      i := i+1
    fsi
  fait
  Resultat : res
fin fonction