put_usage_through_package.adb

来自「This contains the following topics and m」· ADB 代码 · 共 28 行

with text_io; use text_io;

procedure put_usage_through_package is

   x: integer := 99;

   package int_io is new text_io.integer_io(integer); -- package instantiation

begin
   text_io.put_line("Printing something");

   text_io.put_line("x");

   int_io.put(x);

   for i in 1..10 loop

      int_io.put(i);

      text_io.new_line;

      text_io.put(integer'image(i));

      text_io.new_line;

   end loop;
end;