objects.adb

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

package body Objects is

   function Distance(OC: Object'Class) return Float is
   begin
      return Sqrt(OC.X_Coord ** 2 + OC.Y_Coord ** 2);
   end Distance;


   function Area(O: Object) return Float is abstract;
   function X_Coordinate(O: in Object) return Float is abstract;
   function Y_Coordinate(O: in Object) return Float is abstract;
end Objects;