Lire tous les numéros de la ligne du fichier

Question

Sur la première ligne de data.txt J'ai deux nombres séparés par l'espace.

Comment lire/sortir à l'écran chaque numéro?

Ceci est mon code jusqu'à présent qui lit uniquement le premier numéro de la ligne.

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. 

Ceci est mon data.xt fichier:

4 10 
250 
350 
400 
1000 

Je ne peux pas arriver à ce 10 sur la première ligne,

Answer 1

De nombreuses façons de le faire, mais le plus proche à ce que vous avez déjà est de supprimer la boucle interne et utiliser READ au lieu de READLN. Comme si:

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.