Put

(Reales)

Librería

Ada.Text_IO / Float_IO

Ada.Text_IO / Fixed_IO

Ada.Text_IO / Decimal_IO

Ada.Float_Text_IO

Sintaxis y explicación

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)

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.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
...

Véase