Re: how to convert float number into char string?

Re: how to convert float number into char string?

[Nasser Abbasi]

Since this was shown in C and C++, we might as well show it in Ada 
for completion sake :)


--
-- move float number to string... Ada95 version ... Nasser Abbasi
--

with Ada.Text_Io; use Ada.Text_Io;
with Ada.Strings.Fixed; use Ada.Strings.fixed;

procedure My_Float is
  type Float_Type is digits 10;  --  lets have a 10 digits float number
  Fs: String(1..80);
  F: Float_Type;
begin

  F:=2.57876453;                                -- give it some value

  Put_Line("float is " & Float_Type'Image(F)); -- print it

  -- print how many digits our floating variable has
  Put_Line("f has this many digits=" & Integer'Image(Float_Type'Digits));

  Move(Float_Type'Image(F),Fs);             -- move the float to string

  Put_line(Fs);    -- and print the string to make sure it is there 
end My_Float;
-- 
Nasser Abbasi. C/C++/Ada Solaris. GeneAssist - A client/server 
application for Nucleic acid and protein sequence search and analysis.
PE-Applied BioSystem division. email:  nasser@apldbio.com   
MSEE, MSCS, MSCE, FM (and Karpov is my chess hero! ..).