membership_operators.adb

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

with Text_IO; use Text_IO;
procedure membership_operators is
   ch : Character;

begin
   while (true) loop
      get(ch);

      if ch in 'A' .. 'Z' then
      Put ("character is upper letter");
   else
      put("character is not upper letter");
      New_Line;

   --if ch not in 'A' .. 'Z' then
     --- Put ("character is not upper letter");
  -- else
     -- put("character is upper letter");
     -- New_Line;
   end if;
   end loop;
end membership_operators;