integer_program.adb.npp

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

with text_io; use text_io;
with ada.integer_text_io; use ada.integer_text_io;

procedure integer_program 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);  -- 3rd type using package int_io is new text_io.integer_io(integer);
   put(x);-- 2nd type using ada.integer_text_io;

   for i in 1..4 loop

      int_io.put(i);

      text_io.new_line;

      --text_io.put(integer'image(i)); -- 1 type using normal text_io;

      put(i);-- 2nd type using ada.integer_text_io;

      text_io.new_line;

   end loop;

end;