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

• #320 Wasmacsó csendes tag

  Új Válasz 2004-09-25 13:13:08 #320

  Ú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

  

  Wasmacsó

  csendes tag

  help, mi a hiba a progimban?
  var fext;
  fnev:string;
  beteg:record;
  .nev : string;
  .szulev : integer;
  .panasz : string;
  .lakcim : string;
  .tel : integer;
  .datum : integer;
  end;
  begin
  writeln('Kerem a beteg nevet:');
  readln(beteg.nev);
  writeln('Kerem a beteg szuletesi evet:');
  readln(beteg.szulev);
  writeln('Kerem a panaszt:');
  readln(beteg.panasz);
  writeln('Kerem a lakcimet:');
  readln(beteg.lakcim);
  writeln('Telefonszama:');
  readln(beteg.tel);
  writeln('Bjegyzes datuma:');
  readln(beteg.datum);
  writeln('Kerem a fajl nevet:');
  readln(fnev);
  {$I-}
  assign(f, fnev);
  rewrite(f);
  writeln(f, 'Beteg neve:', beteg.nev);
  writeln(f, 'Beteg szuletesi eve:', beteg.szulev);
  writeln(f, 'Beteg panasza:', beteg.panasz);
  writeln(f, 'Beteg lakcime:', beteg.lakcim);
  writeln(f, 'Beteg telefonszama:', beteg.tel);
  writeln(f, 'Bejegyzes datuma:', beteg.datum);
  writeln('Fajl megnyitas:');
  readln(fnev);
  append(fnev);
  {$I-}
  close(f);
  end.
  
  előre is thx a segítséget. valami kiment a fejemből tudom...elfelejtettem. francba.
  kösz, csá!
  
  [Szerkesztve]

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