Re: Binary value

["Marin David Condic" <marin.condic.auntie.spam@pacemicro.com>]

It is *MUCH* easier simply to look at what is available to you in Text_IO.
From ARM A.10.8:

=============================================
procedure Put(To   :    out String;
              Item : in     Num;
              Base : in     Number_Base := Default_Base);

Outputs the value of the parameter Item to the given string, following the
same rule as for output to a file, using the length of the given string as
the value for Width.
================================================

This will put an integer value in any base you like (almost!) into a string.
Similar stuff exists for other numeric types.

MDC
--
Marin David Condic
Senior Software Engineer
Pace Micro Technology Americas    www.pacemicro.com
Enabling the digital revolution
e-Mail:    marin.condic@pacemicro.com
Web:      http://www.mcondic.com/


"chris.danx" <chris.danx@ntlworld.com> wrote in message
news:K84x6.4066$MZ2.743519@news2-win.server.ntlworld.com...
> > I see... that answers half of my question. This presumes I wanna convert
> > from binary to Integer. But is it possible to "convert" a Integer value
to
> > binary.
>
> Suppose you have the value 123 in binary.  To convert to binary you need
to
> follow this algorithm.
>
> while num /= 0 loop
>     rem := num mod 2;    -- get remainder
>     num := num - rem;
>     add rem'image to front* of string;
> end loop;
>
> {I think this is the correct algorithm!}
>
> You could do it recursively too.
>
>
> Hope this helps,
> Chris Campbell
>
> *if you add rem'image onto the end you'll have to reverse the string after
> you finish so it'd be better to add it to the front.  I'm assuming you'll
> use an unbounded string in the loop and will convert it to a string
outside
> if you wish.
>
>