标准输入/文件输入

Question

我可能有一个基本的问题。我一直在尝试从文件中读取一个数组，然后用Pascal语言从标准输入中读取一个字符串。它没有发送错误消息，它只是不等待，直到我在屏幕上写输入字符串。我应该做什么？

下面是我的代码：

Procedure beolvas(var x:rangsor; var n:byte; fajl:string);
var i:byte;

Begin
  Assign(input,fajl);
  Reset(input);
Readln(n);
for i:=1 to n do begin
   Readln(x[i].diak);
   Readln(x[i].atlag);
end;
close(input)
End;

Procedure beolvasnev(var s:string; x:rangsor; n:byte);
var i:byte;
Begin
Write('Kerem a diak nevet: ');
Readln(s);
End;

Answer 1

在处理完file变量之后，也就是在调用close(input)之后，尝试Assign(input, ''); (空文件名)。

Answer 2

您没有告诉程序从哪个文件读取；在没有文件名的情况下，程序会尝试从控制台读取，这解释了您为什么要写“它不会等到我在屏幕上写入输入字符串”(这不应该是“它等待直到我写入输入字符串吗？”)。

我不知道这是否是故意的，但是文件的第一行应该包含一个整数值。最好从文件中读取一个字符串变量，然后在将其用作循环计数器之前检查该字符串是否为数字。