using_case_program.adb

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

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