float value without power

float value without power

[Etienne Baudin]

If F is 123.456
float'image(F) will be 1.2346e2. I Would like to get 123.465 in the string,
is it possible ?

Thanks
Etienne

Re: float value without power

[Dmitry A. Kazakov]

Etienne Baudin wrote:

> If F is 123.456
> float'image(F) will be 1.2346e2. I Would like to get 123.465 in the
> string, is it possible ?

1. If you want to use 'Image then you can convert the value to a fixed point 
type and then use 'Image from that type.

2. You can use Put from Float_IO.

3. Alternatively http://www.dmitry-kazakov.de/ada/strings_edit.htm

-- 
Regards,
Dmitry A. Kazakov
www.dmitry-kazakov.de

Re: float value without power

[Etienne Baudin]

> 1. If you want to use 'Image then you can convert the value to a fixed
point
> type and then use 'Image from that type.

Perfect, that's what I wanted !
Thanks
Etienne

Re: float value without power

[Martin Dowie]

"Etienne Baudin" <pfox@pas.de.spam.free.fr> wrote in message
news:bcs323$925$1@news-reader13.wanadoo.fr...
> If F is 123.456
> float'image(F) will be 1.2346e2. I Would like to get 123.465 in the
string,
> is it possible ?

with Ada.Float_Text_IO; use Ada.Float_Text_IO;
with Ada.Text_IO;       use Ada.Text_IO;

procedure Float_Output is
   F : Float := 123.456;
begin
   Put (F, Aft => 3, Exp => 0);
   New_Line;
end Float_Output;

Re: float value without power

[Marqmc5]

Try playing around with the 'fore', 'aft', and 'exp' parameters on the
put/put_line statements.

Re: float value without power

[Steve]

"Etienne Baudin" <pfox@pas.de.spam.free.fr> wrote in message
news:bcs323$925$1@news-reader13.wanadoo.fr...
> If F is 123.456
> float'image(F) will be 1.2346e2. I Would like to get 123.465 in the
string,
> is it possible ?

Here's how I do it:

with Ada.Float_Text_Io;
with Ada.Strings;
with Ada.Strings.Fixed;
with Ada.Text_Io;
procedure DemoFormat is

  function Float_To_String( f : Float; aft : Natural ) return String is
    result : String( 1 .. 64 );
  begin
    Ada.Float_Text_Io.Put( result, f, aft, 0 );
    return Ada.Strings.Fixed.Trim( result, Ada.Strings.Both );
  end Float_To_String;

begin
  Ada.Text_IO.Put_Line( Float_To_String( 123.456, 3 ) );
end DemoFormat;

Steve
(The Duck)

>
> Thanks
> Etienne
>
>