integer_program.adb

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

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 integer_program;