program_20.adb.npp

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

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;