objects.adb

Ada 2005 Training Notes.

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;