072.从控制台输入字符

最新推荐文章于 2021-08-06 00:09:04 发布

dos diosas

最新推荐文章于 2021-08-06 00:09:04 发布

阅读量128

点赞数

分类专栏： # Ada语言程序设计基础

本文链接：https://blog.csdn.net/dosdiosas_/article/details/105993493

版权

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

105 篇文章 8 订阅

订阅专栏

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;