Ada 输入和输出问题

Question

从 Integer 输入输入后，它会自动跳过从 String 获取输入。不知道为什么？

获取字符串和整数输入的简单 Ada 代码：

with ada.Text_IO; use ada.Text_IO;
with ada.Integer_Text_IO; use ada.Integer_Text_IO;
procedure Main is

   inputText: String (1..10);
   inputNmbr : Integer;
   StringNatural: Integer;  

begin

   Put_Line("Enter Integer");
   Get(inputNmbr,1);
   Put_Line("Enter String");
   Get_Line(inputText,StringNatural);
   Put_Line("===================");
   Put("Input for Integer: ");
   Put(inputNmbr,1);
   Put_Line("");
   Put_Line("Input for String: ");
   Put_Line(inputText(1..StringNatural));

end Main;

输出：

Enter Integer
2
Enter String
===================
Input for Integer: 2
Input for String: 

[2015-07-11 23:01:00] process terminated successfully, elapsed time: 00.86s

Answer 1

Get 不会清除键盘缓冲区，因此您将回车发送到Get_Line 作为输入。您可以在Get 之后添加Skip_Line 来解决此问题：

Put_Line("Enter Integer");
Get(inputNmbr,1);
Skip_Line; -- add this
Put_Line("Enter String");

Skip_Line documentation:

Skip_Line 是一个输入过程，会导致输入跳到下一行。这对于从输入缓冲区中删除回车很有用。 Skip_Line 应该在调用 Get 过程之后执行。它也可以用来让程序暂停并等待输入回车。

另见：Clearing the keyboard buffer in Ada