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

• #871 nixor csendes tag

  Új Válasz 2005-12-15 18:50:44 #871

  Ú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

  

  nixor

  csendes tag

  Hej!
  Valaki megmondaná nekem miért nem olvas be a Versenyzo tömbe semmit!
  ELőre is kösz!
  
  program verseny;
  uses crt{,newdelay};
  const MaxN=100; {resztvevok max szama}
  MaxM=10; {versenyek maximalis szama}
  type Nevek=Array[1..MaxN] of String[25];
  Valtozo=Array[1..MaxN,1..MaxM] of String[2];
  var Resztvev:Nevek;
  Versenyzo:Valtozo;
  N:Integer;
  M:Integer;
  
  procedure beolvasas(var Resztvev:Nevek;
  Versenyzo:Valtozo;
  N:Integer;
  M:Integer);
  
  var
  i:Integer;
  j:Integer;
  k:Integer;
  fnev:String;
  fajl:text;
  be:String;
  benev:String;
  
  begin
  repeat
  clrscr;
  writeln ('A program megkeresi ‚s kiˇrja azoknak a versenyz‹knek a nev‚t akik CSAK egy versenyen vettek r‚szt!');
  writeln;
  writeln ('Adja meg az adatbevitel modjat!');
  writeln ('0 fajlbol');
  writeln ('1 kezzel');
  readln (k);
  until ((k=0) or (k=1));
  if k=1 then
  begin
  for i:=1 to MaxN do
  begin
  writeln ('Adja meg a(z) ',i,'-dik versenyz‹ nev‚t!');
  writeln ('(šss”n SPACE -t, ha v‚ge a beolvas snak!)');
  writeln ('N‚v (Max. 20 karakter):');
  readln (benev);
  if benev=' ' then break;
  Resztvev:=benev;
  for j:=1 to MaxM do
  begin
  writeln('Adja meg a(z) ',j,'-dik verseny eredm‚ny‚t!');
  writeln('(šss”n SPACE -t, ha befejezi a versenyz‹h”z tartoz˘ bevitelt! 00 -t ,ha nem vett r‚szt a versenyen!):');
  writeln('Erdm‚ny (0-99):');
  readln (be);
  if be=' ' then break;
  Versenyzo[i,j]:=be;
  end{for2};
  end{for1};
  end{begin}
  else
  begin
  clrscr;
  writeln('Adja meg a fajl nevet:');
  readln(fnev);
  assign (fajl, fnev);
  {$I-}
  reset(fajl);
  if ioresult<>0 then
  begin
  writeln(#7'Allomanyhiba');
  halt;
  end;{ioresult}
  {$I+}
  i:=0;
  while not seekeof(fajl) do
  begin
  inc(i);
  readln(Resztvev);
  j:=0;
  while not seekeoln(fajl) do
  begin
  inc(j);
  read(fajl, Versenyzo[i,j]);
  end;{while2}
  readln(fajl);
  end;{while1}
  close(fajl);
  end;{else}
  
  
  end;{beolvas}

  [Szerkesztve]

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