Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
5<br />
--=========================<br />
-- Spécial type discrets (pour les types énumératifs et entiers)<br />
--=========================<br />
-- Pour éviter d'avoir à instancier (trop tôt!) les sous-paquetages<br />
-- ADA.TEXT_IO.ENUMERATION_IO ou ADA.TEXT_IO.INTEGER_IO<br />
-- (l'exercice n'est pas difficile mais mythique !)<br />
-- on copiera la séquence suivante en adaptant les identificateurs<br />
-- T_DISCRET et DISCRET au type discret et à la variable de ce type<br />
--<br />
-- loop<br />
-- declare<br />
-- CHAI : UNBOUNDED_STRING ;<br />
-- begin<br />
-- LIRE(CHAI);<br />
-- DISCRET := T_DISCRET'VALUE(TO_STRING(CHAIN));<br />
-- exit;<br />
-- exception when others =><br />
-- null; -- ou message ECRIRE("xxxxx");<br />
-- end;<br />
-- end loop;<br />
end P_E_Sortie;<br />
D. Feneuille I.U.T. 2001 (cours n°1 Généralités III fichier COURS1_C.DOC) 30/06/02