072.从控制台输入字符

最新推荐文章于 2021-03-21 14:33:48 发布

原创最新推荐文章于 2021-03-21 14:33:48 发布 · 170 阅读

0 ·

CC 4.0 BY-SA版权

Ada语言程序设计基础专栏收录该内容

105 篇文章

订阅专栏

with Ada.Text_IO;
use Ada.Text_IO;

procedure CH14_1 is

   One_Char : CHARACTER;

begin

   Put_Line("Input characters to display, enter Q to stop.");

   loop       -- Read one character at a time and display it
      Get(One_Char);
      Put(One_Char);
      New_Line;
      exit when One_Char = 'Q';
   end loop;
   New_Line(2);

end CH14_1;