Пакет AdaText_IOModular_IO

type Num is mod <>; -- параметр настройки модуля

package Ada.Text_IO.Modular_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);

procedure Put -- вывод числа в строку -- (преобразование в строковое представление) (To : out String; Item : in Num; Base : in Number_Base := Default_Base);

end Ada.Text_IO.Modular_IO;