Les Tableaux en Pascal

Télécharger au format docx, pdf ou txt
Télécharger au format docx, pdf ou txt
Vous êtes sur la page 1sur 4

TS en Informatique Option Base de Données

Algorithmique
Page |1 Mme Aissat

Les tableaux :
1- Définition : Un tableau est une variable se composant de plusieurs
éléments de même type.

Exemple :
10 0 2 -1
Tableau de 4 entiers

a b q w h d
Tableau de 6 caractères

On distingue les tableaux à une dimension (vecteur) et les tableaux à deux


dimension (les matrices)
2- Déclaration :
Soit Tab un tableau destiné à contenir 5 entiers : Tab sera déclarée :

Var Tab : Array [ 1..5] of integer ;

Variable Nom du
tableau 1..5 est le nombre
d’éléments du tableau Type descontenir
que doit élémentsle
tableau
Syntaxe :
TYpe Nomtableau : ARRAY [Min.. Max] OF type_élément ;
Var Tab : Nomtableau ;

Exemple :
Type Tableau : array [1..10] of real ; (* tableau de 10 rééls*)
Var T : tableau ;

Const N= 20;
Var X : array [1..N] of integer ; (*tableau de 20 entiers*)

3- Accès à un élément d’un tableau:


On accède à un élément d’un tableau, en indiquant le n° de la case qui le
contient (indice).

Nomdutableau[indice] ;

Exemple : -2
T 0 11 120 0 -2
1
Indice 2 3 4 5 6
• T[1] = -2 ; T[2] = 0 ; T[3] = 11 ; T[4] = 100

• Si j = 3 ;

T[j] = 11 ;
TS en Informatique Option Base de Données
Algorithmique
Page |2 Mme Aissat

4- Les instructions utilisant les tableaux à une dimension :

4-1- La lecture (lire un tableau) :

La lecture permet le remplissage du tableau en utilisant l’indice.


Var X : array [1..5] of integer ;
Begin
Write (‘Donner le 1er element: ’);
Readln(X[1]);
Write (‘Donner le 2em element: ’);
Readln(X[2]);
Write (‘Donner le 3em element: ’);
Readln(X[3]);
Write (‘Donner le 4em element: ’);
Readln(X[4]);
Write (‘Donner le 5em element: ’);
Readln(X[5]);
End.
En utilisant une variable indice i qui varie de 1 à 5, on peut utiliser une
boucle FOR.

For 1 := 1 To 5 Do
Begin
Write(‘Donner le’, i,’em élément’) ;
Readln (X[i]) ;
End ;
Exemple :
• Lire un tableau de 20 notes.
• Améliorer la lecture de telle sorte que la note est comprise entre 0
et 20.

Ecriture :

Pour afficher le contenu des cases d’un tableau, on utilise un indice pour
accéder aux éléments.
For i := 1 to 5 Do
Write (X[i]) ;
Ou

For i := 1 to 5 Do
Writeln (X[i]) ;

Exercices (sans corrigé)


TS en Informatique Option Base de Données
Algorithmique
Page |3 Mme Aissat

Exercice1 :
Ecrire un programme qui la saisie un tableau croissant :
si T[k]< X (X est la valeur lue) on enregistre X , si T[k]> X on
redemande la saisie d’un nombre plus grand.

Exercice2 :
Que fait le programme suivant :
Program exo2 ;
Var t : array [1..7] of integer ;
Begin
T[1] :=1 ;
T[2] := 1 ;
For i := 3 to 7 do
T[i] := T[i-1] + T[i-2] ;
For i := 1 to 7 do
Write(T[i],’ ‘) ;
End.
Exercice 3
On dispose de 2 tableaux de même dimension Note et Coef qui
contiennent respectivement les notes d'un étudiant et les coefficients
attribués aux matières enseignées.
Note[i] est la note obtenue dans la matière coef[i].
Ecrire un programme pascal qui permet de calculer la moyenne de
l'étudiant.

Exercice 4 :
Ecrire un programme qui lit un tableau de 10 caractères et effectue les
traitements suivants selon un menu :
1- Le nombre de voyelles
2- Le nombre d’occurrences d’un caractère
3- Convertir le tableau en majuscule
4- Afficher les caractères en horizontale
5- Afficher les caractères en verticale
6- Terminer
Exercice 5 :
Soit le program suivant :
Const N = 10 ;
Var tab :array [1..N] of integer ;
X,I,j : integer;
Begin
For I := 2 to N do
For j := 1 to i-1 do
If Tab[j] < Tab[i] then
Begin
X := Tab[j];
Tab[j] :=Tab[i];
TS en Informatique Option Base de Données
Algorithmique
Page |4 Mme Aissat

Tab[i] := x;
End;
End.
Que fait le programme.

Vous aimerez peut-être aussi