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

• #1175 Tangerine senior tag Tangerine #1171

  Új Válasz 2006-05-15 15:17:58 #1175

  Ú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 Tangerine #1171 üzenetére

  Akkor először csinálnék egy függvényt, ami visszaadja a beolvasott sorból az x-edik számot:
  
  
  function szam(sor:string; hely:integer): integer;
  var
  i,sz,kod : integer;
  begin
  sor := trim(sor)+' ';
  if hely > 1 then
  for i := 1 to hely-1 do delete(sor,1,pos(' ',sor));
  val(copy(sor,1,pos(' ',sor)-1),sz,kod);
  szam := sz;
  end;
  
  
  var
  het,x: integer;
  lottosz : text;
  egyhuzas: string;
  lottotomb: array [1..52][1..5] of integer;
  
  assign(lottosz,'C:\lottosz.dat');
  reset(lottosz);
  
  het := 1;
  
  while not eof(lottosz) do
  begin
  readln(lottosz,egyhuzas);
  for x:= 1 to 5 do lottotomb[het][x] := szam(egyhuzas,x);
  inc(het);
  end;
  
  close(lottosz);
  
  [Szerkesztve]

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