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

• VladimirR nagyúr

  #565

  #564 Sianis

  2005-03-10 10:30:15

  Új Válasz

  Ú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

  

  VladimirR

  nagyúr

  #564 Sianis

  #564 Sianis

  Sziasztok!
  
  Egyleányó megkért, hogy írjak neki egy tömb feltöltő programot, ami a tömböt itánna egy file-ba írja.
  Én hülye nem hoztam haza a Pascal könyvemet, és egy parancsot nem tudok helyesen használni! Psl segítsetek! Előre is köszi
  
  program tomb;
  uses crt;
  
  type konyv=record
  cim:string;
  szerzo:string;
  kiev:integer;
  end;
  
  var
  i:integer;
  append 1..10 tkonyv of konyv;
  
  
  begin
  clrscr;
  textcolor(white);
  assign(f,konyvek.dat);
  rewrite(f);
  for i:=1 to 2
  begin
  writeln(''Kerem a konyv cimet:'');
  readln(t.cim);
  writeln(''Kerem a konyv szerzojet'');
  readln(t.szerzo);
  writeln(''Kerem a kiadasi evet'');
  readln(t.kiev);
  write(f,t);
  end;
  close(f);
  end.
  
  

  pontosan mit is szeretnel? elobb feltolteni a tombot, s aztan kiirni?
  mert pl a programban miutan feltoltod a rekordot egybol kiirod
  
  egyebkent tomb-ot igy csinalsz:
  var tkonyv: array[1..10] of konyv;
  
  konyv tipusu file-t meg igy:
  var f: file of konyv;
  
  bar neked, ha tombot kell file-ba irnod, inkabb ez kellene
  type t_konyv=array[1..10] of konyv;
  var t: t_konyv;
     f: file of t_konyv;
  es ezutan egy cikluson belul feltoltened a tombot, majd az egeszet egyben irnad ki a file-ba, a ciklus utan
  for i:=1 to 10 do
  begin
     writeln(''Kerem a konyv cimet:'');
     readln(t[i].cim);
     writeln(''Kerem a konyv szerzojet'');
     readln(t[i].szerzo);
     writeln(''Kerem a kiadasi evet'');
     readln(t[i].kiev);
  end;
  write(f, t);
  asszem igy mukodnie kellene

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