ada loop get示例代码

代码语言:ada

所属分类:其他

代码描述:ada loop get示例代码

代码标签: 示例

下面为部分代码预览,完整代码请点击下载或在bfwstudio webide中打开

--  illustrates use of Get and Skip_Line

with Ada.Text_IO; use Ada.Text_IO;
procedure Getest is
   I : Integer := 0;
   C : Character;
begin
   loop
      I := I + 1;
      if End_Of_Line then
        .........完整代码请登录后点击上方下载按钮下载查看

网友评论0