Cours N 9 Langage Pascal Tableaux Vecteurs Dpartement

Cours N° 9 : Langage Pascal Tableaux - Vecteurs Département des Sciences Techniques. Université Ammar Thelidji – Laghouat.

Sommaire • Introduction. • Notion de tableau (Vecteur). ▫ L’accès direct. ▫ Déclaration d’un tableau. ▫ Lecture/Ecriture d’un tableau. ▫ Parcours partiel d’un tableau. • Exercices.

Introduction

Tableaux Vecteurs Matrices

Notion de Vecteur

Notion de vecteur • Une suite finie d'éléments de même type identifiés au moyen d'une variable. • Des éléments qui peuvent être: des entiers, des réels, des caractères … etc. • stockés dans des cases (zones mémoire contiguës), numérotées de 1 à n.

Soit le vecteur T Indice 1 2 3 Elément 6 71 -8 4 5 12 93 6 5 7 8 -10 -34 0 Un vecteur (tableau) doit avoir : • un nom déclaré comme un type particulier de données, par exemple: T. • 9 Une dimension connue à l’avance : 1) La dimension correspond au nombre maximum de cases composant le tableau. (9 éléments par exemple) 2) Un indice doit être déclaré pour permettre d’adresser les différentes cases du tableau. L’indice est obligatoirement du type entier.

Accès direct

L’accès direct • Signifie que nous pouvons obtenir le contenu d’une cellule à l’aide d’une valeur appelée indice. • Exemple : soit un tableau T : Indice Cases mémoires 1 2 3 4 5 6 6 71 -8 12 93 5 T[6] = ? ? T [6]= 5 7 8 -10 -34 9 0

Déclaration d’un tableau (Vecteur)

Déclarer un tableau (vecteur) en PASCAL • Le type d'un tableau précise l’intervalle de définition et le type des éléments: Nom_tableau : Array [1. . nbre_éléments] of type_éléments • Pour un tableau T de 9 entiers: T : Array [1. . 9] of integer

Exemple de Déclaration d’un tableau Algorithme tab; Variables T : Tableau [9] entier; Début … Fin. Program tab; Var T : Array [1. . 9] of integer; Begin … End.

Le type tableau (vecteur) 1 2 3 6 71 -8 4 5 12 93 6 5 7 8 9 -10 -34 0 • Affecter à la variable x, la valeur du troisième élément du tableau T ? T[3]=? x ← T[3]

Lecture d’un tableau

Lecture d’un tableau • Pour lire un tableau il faut parcourir tous ces éléments afin de donner à chaque élément une valeur lue. Read ( T [ i ] ) • Généralement on utilise la boucle « FOR»

Exemple de lecture d’un tableau T de 7 entiers

Algorithme Programme Pascal Algorithme tab; Variables: T: Tableau [7] entier; i: entier; Début Program tab; Var T: Array [1. . 7] of integer; i: integer; Begin Pour i ← 1 à 7 faire Lire ( T [ i ] ); Fin. Pour; For i : = 1 to 7 do Read ( T [ i ] ); Fin. End.

Ecriture d’un tableau

Ecriture d’un tableau • Pour afficher un tableau il faut parcourir tous ces éléments et écrire chaque élément. Write ( T [ i ] ) • Généralement on utilise la boucle « FOR»

Exemple d’écriture d’un tableau T de 7 entiers

Algorithme tab; Variables: T: Tableau [7] entier; i: entier; Début Pour i ← 1 à 7 faire Ecrire ( T [ i ] ); Fin. Pour; Fin. Programme Pascal Program tab; Var T: Array [1. . 7] of integer; i: integer; Begin For i : = 1 to 7 do write ( T [ i ] ); End.

Exemple de programme Pascal Remplir un Tableau T [7]

Exemple de programme Pascal 1 2 Program tab; Var T: Array [1. . 7] of integer; i: integer; Begin For i : = 1 to 7 do T [ i ] : = 5 mod i ; For i : = 1 to 7 do write ( T [ i ] ); readln; end. i=1 i=2 i=3 i=4 i=5 i=6 i=7 T 0 1 2 1 0 5 5

Parcours Partiel d’un tableau « Vecteur »

Parcours partiel d’un Tableau • Dans certains cas en veux parcourir successivement les éléments du tableau jusqu’à rencontrer un élément satisfaisant une condition donnée. • Un tel parcours (partiel) est souvent basé sur une répétition conditionnelle.

Exemple : Ecrire un program PASCAL qui trouve le minimum des éléments d’un tableau T qui contient 5 éléments.

Algorithme minimum; Variables: T: tableau [5] entier; I, min: entier; Début Pour i ← 1 à 5 faire Lire ( T [ i ] ); Fin. Pour; min ← T [1]; Pour i ← 2 à 5 faire Si ( T [ i ] < min ) alors min ← T [i]; Fin. Si; Fin. Pour; Ecrire (min); Fin. Programme Pascal Program minimum; Var T: Array [1. . 5] of integer; I, min: integer; Begin For i : = 1 to 5 do readln ( T [ i ] ); min : = T [1]; For i : = 2 to 5 do If ( T [ i ] < min ) then min : = T [i]; Writeln (min); end.