(Enteros)
Ada.Text_IO / Integer_IO Ada.Integer_Text_IO |
procedure Get([File : in File_Type;] Item : out Num; Width : in Field := 0);
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO; with Text_IO; use Text_IO; ... A : Integer := 255; F : File_Type; ... Get (A); -- Lee un valor Integer en la variable A Get (F, A); -- Lee un valor Integer del fichero F en la variable A Get (A, 5); -- Lee un valor Integer en la variable A. -- Se toman exactamente 5 caracteres de la entrada ...