enum_case.adb.npp

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;
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;