enum_case.adb.npp

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

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;