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

• #3400 Trub tag

  Új Válasz 2008-08-31 13:23:02 #3400

  Ú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

  

  Trub

  tag

  Szisztok!

  Kéne 1 kis segítség. Pascalban próbálok programozni, de valamivel elakadtam.

  program kiir;
  uses crt;
  
  type nem=(fiu,lany);
  tanulo=record
  nev:string;
  szul:integer;
  neme:nem;
  end;
  
  
  var
  i:integer;
  n:string;
  l:array[1..1000] of tanulo;
  f:file of string;
  
  BEGIN
  clrscr;
  i:=0;
  assign(f,'elso.txt');
  reset(f);
  while not eof(f) do BEGIN
  i:=i+1;
  read(f,l[i].nev);
  read(f,l[i].szul);
  read(f,l[i].neme);
  END;
  
  END.

  Nah szóval, az elso.txt-ből kéne beolvasni recordokat. De nem engedi hogy a szul integer legyen, vagy a neme pedig nem változó legyen. Nagyon jól jönne pár tanács hogy mit mire írjak át.

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