📅  最后修改于: 2022-03-11 14:58:22.628000             🧑  作者: Mango
-- The Ada programming language uses'--' to indicate a comment up to the end of the line.
--e.g:
-- the air traffic controller task takes requests for takeoff and landing
task type Controller (My_Runway: Runway_Access) is
-- task entries for synchronous message passing
entry Request_Takeoff (ID: in Airplane_ID; Takeoff: out Runway_Access);
entry Request_Approach(ID: in Airplane_ID; Approach: out Runway_Access);
end Controller;
APL