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

• #564 Sianis addikt

  Új Válasz 2005-03-10 07:08:17 #564

  Ú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

  

  Sianis

  addikt

  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.
  
  

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