Hosted by
|
package Real_Numbers is
type Real is digits 11;
function Square
(This : in Real)
return Real;
function Cube
(This : in Real)
return Real;
function Greater
(Y : in Real)
return Integer;
function Greater_Or_Equal
(Y : in Real)
return Integer;
function Smaller
(Y : in Real)
return Integer;
function Smaller_Or_Equal
(Y : in Real)
return Integer;
end Real_Numbers;
|