Afficher à l'écran

Pour afficher à l'écran, il est nécessaire d'utiliser des modules de la librairie.

Dans un premier temps, le plus simple est de déclarer:

with Nom_module; use Nom_module;

• Pour afficher des entiers, le module à utiliser est Ada.Integer_Text_IO,
• Pour afficher des messages (chaînes de caractères), utiliser Ada.Text_IO.
• Pour afficher un saut à la ligne, utiliser la procédure new_line,

Exercice 1:

Qu'affichent les programmes suivants? Lequel d'entre eux pose des problèmes? Pourquoi?

Programme 1

with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;
with Ada.Text_IO; use Ada.Text_IO;

procedure prog1 is
  x : integer := 3; y integer := 4; 
  z : integer;
begin
  z := x + y;
  put( "La somme de  "); put(x);
  put( " et de  "); put(y); put( " est :  "); put(z);
  new_line;
end;

Programme 2

with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;
with Ada.Text_IO; use Ada.Text_IO;

procedure prog2 is
  x : integer := 3; y integer := 4; 
begin
  x := x + y;
  put( "La somme de  "); put(x);
  put( " et de  "); put(y); put( " est :  "); put(x);
  new_line;
end;

Programme 3

with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;
with Ada.Text_IO; use Ada.Text_IO;

procedure prog3 is
  x : integer := 3; y integer := 4; 
begin
  put( "La somme de  "); put(x);
  x := x + y;
  put( " et de  "); put(y); put( " est :  "); put(x);
  new_line;
end;

Exercice 2:

Réaliser l'analyse du problème suivant: on veut determiner si un entier appartient à l'intervalle donné par deux nombres entiers.