The Ada Program: reverse_list.adb

  1 -- reverse_list.adb:  get integers and reverse them (with attributes)
  2 
  3 with Ada.Text_IO, Ada.Integer_Text_IO;
  4 use Ada;
  5 
  6 procedure Reverse_List is
  7 
  8    subtype Index_Range is Integer range 1..10;
  9    type Value_Array_Type is array (Index_Range) of Integer;
 10 
 11    Value : Value_Array_Type;
 12 
 13 begin
 14 
 15    -- fill the array with values from the user
 16    for Number in Index_Range loop
 17       Integer_Text_IO.Get (Item => Value(Number));
 18    end loop;
 19 
 20    -- print the values in the array in reverse order
 21    for Number in reverse Index_Range loop
 22       Integer_Text_IO.Put (Item => Value(Number));
 23       Text_IO.New_Line;
 24    end loop;
 25 
 26 end Reverse_List;