{ Passage d'un tableau en parametre           }
{ Affichage de ses composantes                }
{ t : Le tableau d'entiers à afficher         }

action affichage(-> entier [] t)
  entier i
  pour i de 0 à longueur(t)-1 faire
    afficher(t[i]," ")
  fait
  Ecran.sautDeLigne()
fin action

{ Passage d'un tableau en parametre           }
{ Modification du tableau a l'interieur       }
{ de l'action                                 }
{ -> Modification du tableau sur lequel       }
{    l'action a ete appelee                   }
{ tab : Le tableau d'entiers à modifier       }

action testPassage(-> entier [] tab ->)
  entier i
  entier n <- longueur(tab)
  affichage(tab)
  pour i de 0 à n-1 faire
    tab[i] <- 9
  fait
  affichage(tab)
fin action

{ Retour d'un tableau par une fonction        }
{ apres declaration et initialisation         }
{ dans le corps                               }
{ n : La taille du tableau d'entiers à créer  }
{     et retourner                            }

entier [] fonction testRetour(-> entier n)
  entier [n] t
  entier i
  pour i de 0 à n-1 faire
    t[i] <- i
  fait
  affichage(t)
  retourner t
fin fonction

{ Action principale                           }

action principale()
  entier [8] t1
  entier [] t2
{ Test de l'action testPassage                }
  t1[0] <- 0
  t1[1] <- 1
  t1[2] <- 2
  t1[3] <- 3
  t1[4] <- 4
  t1[5] <- 5
  t1[6] <- 6
  t1[7] <- 7
  affichage(t1)
  testPassage(t1)
  affichage(t1)
  Ecran.sautDeLigne();
{ Test de la fonction testRetour              }
  t2 <- testRetour(10);
  affichage(t2)
  Ecran.sautDeLigne()
fin action