Пакет Ada.Text_IO.Float_IO
Пакет Ada.Text_IO.Float_IO
generic
type Num is digits <>; -- параметр настройки модуляpackage Ada.Text_IO.Float_IO is Default_Fore : Field := 2; -- количество символов слева
-- от десятичной точки
Default_Aft : Field := Num'Digits - 1; -- количество символов справа
-- от десятичной точки
Default_Exp : Field := 3; -- для нотации используемой
-- в научных рассчетах procedure Get -- ввод числа из указанного файла
(File : in File_Type;
Item : out Num;
Width : in Field := 0); procedure Get -- ввод числа из файла стандартного ввода
(Item : out Num;
Width : in Field := 0); procedure Put -- вывод числа в указанный файл
(File : in File_Type;
Item : in Num;
Fore : in Field := Default_Fore; Aft : in Field := Default_Aft; Exp : in Field := Default_Exp); procedure Put -- вывод числа в файл стандартного вывода (Item : in Num; Fore : in Field := Default_Fore; Aft : in Field := Default_Aft; Exp : in Field := Default_Exp); procedure Get -- ввод числа из строки -- (преобразование из строкового представления) (From : in String; Item : out Num; Last : out Positive); procedure Put -- вывод числа в строку -- (преобразование в строковое представление) (To : out String; Item : in Num; Aft : in Field := Default_Aft; Exp : in Field := Default_Exp);end Ada.Text_IO.Float_IO; |