using_case_program.adb.npp

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

with text_io; use text_io;
with ada.integer_text_io; use ada.integer_text_io;
procedure using_case_program is

count :integer;

begin
   while (true) loop
   get(count);
case count is
   when 3 => put("count is 3");new_line;
   when 4 => put("count is 4");new_line;
   when 6 => put("count is 6");new_line;
   when others => put("count is out of range");new_line;
end case;
end loop;
end;