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

• #1174 Lortech addikt Tottu #1170

  Új Válasz 2006-05-15 15:10:21 #1174

  Ú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

  

  Lortech

  addikt

  válasz Tottu #1170 üzenetére

  
  program parse;
  uses crt;
  
  var
  f: text;
  s:string;
  i, index, szk: byte;
  szam: array[1..5] of byte;
  code:integer;
  
  
  begin
  clrscr;
  assign(f,'c:\akarmi.txt');
  reset(f);
  readln(f,s);
  close(f);
  i:=1;
  szk:=1;index:=0;
  while (i<=length(s)) do begin
  if (s[ i ]=#32) or (i=length(s)) then
  begin
  inc(index);
  if i=length(s) then val(copy(s,szk,i+1-szk),szam[index],code)
  else
  val(copy(s,szk,i-szk),szam[index],code);
  szk:=i;
  end;
  inc(i);
  end;
  
  for i:=1 to 5 do writeln(szam[ i ]);
  
  readln;
  end.
  
  Itt ott tákolás, kissé gagyi, biztos van jobb is, de mikor nincs kedvem gondolkozni, ilyeneket alkotok.
  Ha ''readln(f,s);'' sort ciklusba teszed, és csinálsz még egy másik dimenziót a tömbnek, akkor kész is a beolvasás. Jah, természetesen akarmi.txt a megfelelő formátumban van és létezik.
  
  
  Ákoska: [link]
  
  
  [Szerkesztve]

• #1171 Tangerine senior tag Tottu #1170

  Új Válasz 2006-05-15 14:44:43 #1171

  Ú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

  

  Tangerine

  senior tag

  válasz Tottu #1170 üzenetére

  var
  lottosz : file of tHuzas;
  
  assign(lottosz,'C:\lottosz.dat');
  reset(lottosz);
  
  het := 1;
  
  while not eof(lottosz) do
  begin
  read(lottosz,lotto[het]);
  inc(het);
  end;
  
  close(lottosz);
  
  
  
  [Szerkesztve]

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