Yurttas/PL/IL/Ada-95/OO/GEO/geometry-circles.adb

 1with Ada.Numerics;
 2
 3package body Geometry.Circles is
 4
 5  function Area(C : Circle) return Float is
 6  begin
 7    return Ada.Numerics.Pi * C.Radius**2;
 8  end Area;
 9
10  function MI(C : Circle) return Float is
11  begin
12    return 0.5 * Area(C) * C.Radius**2;
13  end MI;
14
15  function Name(C : Circle) return String_8 is
16  begin
17    return "Circle  ";   -- two spaces padding
18  end Name;
19
20end Geometry.Circles;