shapes.adb

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

package body Shapes is
begin
   function Area(S: in Shape) return Float is
   begin
      return 0.0;
   end Area;
end Shapes;