constante entier N <- ...
constante entier M <- ...

{ Test de l'egalite du contenu                }
{ de deux tableaux de reel                    }
  
booleen fonction testEgalite(t1,t2)
  Données
    t1 : Tableau [N] de reel
    t2 : Tableau [M] de reel
  Locales
    egalite : booleen
    i : entier
  egalite <- vrai
  si N <> M alors
    egalite <- faux
    sinon
    i <- 0
    tant que ( egalite et ( i < N ) ) faire
      egalite <- (t1[i] = t2[i])
      i <- i+1
    fait
  fsi
  retourner egalite
fin fonction