Tri/ pointeur

Algorithme Tri

Type

   Tab= tableau [ 1..10] de Entier 
   Pointeur = ^Entier

Variables

   t : Tab
   aux, N : entier
   P,K : pointeur

Début

  P <-- &t[1]
  Ecrire ("donner la dimension du tableau:")
  lire(N)

  Pour P de t à t+a faire
     Ecrire (" la valeur:", P-t ":")
     lire(P^)
  Fin pour

  Ecrire ("le tableau est:")
  pour P de t à t+N faire
     pour K de P+1 à K+N faire
          Si P^ > P^ alors
             aux <-- P^
             P^ <-- K^
             K^ <-- aux
          Finsi
     Fin pour
   Fin pour

  Pour P de t à t+N faire 
     Ecrire (P^)
  Fin pour
Fin