Question in french (a simple question, very simple)

Question in french (a simple question, very simple)

[Pierre]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 80 bytes --]

Comment d�finir un type caract�re et son package d'entr�e-sortie !?

Re: Question in french (a simple question, very simple)

[Niklas Holsti]

Pierre wrote:
> 
> Comment d�finir un type caract�re et son package d'entr�e-sortie !?

with Ada.Text_IO;

procedure CHART is

   type Marks_T is ('M', 'A', 'R', 'K', 'S',
                    'm', 'a', 'r', 'k', 's');

   package Marks_IO is new Ada.Text_IO.Enumeration_IO (Marks_T);

begin
   for M in Marks_T loop
      Marks_IO.Put (M);
      Ada.Text_IO.New_Line;
   end loop;
end CHART;