Egalité

Algorithme  testEgaliteTableaux
Types
Tab = Tableau [1..100] de Entier
Pointeur = ^Entier
Var
 T1, T2 : Tab
p1, p2 : Pointeur     
res : booléen     
N :enitier  
Début
         res <-- vrai
          p1 <-- &T1[1]
          p2 <--  &T2[1]

  tant que res et (p1 < T1+N) et (p2 < T2+N) faire
    si p1^ <> p2^ alors
         res <-- faux     
    sinon
          p1 <-- p1 + 1
          p2 <-- p2 + 1
    finsi
  FinTantque
fin