103e | Code :
- with text_io; use text_io;
- procedure test is
- type t_jours is (Dimanche, Lundi, Mardi, Mercredi, Jeudi, Vendredi, Samedi);
- package t_jours_io is new text_io.enumeration_io (t_jours);
- jours : t_jours;
- begin
- t_jours_io.get_line ( jours );
- t_jours_io.put ( jours );
- end;
|
|