On souhaite écrire le sous-programme GenereTabInt (). Celui-ci doit générer un tableau de N entiers aléatoires distincts dans [1..M] (M vaut N).

Le but de cet exercice est d’afficher un tableau de N éléments. Pour cela :

1. écrire la procédure AfficheTabInt () qui affiche tous les éléments du tableau d’entiers qui lui est passé en paramètre. Tous les éléments sont affichés suivis d’un espace ;
2. écrire un algorithme qui :
   1. saisit le nombre d’éléments (N) du tableau ;
   2. déclare le tableau (N entiers) ;
   3. initialise le tableau avec des valeurs saisies au clavier ;
   4. affiche le tableau à l’aide de la procédure AfficheTabInt ().

[Algo]
procedure AfficheTabInt (TabInt : in tableau_de entier)
debut
pour (i variant_de 0 a taille(TabInt) – 1)
faire
afficher (TabInt [i], ” “);
ffaire
ligne_suivante;
fin

algorithme UtilisationDeAfficheTabInt
debut
declarer N : entier_naturel;
afficher (“entrer la taille du tableau : “);
saisir (N);

declarer TabInts : tableau_de N entier;

pour (i variant_de 0 a N – 1)
faire
afficher (“entrer la “, i, “eme valeur du tableau : “);
//saisir (TabInts [i]);
declarer Val : entier;
saisir (Val);
TabInts [i] <- Val;
ffaire

AfficheTabInt (TabInts);
fin
[/Algo]

Ecrire la procédure GenereTabInt () de profil
[Algo]procedure GenereTabInt (TabInt : out tableau_de entier, N : in entier_naturel);[/Algo]
Cette procédure doit :

1. redimensionner TabInt à N;
2. saisir, un par un, les N éléments de TabInt.

Réécrire l’algorithme de l’exercice 1 en utilisant cette procédure.

[Algo]
procedure GenereTabInt (TabInt : out tableau_de entier, N : in entier_naturel)
debut
redimensionner (TabInt, N);

pour (i variant_de 0 a N – 1)
faire
afficher (“entrer la “, i, “eme valeur du tableau : “);
saisir (TabInt [i]);
/*declarer Val : entier;
saisir (Val);
TabInt [i] <- Val;*/
ffaire
fin

procedure AfficheTabInt (TabInt : in tableau_de entier)
debut
pour (i variant_de 0 a taille(TabInt) – 1)
faire
afficher (TabInt [i], ” “);
ffaire
ligne_suivante;
fin

algorithme UtilisationDeAfficheTabIntEtDeGenereTabInt
debut
declarer N : entier_naturel;
afficher (“entrer la taille du tableau : “);
saisir (N);

declarer TabInts : tableau_de entier;

GenereTabInt (TabInts, N);

AfficheTabInt (TabInts);
fin
[/Algo]

Effectuer le même travail que dans l’exercice 2, en transformant la procédure GenereTabInt () en fonction, puis en réécrivant l’algorithme de l’exercice 1 pour qu’il utilise cette fonction.

[Algo]
fonction GenereTabInt (N : in entier_naturel) renvoie tableau_de entier
debut

declarer TabInt : tableau_de N entier;

pour (i variant_de 0 a N – 1)
faire
afficher (“entrer la “, i, “eme valeur du tableau : “);
//saisir (TabInt [i]);
declarer Val : entier;
saisir (Val);
TabInt [i] <- Val;
ffaire
renvoie TabInt;
fin

procedure AfficheTabInt (TabInt : in tableau_de entier)
debut
pour (i variant_de 0 a taille(TabInt) – 1)
faire
afficher (TabInt [i], ” “);
ffaire
ligne_suivante;
fin

algorithme UtilisationDeAfficheTabIntEtDeGenereTabInt
debut
declarer N : entier_naturel;
afficher (“entrer la taille du tableau : “);
saisir (N);

declarer TabInts : tableau_de entier;

TabInts <- GenereTabInt (N);

AfficheTabInt (TabInts);
fin
[/Algo]

Effectuer le même travail que dans l’exercice 3, en transformant la fonction GenereTabInt () en procédure ayant un unique paramètre donné-résultat (TabInt), puis en réécrivant l’algorithme de l’exercice 1 pour qu’il utilise cette procédure.

[Algo]
procedure GenereTabInt (TabInt : in_out tableau_de entier)
debut

declarer Val : entier;
pour (i variant_de 0 a taille (TabInt) – 1)
faire
afficher ("entrer la ", i, "eme valeur du tableau : ");
saisir (Val);
TabInt [i] <- Val;
ffaire
fin

procedure AfficheTabInt (TabInt : in tableau_de entier)
debut
pour (i variant_de 0 a taille(TabInt) – 1)
faire
afficher (TabInt [i], " ");
ffaire
ligne_suivante;
fin

algorithme UtilisationDeAfficheTabIntEtDeGenereTabInt
debut
declarer N : entier_naturel;
afficher ("entrer la taille du tableau : ");
saisir (N);

declarer TabInts : tableau_de N entier;

GenereTabInt (TabInts);

AfficheTabInt (TabInts);
fin
[/Algo]

Ecrire la procedure GenereTabInt () de profil :
[Algo]procedure GenereTabInt (TabInt : in_out tableau_de entier, Min : in entier, Max : in entier);[/Algo]
Cette procédure doit générer un tableau le tableau TabInt dont tous les éléments sont tirés aléatoirement entre les bornes Min et Max. Ensuite, réécrire l’algorithme de l’exercice 1 pour qu’il utilise cette procédure.

Remarque : pour générer un nombre aléatoire entre Min et Max, utiliser la fonction Rand () de profil :
[Algo]fonction Rand (Min : in entier, Max : in entier) renvoie entier;[/Algo]