Put

(Enteros)

Librería

Ada.Text_IO / Integer_IO

Ada.Text_IO / Modular_IO

Ada.Integer_Text_IO

Sintaxis y explicación

procedure Put([File : in File_Type;]
              Item  : in Num;
              Width : in Field := Default_Width;
              Base  : in Number_Base := Default_Base);
Default_Width : Field := Num'Width;
Default_Base  : Number_Base := 10;

Ejemplo

En los comentarios del siguiente ejemplo las barras verticales (|) se usan para delimitar lo que se escribe, pero no forman parte de ello.

with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;
with Text_IO;             use Text_IO;
...
A : Integer := 255;
F : File_Type;
...
Put (A);               --  Escribe |        255| en la salida estándar
Put (F, A);            --  Escribe |        255| en el fichero F
Put (F, 125);          --  Escribe |        125| en el fichero F
Put (255, Width => 6); --  Escribe |   255|      en la salida estándar
Put (255, Base => 2);  --  Escribe |2#11111111#| en la salida estándar
Put (255, Width => 0); --  Escribe |255|         en la salida estándar
Put (255, Width => 10, Base => 16);
                       --  Escribe |      16#FF#| en la salida estándar
...

Véase