Hosted by
|
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;
function Greater
(Y : in Real)
return Integer
is
Result : Integer := Integer(Y);
begin
if Real(Result) <= Y then Result := Result + 1; end if;
return Result;
end Greater;
function Greater_Or_Equal
(Y : in Real)
return Integer
is
Result : Integer := Integer(Y);
begin
if Real(Result) < Y then Result := Result + 1; end if;
return Result;
end Greater_Or_Equal;
function Smaller
(Y : in Real)
return Integer
is
Result : Integer := Integer(Y);
begin
if Real(Result) >= Y then Result := Result - 1; end if;
return Result;
end Smaller;
function Smaller_Or_Equal
(Y : in Real)
return Integer
is
Result : Integer := Integer(Y);
begin
if Real(Result) > Y then Result := Result - 1; end if;
return Result;
end Smaller_Or_Equal;
end Real_Numbers;
|