CyBWarrior

Les tableaux sont très utiles pour stocker des données, lorque c’est dernières deviennent sur-abondantes.

Au lieu d’utiliser des dizaines (parfois des centaines), on peut créer un tableau qui facilitera
les choses.

Voici commet déclarer un tableau :

Var NomTab : Array[Min..Max] Of Type;

Détaillons :

• La ligne commence par Var. Il faudra donc déclarer les tableaux en même temps
  que les autres variables.


• NomTab représente un identificateur. Il doit respecter les rêgles enumérées
  précedement pour les variables.


• Array permet de créer le tableau. Min définit la dimension inférieur
  et Max la dimension supérieur.


• Type définit le type du tableau : il peut étre du type String,
  Boolean, Integer…

L’exemple suivant créer un tableau de type Real de 10 cases :

Var MyTabl : Array[1..10] Of Real; {Création d’un tableau de type Real}

begin

end.

Ce tableau est un tableau à une dimension, puisqu’il ne s’agit que d’une ligne. On pourait le
représenter ainsi :

1	2	3	4	5	6	7	8	9	10

Pour stocker des données dans ce tableaux il suffit de spécifier le numéro de la case voulue entre
crochets et d’utiliser l’opérateur d’affectation. Même chose pour le lire :

Var MyTabl : Array[1..10] Of Real;

begin

  MyTabl[4] := 46.25;       {On affecte la valeur 46.25 à la case 4 du tableau}

  writeln(MyTabl[4]);       {On affiche la valeur de la case 4}

end.

Maintenant, notre tableau ressemblerait à ceci :

1	2	3	4	5	6	7	8	9	10
			46.25

Mainteant, nous allons réaliser un programme qui permetra de calculer le nombre de kilometres et
la distance moyenne parcouru par un cycliste :

program Cyclo;

var tabKilom : Array[1..10] Of Real;

    Total : Real;

    maxKilom : Real;

    minKilom : Real;

    moyKilom : Real;

    i : Integer;
begin

  {Création d’une « base de données »}

  for i := 1 To 10 do

  begin

    writeln(’Kilometres parcouru  durant la sortie N°’, i);

    readln(tabKilom[i]);                    {On affecte le résultat dans un tableau}

  end;
  {Détermination du nombre total de kilometres}

  for i := 1 To 10 Do

    Total := Total + tabKilom[i];
  {Détermination de la plus grande distance}

  For i := 1 To 10 Do

    if tabKilom[i] > maxKilom Then maxKilom := tabKilom[i];
  {Détermination de la plus petite ditance}

  minKilom := maxKilom;

  for i := 1 To 10 Do

    If tabKilom[i] < minKilom Then minKilom := tabKilom[i];
  {Détermination du nb de le distance moyenne}

  moyKilom := Total / 10;
  {Affichage du résultat}

  writeln('Nombre de kilométre parcouru : ', Total);

  writeln('Plus petite distance         : ', minKilom);

  writeln('Plus grande distance         : ', maxKilom);

  writeln('Distance moyenne             : ', moyKilom);

end.

Bien sur, on peut faire beucoup plus simple pour le même résultat.

On peut aussi déclarer des tableaux ayant plusieurs dimensions. Le protocole est identique :

var MyTabl : Array[1..5, 1..10] Of Boolean; {Tableau à deux dimensions}

begin

end.

L’allure du tableau devient :

	1	2	3	4	5
1
2
3
4
5
6
7
8
9
10

Pour accéder à une case du tableau, on séparera les coordonnées soit par des virgules, soit par
des crochets :

var MyTabl : Array[1..5, 1..10] Of Boolean; {Tableau à deux dimensions}

begin

  MyTabl[1, 2]:=true;       {MyTabl[1, 2]}

  writeln(MyTabl[1][2]);    {MyTabl[1][2]}

end.

On peut ainsi créer des tableaux à 3 dimensions :

var MyTabl : Array[1..5, 1..5, 1..5] Of Char;

Ça donne un cube.

Series Navigation

«Turbo Pascal – Les unitésTurbo Pascal – Les maths»