(Reales)
Ada.Text_IO / Float_IO Ada.Float_Text_IO |
procedure Put([File : in File_Type;] Item : in Num; Fore : in Field := Default_Fore; Aft : in Field := Default_Aft; Exp : in Field := Default_Exp); Default_Fore : Field := Num'Fore; Default_Aft : Field := Num'Aft; Default_Exp : Field := 0;
(1) Fore . Aft -- Por ejemplo: -1234.23 (sin espacios entre los campos) (2) Fore . Aft E Exp -- Por ejemplo: -1.23423E4 (sin espacios entre los campos)
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.Float_Text_IO; use Ada.Float_Text_IO; with Text_IO; use Text_IO; ... A : Float := 1352.345; F : File_Type; ... Put (A); -- Escribe | 1.35234E+03| en la salida estándar Put (1352.345, Fore => 6, Aft => 2); -- Escribe | 1.35E+03| en la salida estándar Put (F, A, Aft => 2); -- Escribe | 1.35E+03| en el fichero F Put (1352.345, Exp => 0); -- Escribe |1352.34497| en la salida estándar Put (1352.345, Aft => 3, Exp => 0); -- Escribe |1352.345| en la salida estándar ...