Új hozzászólás Aktív témák

• #962 Tottu senior tag

  Új Válasz 2006-02-25 11:40:08 #962

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Tottu

  senior tag

  Valami akkor sem stimmel:
  
  repeat
  
  repeat
  
  readln (file_1 , versenyzo);
  
  If versenyzo = '' then
  begin
  kor := true;
  end
  
  else
  begin
  writeln (versenyzo);
  readln;
  end;
  
  v_lista[versenyzo].reszvet := v_lista[versenyzo].reszvet + 1;
  v_lista[versenyzo].nev := v;
  
  until kor;
  
  until eof(file_1);
  
  
  Valamiért 2. repeat-until ciklusból nem lép ki, mert a versenyzo soha nem lesz egyenlő '' (üres sorral). És így egy végtelen ciklust kapok, és jobbra mutato kurzor nyilakat ír ki ha már nincs több char a fileban.
  
  [Szerkesztve]

Új hozzászólás Aktív témák