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