Пакет Ada.Text_IO.Integer_IO
Пакет Ada.Text_IO.Integer_IO
|
generic
type Num is range <>; -- параметр настройки модуляpackage Ada.Text_IO.Integer_IO is Default_Width : Field := Num'Width; -- ширина числа в символах
Default_Base : Number_Base := 10; -- устанавливает основание системы счисления
-- принимаемое по умолчанию для всех
-- операций ввода/вывода 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;
Width : in Field := Default_Width;
Base : in Number_Base := Default_Base); procedure Put -- вывод числа в файл стандартного вывода (Item : in Num; Width : in Field := Default_Width; Base : in Number_Base := Default_Base); procedure Get -- ввод числа из строки -- (преобразование из строкового представления) (From : in String; Item : out Num; Last : out Positive); -- индекс последнего преобразуемого символа в From procedure Put -- вывод числа в строку -- (преобразование в строковое представление) (To : out String; Item : in Num; Base : in Number_Base := Default_Base);end Ada.Text_IO.Integer_IO; |
