(Enteros)
Ada.Text_IO / Integer_IO Ada.Integer_Text_IO |
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;
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 ...