subprogram.adb

来自「Ada 2005 Training Notes.」· ADB 代码 · 共 30 行

with Ada.Text_IO;
use Ada.Text_IO;

package body Subprogram is
   procedure PassArrayParameter(V: in out Vector) is
   begin
      for Idx in V'Range loop
         Put_Line("V [" &
                 Integer'Image(Idx) &
                 "] " &
                 " = " &
                  Float'Image(V(Idx)));
      end loop;
   end PassArrayParameter;

   procedure PassRecordParameter(R: in ARecord) is
   begin
      for Idx in R.V'Range loop
         Put_Line("V [" &
                 Integer'Image(Idx) &
                 "] " &
                 " = " &
                  Float'Image(R.V(Idx)));
      end loop;
      Put_Line(Integer'Image(R.I));
   end PassRecordParameter;

end Subprogram;