Les Tableaux en Pascal
Les Tableaux en Pascal
Les Tableaux en Pascal
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
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*)
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
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]) ;
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.