type et get

type et get - Ada - Programmation

Marsh Posté le 09-08-2002 à 11:57:55    

admettons que g defini un type jour :  

Code :
  1. type JOURS is (Dimanche, Lundi, Mardi, Mercredi, Jeudi, Vendredi, Samedi);


 
comment je demande a l'utilisateur de rentrer un jour pour qu'il me le reconnaisse ss erreur ?

Reply

Marsh Posté le 09-08-2002 à 11:57:55   

Reply

Marsh Posté le 15-08-2002 à 13:13:05    

bah tu fais un ptit get_line et ensuite tu comparers à ton type jour.


---------------

Reply

Marsh Posté le 03-09-2002 à 17:19:21    

Code :
  1. declare
  2.   j : JOURS;
  3. begin
  4.   j := JOURS'Value("Lundi" );
  5. end;


doit fonctionner comme tu le souhaites, si ma mémoire est bonne (RM3.5 pour la définition).

Reply

Marsh Posté le 10-07-2004 à 09:26:13    

Code :
  1. with text_io; use text_io;
  3. procedure test is
  5. type t_jours is (Dimanche, Lundi, Mardi, Mercredi, Jeudi, Vendredi, Samedi);
  6. package t_jours_io is new text_io.enumeration_io (t_jours);
  7. jours : t_jours;
  9. begin
  11. t_jours_io.get_line ( jours );
  12. t_jours_io.put ( jours );
  14. end;

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed