Les structures de données

1. Variables & Constantes

Activité 1

Ecrire un programme qui permet de calculer la quantité de peinture nécessaire pour peindre des portes de la forme suivante, sachant qu'un Kg de peinture permet de peindre une surface moyenne de 6 m².

Solution

program prog01;
{ Déclarations }
const
  PI = 3.14159265;
  QPM2 = 6; { 6 m²/Kg }
var
  n : integer;
  l, h : real;
  sp, qp : real;
begin
  { Entrée des données }
  Write('Largeur de la porte : ');
  Readln(l);

  Write('Hauteur de la porte : ');
  Readln(h);

  Write('Donner le nbre de portes : ');
  Readln(n);

  { Traitements }
  sp := (l * (h - l/2)) + PI * L * L / 8;
  qp := (n * 2 * sp) / QPM2;

  { Affichage }
  Writeln('Quantité de peinture requise : ', qp:5:1, 'Kg');
  Readln;
end.

Activité 2

1. Relever à partir du programme précédent la structure générale d'un programme.
2. Quels sont les deux mots clés utilisés dans la partie déclaration ? Quelle est la différence entre-eux ?

Activité 3

Un projectile est laissé en chute libre sans vitesse initiale à partir d'un point M haut du sol. On souhaite écrire un programme qui permet de calculer le temps de chute.

2. Types de données

Activité 4

Relever les types de données utilisés dans le programme suivant :

program prog02.pas;
{Décalarations}
var
  nom : string;
  sal : string;
  age : integer;
  genre : char;
  p, h, imc : real;
  ok : boolean;
{P.P}
begin
  Writeln('Donner votre nom : ');
  Readln(nom);

  Writeln('Donner votre age : ');
  Readln(age);

  Writeln('Donner votre genre (G : Garçon, F : Fille) : ');
  Readln(genre);

  Writeln('Donner votre masse en Kg : ');
  Readln(p);

  Writeln('Donner votre taille en m : ');
  Readln(h);

  imc := p / (h * h);
  ok := (imc >= 18) and (imc <= 23);

  if genre in ['G', 'g'] then sal := 'Mr'
  else if genre ['F', 'f'] then sal := 'Mlle/Mme'
  else sal := '';

  Writeln('Bonjour, ', sal, ' ', nom);
  Writeln('Vous aurez bientot ', succ(age), ' ans.');
  Writeln('Votre IMC est ', imc:4:1);
  if ok then
      Writeln('Votre poids est adapté à votre taille!')
  else
      Writen('Vous devez vous mettre au régime!');
  Readln;
end.

3. Le type Entier

Le langage Pascal a cinq types entiers prédéfinis. Chaque type a un domaine de définition spécifique.

Activité 5

Evaluer les expressions arithmétiques suivantes :

1. 17 DIV 5
2. 17 MOD 5
3. ((58 DIV 7) MOD 2) + 5
4. (49 MOD 17) DIV (4 * 3)

4. Le type réel

Activité 6

Ecrire un programme en pascal qui permet d'afficher les valeurs du tableau suivant :

Solution

program prog03;
begin
  Writeln(0.0);
  Writeln(-55.36);
  Writeln(3.14);
  Writeln(60E-9);
  Writeln(1.23);
  Writeln(-38.0);
  Writeln(5.6E6);
  Readln;
end.

Activité 7

Le programme précédent permet d'obtenir le résultat suivant :

Rectifier votre programme pour obtenir l'affichage suivant :

Solution

program prog04;
begin
  Writeln(0.0:3:1);
  Writeln(-55.36:6:2);
  Writeln(3.14:4:2);
  Writeln(60E-9:10);
  Writeln(1.23:4:2);
  Writeln(-38.0:5:1);
  Writeln(5.6E6:9);
  Readln;
end.

5. Le type booléen

Activité 8

Compléter les tableaux de vérités suivants :

Fonction NON	Fonction ET	Fonction OU	Fonction XOR
A NON A Faux - Vrai -	A B A ET B F V - F V - V F - V V -	A B A OU B F V - F V - V F - V V -	A B A XOR B F V   F V   V F   V V

Activité 9

Evaluer les expressions logiques suivantes :

• ( x <= 4) ET (x >= 1) avec x = 3
• ( x <= 2) ET (x >= 0) avec x = -4
• NON ( x <= 55) OU (x >= 0) avec x = 21

6. Le type caractère

Il s'agit du domaine constitué des caractères alphabétiques et numériques . Une variable de ce type ne peut contenir qu'un seul et unique caractère. 

Les caractères sont ordonnés selon leurs code ASCII. En ASCII, il est possible de représenter 256 caractères.

La table suivante contient les 128 premiers caractères standard, code 0 ➞ 127, les caractères de code 128 ➞ 255 ne sont pas standard.

Le tableau suivant résume les principales fonctions prédéfinies sur les caractères :

Activité 10

Ecrire un programme qui permet de saisir une lettre Majuscule puis l'affiche en miniscules.

Solution

program prog05;
var
  cmaj, cmin : char;
begin
  Write('Entrer une lettre majuscule : ');
  Readln(cmaj);

  cmin := Chr(Ord(cmaj) + 32);

  Writeln('Miniscule("', cmaj, '") = "', cmin, '"');
  Readln;
end.

7. Le type chaîne de caractères

Une chaîne de caractères est une suite de caractères. Elle peut être définie comme suit :

Activité 11

Décalrer les variables du tableau ci-dessus en Pascal.

Solution

var
  Prenom: string[10];
  Nom: string;

La figure suivante explique comment accéder aux caractères d'une chaîne.

8. Le type scalaire énuméré

Un type scalaire énuméré est un type dont on énumère la liste effective des éléments (nombre fini d'éléments).

Exemples

• Les mois de l'année (janvier, février, mars, ...)
• Les jours de semaine (Lundi, Mardi, Mercredi, ...)
• L'état civil d'une personne (célibataire, marié, divorcé, veuf)
• Les saisons de l'année (Printemps, Eté, Automne, Hiver)

type
  Saison = (Printemps, Ete, Automne, Hiver);
  Semaine = (Lundi, Mardi, Mercredi, Jeudi, Vendredi, Samedi, Dimanche);

Le type scalaire énuméré ne peut être ni lu ni affiché.

var
  s : Saison;
begin
  s := Printemps;
  Writeln(s); { Cette instruction est incorrecte }

  Writeln('Donner une saison : ');
  Readln(s); { Cette instruction est incorrecte }
end.

Cependant, il est possible de déterminer le successeur, le prédécesseur et l'ordinal d'un scalaire énuméré.

var
  s, s1, s2 : Saison;
begin
  s := Ete;
  Writeln(ord(s)); { Affiche 1 }

  s1 := succ(s); { s1 contient Automne }
  s2 := pred(s); { s2 contient Printemps }
end.

9. Le type tableau

Le type tableau permet, en pascal, de stocker un ensemble de valeurs de même type. Les éléments du tableau sont accessibles via le nom du tableau suivi par l'indice de l'élément.

T[3] : Permet d'accéder à la case d'indice 3 dans le tableau t

Activité 12

Déclarer les tableaux suivants en Pascal :

Solution

type
  tab_e = array [1..10] of integer;
  tab_r = array [-3..3] of real;
  tab_b = array ['A'..'Z'] of boolean;
  jours= (Lundi, Mardi, Mercredi, Jeudi, Vendredi, Samedi, Dimanche);
  tab_c = array [Lundi..Dimanche] of string;
var 
  te : tab_e;
  tr : tab_r;
  tb : tab_b;
  tc : tab_c;