-- this program doesn’t need the integer lines

-- they are just an example of how to go from base 10 to other bases

with ada.text_io;

with ada.integer_text_io;

with ada.float_text_io;

procedure changeBase is

number : integer;

number2 : float;

begin

number := 1896;

ada.integer_text_io.put(number, 15, 2);

ada.integer_text_io.put (number, 15, 8);

ada.integer_text_io.put (number, 15, 16);

ada.text_io.new_line;

ada.text_io.put ("answer b is ");

number2 := 2#10.11001101#;

ada.float_text_io.put (number2, aft => 10);

ada.text_io.new_line;

number2 := 2#10110.01101#;

ada.text_io.put (" answer d is ");

ada.float_text_io.put (number2, aft => 10);

ada.text_io.new_line;

number2 := 2#0.01011001101#;

ada.text_io.put (" answer f is ");

ada.float_text_io.put (number2, aft => 25);

ada.text_io.new_line;

number2 :=2#0101.1001101#;

ada.text_io.put (" answer h is ");

ada.float_text_io.put (number2, aft => 10);

ada.text_io.new_line;

number2 := 2#101100110.1#;

ada.text_io.put (" answer j is ");

ada.float_text_io.put (number2, aft => 10);

ada.text_io.new_line;

number2 := 2#0.0000001011001101#;

ada.text_io.put (" answer l is ");

ada.float_text_io.put (number2, aft => 10);

ada.text_io.new_line;

number2 := 2#1011.001101#;

ada.text_io.put (" answer n is ");

ada.float_text_io.put (number2, aft => 10);

ada.text_io.new_line;

number2 := 2#0.00001011001101#;

ada.text_io.put (" answer p is ");

ada.float_text_io.put (number2, aft => 10);

ada.text_io.new_line;

number2 := 2#1011_0011_0100.0#;

ada.text_io.put (" answer r is ");

ada.float_text_io.put (number2, aft => 10);

end changeBase;