declare_program.adb.npp

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

with Text_IO; use Text_IO;
procedure declare_program is

   a : Integer := 99;   b : Integer := 1;    j : Integer := -99;

   package int_io is new Text_IO.Integer_IO (Integer);   -- package instantiation

    procedure add (x : in out Integer; y : in Integer) is  -- procedure

      i : Integer := 10;       j : Integer := 10;

   begin

      x := x + y;

      Text_IO.Put_Line ("Value of j is = ");

      declare

         k : Integer := 50;

      begin

         Text_IO.Put ("Value of k is = ");

         int_io.Put (k);         text_io.new_line;

      end;
      int_io.Put (declare_program.j);

   end add;

begin

   add (a, b);

   Text_IO.Put ("Value of a is = ");

   int_io.Put (a);

   --   Text_IO.Put_Line ("Value of i is = ");

   --  int_io.Put (i);

end;