(Caracteres y Ristras de tamaño fijo)
Ada.Text_IO |
procedure Put([File : in File_Type;] Item : in Character);
procedure Put([File : in File_Type;] Item : in String);
with Ada.Text_IO; use Ada.Text_IO; ... S : String (1 .. 20); C : Character; F : File_Type; ... Put (C); -- Escribe un carácter en la salida estándar (la variable C) Put ('C'); -- Escribe el carácter 'C' en la salida estándar Put (F, C); -- Escribe un carácter en el fichero F (la variable C) Put (F, 'C');-- Escribe el carácter 'C' en el fichero F Put (S); -- Escribe 20 caracteres en la salida estándar (la ristra S) Put ("Hola"); -- Escribe la ristra Hola en la salida estándar Put (F, S); -- Escribe 20 caracteres en el fichero F (la ristra S) Put (F, "Hola"); -- Escribe la ristra Hola en el fichero F