Re: Converting Binary to Decimal

[Des Walker <des.walker@amsjv.com>]

Hi,

this is not really an answer to your question, please disregard if it is
not relevant.

Have you considered reading your binary number as a string and using
predefined attributes to convert it. e.g.

with Ada.Text_Io; use Ada.Text_Io;

procedure Convert_Test is
  Value_Str : String(1 .. 8);
  Last : Natural;
  Value_Int : Integer;
begin
  Put_Line("input binary number please: ");
  Get_Line(Value_Str, Last);
  Value_Int := Integer'Value("2#" & Value_Str(1 .. Last) & '#');
  Put_Line("Decimal is" & Integer'Image(Value_Int));
end Convert_Test;

Admittedly if the user typed a bad digit, this version would produce a
Constraint Error on the conversion, whereas yours would produce an error
on the Get call.

	Des Walker
	Alenia-Marconi Systems