Hosted by
-- $Date: 2004/01/10 11:48:59 $ -- $Revision: 1.1 $ -- $Author: jcrocholl $ package body Real_Numbers is function Square (This : in Real) return Real is begin return This * This; end Square; function Cube (This : in Real) return Real is begin return This * This * This; end Cube; end Real_Numbers;