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

• #327 Wasmacsó csendes tag

  Új Válasz 2004-09-26 19:28:38 #327

  Ú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

  jóh, az előző cuccot megoldottam, így néz ki a progi: Compile succesfull, 0 error(s) found! Aztán Division by Zero (runtime error)
  mi a frászt csináljak, nincs is benne hiba? mi ez? áááááááááááááá! lécci segítsetek má nekem mer ez nem megy. vannak itt profik is látom, pls help nekem! itt a kód:
  uses crt;
  var
  ch:char;
  f,flistext;
  fnev:string;
  beteg:record
  nev : string;
  szulev : integer;
  panasz : string;
  lakcim : string;
  tel : integer;
  datum : integer;
  end;
  procedure betegfelvetel;
  begin
  textbackground(blue);
  textcolor(yellow);
  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[max 8 karakter]:');
  readln(fnev);
  {$I-}
  assign(flist, 'c:/betegek.txt');
  rewrite(flist);
  write(flist, fnev);
  close(flist);
  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);
  close(f);
  end;
  procedure megnyit;
  begin
  textbackground(blue);
  textcolor(yellow);
  assign(flist, 'c:/list.txt');
  writeln('Kerem a fajl nevet:');
  write('FIGYELEM!!! Csak letezo fajlt adj meg,kulonbben ujat hozok letre!');
  writeln('A k”vetkezo fajlok vannak a mappaban:');
  reset(flist);
  readln(flist,fnev);
  readln(flist, fnev);
  close(flist);
  readln(fnev);
  assign(f,fnev);
  rewrite(f);
  readln(f, beteg.nev,beteg.szulev,beteg.lakcim,beteg.panasz,beteg.tel,beteg.datum);
  readln(beteg.nev);
  readln(beteg.szulev);
  readln(beteg.lakcim);
  readln(beteg.panasz);
  readln(beteg.tel);
  readln(beteg.datum);
  writeln(f, beteg.nev,beteg.szulev,beteg.lakcim,beteg.panasz,beteg.tel,beteg.datum);
  close(f);
  end;
  begin
  repeat
  writeln('f. Felvetel':15);
  writeln('o. Megnyitas' :15);
  writeln('x Kilepes' :15);
  ch:=readkey;
  repeat
  until ch in ['f','F','O','o','x','X';
  case ch of
  'f', 'F' : betegfelvetel;
  'o', 'O' : megnyit;
  'x', 'X' : halt;
  end;
  until false;
  {$I+}
  end.
  
  jó hosszú ugye? ha valaki szánna rám egy kis időt! nagyon köszi! hozzám is fordulhattok akármivel, csak ebben a témában vagyok béna
  köszi, csá!

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