Re: Binary value

["Phaedrus" <phaedrusalt@hotmail.com>]

Yeah, I suppose you could do it with an algorithm.  But why bother?
The machine stores the values in binary, so just take advantage of the
fact.  Create a packed array of bits at the same location as the integer
to be converted.  Then just write the array out with a "for" loop.

It's not as easy as using the Put routine, but I like the elegance.  No muss,
no fuss, no bother.  By the way, this will also help you in doing the reverse,
where Text_io will leave you high and dry.   If you want to convert an inputted
binary number to base ten, once you've read it in it's no bother at all.  And
no work, too!

Phaedrus
"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.
>
>
>