Trouble with s'fraction attribute.

Trouble with s'fraction attribute.

[gilrain]

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

Re: Trouble with s'fraction attribute.

[David C. Hoos, Sr.]

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
> 
> 

Re: Trouble with s'fraction attribute.

[gilrain]

That's what I wanted. Thanks a lot!

John Thile


"David C. Hoos, Sr." wrote:
> 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;