如何避免程序读取输入文件的结尾？

Question

此 Pascal 代码继续尝试读取输入文件的结尾。为什么会发生这种情况？如何解决这个问题？

program wwhilencounter;
var 
  bil,jumlah : integer;
begin
  jumlah := 0;
  while not eof(input) do
  begin
    readln(bil);
    jumlah:=jumlah+bil;
  end;
  writeln(jumlah);
  readln 
end.

Answer 1

你的while循环读取直到输入结束，但是在程序结束之前你还有另一个readln。到目前为止，您已经完成了输入。