program_20.adb

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

with Text_IO; use Text_IO;
--with Ada.Integer_Text_io; use Ada.Integer_Text_io;

procedure program_20 is
   letter : Character;  -- i am getting error here vijay
begin
   while (True) loop
      Get (letter);
      case letter is
         when 'a' .. 'z' | 'A' .. 'Z' =>
            Put ("letter");
         when '0' .. '9' =>
            Put ("digit! value is");
            Put (letter);
         when ''' | '"' | '`' =>
            Put ("quote mark");
         when '&' =>
            Put ("ampersand");
         when others =>
            Put ("something else");
      end case;
   end loop;
end program_20;