Cours Ada 1 - Libre

3
with Ada.Text_io, Ada.Strings.Unbounded;
package P_E_Sortie is
use Ada.Text_Io, Ada.Strings.Unbounded;
--==============================================
-- Procédures d'entrées/sorties sur les entiers prédéfinis
--==============================================
procedure Ecrire (
L_Entier : in Integer );
-- permet de visualiser un INTEGER à partir de la position
-- initiale du curseur. Si l'on souhaite aller à la ligne ensuite
-- il faut utiliser en plus la procédure A_LA_LIGNE
procedure Lire (
L_Entier : out Integer );
-- permet d'acquérir un INTEGER en base quelconque (2 à 16) avec
-- validation (fait recommencer jusqu'à ce la valeur soit valable)
--===============================================
-- Procédures d'entrées/sorties sur les flottants prédéfinis
--===============================================
procedure Ecrire (
Le_Reel : in Float );
-- permet de visualiser un FLOAT sur la ligne à partir de la position
-- initiale du curseur. Si l'on souhaite aller à la ligne ensuite
-- il faut utiliser en plus la procédure A_LA_LIGNE.
-- Le réel est écrit sous la forme:
-- signe, partie entière, point décimal et partie décimale
-- le point décimal est toujours présent,
-- le signe + est remplacé par un espace.
-- Quant aux deux champs numériques ils suppriment les
-- zéros non significatifs.
procedure Lire (
Le_Reel : out Float );
-- permet d'acquérir un FLOAT dans une base quelconque (2 à 16) avec
-- validation (on recommence jusqu'à ce que la valeur soit valable).
-- Le point décimal est obligatoire à la saisie.
--=================================================
-- Procédures d'entrées/sorties sur les caractères
--=================================================
procedure Ecrire (
Carac : Character ) ;
-- permet de visualiser un caractère à partir de la position
-- initiale du curseur. Si l'on souhaite aller à la ligne ensuite
-- utiliser en plus la procédure A_LA_LIGNE
procedure Lire (
Carac : out Character );
-- permet d'acquérir un caractère unique. Lecture tamponnée c'est-
-- à-dire que l'on peut effacer le caractère saisi d'où nécessité de
-- terminer la saisie par un RC (appui sur la touche entrée). Le
-- tampon est purgé après la prise en compte de ce caractère.
D. Feneuille I.U.T. 2001 (cours n°1 Généralités III fichier COURS1_C.DOC) 30/06/02