閱讀文件行中的所有數字

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文件：

4 10 
250 
350 
400 
1000 

我不能給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.