Re: Trouble with s'fraction attribute.

["David C. Hoos, Sr." <david.c.hoos.sr@ada95.com>]

You need to re-read the definition of the 'Fraction attribute.
What you probably want is the 'Remainder attribute, of which
an example is presented here:

with ada.text_io, ada.float_text_io;
use ada.text_io, ada.float_text_io;
procedure remainder is
   number, int, fl : float;
begin
   number := 3.141592654;

   int := float'truncation(number);
   fl := float'remainder(Number,int);

   put(int); new_line;
   put(fl);
end remainder;

----- Original Message ----- 
From: "gilrain" <john.thile@murraystate.edu>
Newsgroups: comp.lang.ada
To: <comp.lang.ada@ada.eu.org>
Sent: September 28, 2002 3:01 PM
Subject: Trouble with s'fraction attribute.


> Hi all,
> 
> I'm writing a program in which I need to seperate the integer and fractional
> parts of a float. After reading some documentation, it seemed like this
> should do the trick:
> 
> with ada.text_io, ada.float_text_io;
> use ada.text_io, ada.float_text_io;
> procedure test is
>    number, int, fl : float;
> begin
>    number := 2.9;
> 
>    int := float'truncation(number);
>    fl := float'fraction(number);
> 
>    put(int,0,0,0); new_line;
>    put(fl,0,0,0);
> end test;
> 
> When this is run, int truncates as expected outputs as "2.0". Good. However,
> fl outputs as "0.7", which isn't at all what I expected (0.9) or wanted.
> What's going on here? I expect I've somehow misunderstood what the
> s'fraction attribute does; is there a standard function for what I'm trying
> to accomplish?
> 
> Thanks,
> 
> John Thile
> 
> 
> 
> _______________________________________________
> comp.lang.ada mailing list
> comp.lang.ada@ada.eu.org
> http://ada.eu.org/mailman/listinfo/comp.lang.ada
> 
>