case_example_2.adb

来自「Sample ADA program...How to create hello」· ADB 代码 · 共 26 行

with Text_IO; use Text_IO;
procedure case_example_2 is
   ch : Character;
begin
   --Ch := 'a';
   while (True) loop
      put("Enter value or alphabet of ur choice:");
      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;