case_example_2.adb.npp

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

with Text_IO; use Text_IO;
procedure case_example_2 is
   ch : Character;
begin
   --Ch := 'a';
   while (True) loop
      get(ch);
      case ch is
         when '0' | '1' | '2' | '3' | '4' | '5' | '6' | '7' | '8' | '9' =>
            Put ("Character is a digit");
            New_Line;
         when 'A' .. 'Z' =>
            Put ("Character is upper case English letter");
            New_Line;
         when 'a' .. 'z' =>
            Put ("Character is lower case English letter");
            New_Line;
         when others =>
            Put ("Not an English letter or digit");
            New_Line;
      end case;
   end loop;

end case_example_2;