Question

delphi 控制台程序有关Read语句疑问

delphi 控制台程序有关Readln语句疑问
程序如下
program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;
var
x:integer;
begin
readln(x);//如果readln(x)语句改成read(x) 程序一闪就过
write(x);
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.
readln(x);语句，如果将readln(x)语句改成read(x) 程序一闪就过．
为什么？
末尾不是有一个readln语句吗？
请高手回答．

Answer 1

read(x)；程序等待输入一个数，问题是，确认输入是以按回车键为准。所以前一个read(x)读入了输入的数，后一个readln；读入了回车键。
如果是readln(x)；则它一句本身就需要读入一个数和一个回车。

可以做个测试，你把readln(x)换作read(x,y)；先输入一个数，回车，
可以看到程序继续等待输入另一个数，只有等输入了一个数，程序才往下走。可以把这里的y，想成回车。