Question

在data.txt的第一行，我有两个以空格分隔的数字。

如何在屏幕上读取/输出每个号码？

这是我的代码到目前为止只读取该行的第一个数字。

program p1;
uses crt;
  const filename = 'data.txt';
  var 
   cv : integer;
   myfile: text;
   i,sum:integer;
begin 
    i:=0;
    sum:=0;
    Assign(myfile, filename);
    Reset(myfile);
    while not (Eof(myfile)) do
      begin
        while not eoln(myfile) do begin
          Readln(myfile, cv);
          Writeln(cv); 
        end;
      end;
    close(myfile);
end.

这是我的data.xt文件：

我无法在第一行找到10

Answer 1

有很多方法可以做到，但最接近你已经完成的方法是删除内部循环并使用READ而不是READLN。像这样：

program p1;
uses crt;
const filename = 'data.txt';
var
  cv : integer;
  myfile: text;
begin
  Assign(myfile, filename);
  Reset(myfile);
  while not (Eof(myfile)) do begin
    Read(myfile, cv);
    Writeln(cv);
  end;
  close(myfile);
end.

从文件行中读取所有数字

1 个答案: