Ecrire la procédure AfficheTabInt () qui affiche tous les éléments du tableau passé en paramètre, séparés par des espaces, à raison de 5 éléments par ligne (sans utiliser la fonction modulo ()).

Faire la trace de votre procédure.

[Algo]
procedure GenereTabInt (TabInt : in_out tableau_de entier, Min : in entier, Max : in entier)
debut

declarer Val : entier;
pour (i variant_de 0 a taille (TabInt) – 1)
faire
Val <- Rand (Min, Max);
TabInt [i] <- Val;
ffaire
fin

procedure AfficheTabInt (TabInt : in tableau_de entier)
debut

//cpt designe le nombre d’affichage déjà effectué
declarer cpt :entier_naturel;
cpt <- 0;

pour (i variant_de 0 a taille(TabInt) – 1)
faire

afficher (TabInt [i], " ");
cpt <- cpt + 1;
si (cpt vaut 5)
ligne_suivante;
cpt <- 0;
fsi
ffaire
fin

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

declarer TabInts : tableau_de N entier;

GenereTabInt (TabInts, 0, 100);

AfficheTabInt (TabInts);
fin[/Algo]

Ecrire la procédure AfficheTabInt () qui affiche tous les éléments du tableau passé en paramètre, séparés par des espaces, à raison de 5 éléments par ligne (en utilisant la fonction modulo ()).

Faire la trace de votre procédure.

[Algo]
procedure GenereTabInt (TabInt : in_out tableau_de entier, Min : in entier, Max : in entier)
debut

declarer Val : entier;
pour (i variant_de 0 a taille (TabInt) – 1)
faire
Val <- Rand (Min, Max);
TabInt [i] <- Val;
ffaire
fin

procedure AfficheTabInt (TabInt : in tableau_de entier)
debut

//cpt designe le nombre d’affichage déjà effectué
declarer cpt :entier_naturel;
cpt <- 0;

pour (i variant_de 0 a taille(TabInt) – 1)
faire

afficher (TabInt [i], " ");
cpt <- cpt + 1;
si (modulo (cpt, 5) vaut 0)
ligne_suivante;
fsi
ffaire
fin

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

declarer TabInts : tableau_de N entier;

GenereTabInt (TabInts, 0, 100);

AfficheTabInt (TabInts);
fin[/Algo]

Ecrire la procédure AfficheTabInt () qui affiche tous les éléments du tableau passé en paramètre, séparés par des tirets (caractère '-'), à raison de 5 éléments par ligne.

Faire la trace de votre procédure. On doit constater que c’est laid. Corriger le problème de façon à avoir un plus bel affichage.

[Algo]
procedure GenereTabInt (TabInt : in_out tableau_de entier, Min : in entier, Max : in entier)
debut

declarer Val : entier;
pour (i variant_de 0 a taille (TabInt) – 1)
faire
Val <- Rand (Min, Max);
TabInt [i] <- Val;
ffaire
fin

procedure AfficheTabInt (TabInt : in tableau_de entier)
debut

//cpt designe le nombre d’affichage déjà effectué
declarer cpt :entier_naturel;
cpt <- 0;

pour (i variant_de 0 a taille(TabInt) – 1)
faire

afficher (TabInt [i]);
cpt <- cpt + 1;
si (modulo (cpt, 5) vaut 0)
ligne_suivante;
sinon
afficher (" – ");
fsi
ffaire
fin

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

declarer TabInts : tableau_de N entier;

GenereTabInt (TabInts, 0, 100);

AfficheTabInt (TabInts);
fin
[/Algo]

Ecrire la procédure AfficheTabInt () qui affiche tous les éléments du tableau passé en paramètre, séparés par un caractère également passé en paramètre, à raison de 5 éléments par ligne.

[Algo]
procedure GenereTabInt (TabInt : in_out tableau_de entier, Min : in entier, Max : in entier)
debut

declarer Val : entier;
pour (i variant_de 0 a taille (TabInt) – 1)
faire
Val <- Rand (Min, Max);
TabInt [i] <- Val;
ffaire
fin

procedure AfficheTabInt (TabInt : in tableau_de entier, Sep : in caractere)
debut

//cpt designe le nombre d’affichage déjà effectué
declarer cpt :entier_naturel;
cpt <- 0;

pour (i variant_de 0 a taille(TabInt) – 2)
faire

afficher (TabInt [i]);
cpt <- cpt + 1;
si (modulo (cpt, 5) vaut 0)
ligne_suivante;
sinon
afficher (Sep);
fsi
ffaire
fin

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

declarer TabInts : tableau_de N entier;

GenereTabInt (TabInts, 0, 100);

AfficheTabInt (TabInts, ‘-‘);
fin[/Algo]

Ecrire la procédure AfficheTabInt () qui affiche tous les éléments du tableau passé en paramètre, séparés par un caractère, à raison de NbElemParLigne éléments par ligne. Le caractère séparateur et NbElemParLigne sont également passés en paramètre.

Réécrire en conséquence l’algorithme de l’exercice 1 et en faire la trace.

[Algo]
procedure GenereTabInt (TabInt : in_out tableau_de entier, Min : in entier, Max : in entier)
debut

declarer Val : entier;
pour (i variant_de 0 a taille (TabInt) – 1)
faire
Val <- Rand (Min, Max);
TabInt [i] <- Val;
ffaire
fin

procedure AfficheTabInt (TabInt : in tableau_de entier, Sep : in caractere, NbParLigne : in entier_naturel)
debut

//cpt designe le nombre d’affichage déjà effectué
declarer cpt :entier_naturel;
cpt <- 0;

pour (i variant_de 0 a taille(TabInt) – 1)
faire

afficher (TabInt [i]);
cpt <- cpt + 1;
si (modulo (cpt, NbParLigne) vaut 0)
ligne_suivante;
sinon
afficher (Sep);
fsi
ffaire
fin

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

declarer TabInts : tableau_de N entier;

GenereTabInt (TabInts, 0, 100);

AfficheTabInt (TabInts, ‘-‘, 5);
fin[/Algo]