enum_case.adb

来自「This contains the following topics and m」· ADB 代码 · 共 20 行

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;