Hosted by
-- $Date: 2004/01/02 03:46:21 $ -- $Revision: 1.2 $ -- $Author: jcrocholl $ with Real_Numbers; use Real_Numbers; with Real_Functions; use Real_Functions; package body Integer_Functions is function Sqrt (Value : in Integer) return Integer is begin return Integer(Sqrt(Real(Value))); end Sqrt; end Integer_Functions;