enum_case.adb

This contains the following topics and more ADA versus C and Cplus plus Ada_training ADA 2005 for

with Ada.Text_IO; use Ada.Text_IO;
procedure Enum_case is
   type Colour is (Red, Blue, Green);
   Car_Colour : Colour;
   car_name :string(1..20);
begin
  -- Car_Colour := Blue;
   case Car_Colour is
      when Red =>
         Put ("A red car");
         New_Line;
      when Blue =>
         Put ("A blue car");
         New_Line;
      when Green =>
         Put ("A green car");
         New_Line;
   end case;
end Enum_case;