Put

(Caracteres y Ristras de tamaño fijo)

Librería

Ada.Text_IO

Sintaxis y explicación

procedure Put([File : in File_Type;] Item : in Character);
procedure Put([File : in File_Type;] Item : in String);

Ejemplo

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

Véase