Cours Ada 1 - Libre

Compléments cours n° 1 (Généralités III)
Pour terminer ces six heures de cours nous allons commenter quelques codages Ada d’algorithmes connus
(puisque découverts au cours des premiers TD de la semaine passée). Il s’agit évidemment d’un survol assez
informel et bien sûr tous les concepts, vus rapidement, seront repris en détail dans les cours à venir.
Exemple n° 1 (« tiré » du polycopié algorithmique TD n°0)
with P_MOUCHERON.IMP;
procedure TS_MOUCHERON0 is
use P_MOUCHERON.IMP;
begin
ECRIRE (″Essai de MOUCHERON″);
A_LA_LIGNE;
A_LA_LIGNE;
MONTRER_RUBAN;
A_LA_LIGNE;
RESET;
MONTRER_RUBAN;
A_LA_LIGNE;
AUTRE_RUBAN;
MONTRER_RUBAN;
end TS_MOUCHERON0;
On remarque un ensemble de mots : soit des mots réservés (ici en minuscule gras) et des identificateurs choisis
parmi les spécifications de la ressource P_MOUCHERON.IMP. Les points virgules terminent chaque action. Les
mots réservés begin et end encadrent l’ensemble des actions mises en œuvre. Cette procédure se suffit à elle -
même elle peut devenir un programme exécutable. Le use évite le préfixage (à revoir).
Exemple n° 2 (« tiré » du polycopié algorithmique TD n°1)
procedure NB_CAR (...) is
begin
COMPTEUR := 0;
loop
exit when FIN_RUBAN;
LIRE;
Evoque la ressource (composant logiciel) nommée
P_MOUCHERON.IMP qui propose des services
ou outils tels que : ECRIRE, RESET, ..... etc. On
parle avec with de clause de contexte
structure
itérative
COMPTEUR := COMPTEUR + 1; -- incrémentation du compteur
end loop; ….
ECRIRE_COMPTEUR; -- pour voir à l’écran le contenu du compteur
end NB_CAR;
C’est toujours la traduction Ada de l’algorithme vu en TD. On remarque d’autres mots réservés loop, exit
when. Ici, cette brique (elle aussi une procédure) n’est pas indépendante ; c’est un composant de
P_MOUCHERON.EVE.MOUCHERON1 qui accède aux entités : Compteur, Fin_Ruban, Lire et
Ecrire_Compteur.
Exemple n° 3 (« tiré » du polycopié algorithmique TD n°1). Même remarques que l’exemple 2.
procedure NB_DE_L(....) is
structure
begin
alternative
COMPTEUR := 0;
loop
exit when FIN_RUBAN;
LIRE;
if (CARCOU = 'L') or (CARCOU = 'l')
then COMPTEUR := COMPTEUR + 1;
end if;
end loop;….
ECRIRE_COMPTEUR;
end NB_DE_L;
Traduction de
l’algorithme résolvant le
problème
Nom du programme
TS_MOUCHERON0
Cours Ada n°1 (Généralité III) fichier Cours1_C.doc 30/06/02