Re: Way to use Ada Mod function on floats?

[Chris Moore <zmower@ntlworld.com>]

AAFellow@hotmail.com wrote:
> Hi guys,
> 
> I need to perform the mod operation on floats.  Does anyone know of a
> simple way to do this in Ada? It seems the mod function is only for
> integers.  I can probably multiply out the decimal places, and then
> divide my answer back, but if there is a more simple way that saves
> computations, I'd rather do that.
> 
> Thank you for any help you can provide!
> 
> AA

Something like this (I don't have a compiler near me atm) :

function Mod (N, M : Float) return Float is
   I : Integer := Integer (N / M - 0.5);
begin
   if I < 0 then I := I + 1; end if;
   return N - Float (I) * M;
end Mod;

Chris

-- 
Sig pending!