PASCAL pomoc prosim

strho

Prosim Vas mam túto procedúru upraviť tak, že sa ma má prv spýtať ktorý záznam chcem vypísať (napr mam ich tam uloženych 20 ale chcem vypísat len 3.)...Vopred ďakujem

Kód: Vybrať všetko

  procedure vypis;
   begin
      clrscr;
      reset(suborfilmov);
      size:=filesize(suborfilmov);

      while not eof(suborfilmov)
        do begin
             read(suborfilmov,filmv);
             writeln;
             writeln;
             writeln('Zaznam cislo: ',filepos(suborfilmov),'.');
             writeln;
             writeln('Nazov filmu: ',filmv.nazov);
             writeln('Zaner: ',filmv.zaner);
             writeln('Rok vyroby: ',filmv.rok);
             writeln('Reziser: ',filmv.reziser);
             writeln('Hodnotenie: ',filmv.hodnotenie,'%');
           end;
      readln;
   end;

ak je to tvoj program, a robíte už so súbormi, určite ste mali aj vstupy a cykly. Pokús sa aspoň sám, lebo mám taký pocit že si iba niekde zkopíroval kod ktorý ti trošku vyhovuje a čakáš kým ti niekto spraví úlohu

strho

pravdu povediac to nie je moj program ale kamoskin..robime prave databazu... a snazim sa jej pomoct s tym skokom..skusal som to ale na nic som neprisiel..tak preto sa pytam bo my sme oproti nim s ucivom pozadu..

... chcel som dako cez seek ale netusim ako..

Kód: Vybrať všetko

procedure vypis(ktory:integer);
   begin
      clrscr;
      reset(suborfilmov);
      seek(suborfilmov,ktory-1);
      read(suborfilmov,filmv); 
      writeln;
      writeln;
      writeln('Zaznam cislo: ',filepos(suborfilmov),'.');
      writeln;
      writeln('Nazov filmu: ',filmv.nazov);
      writeln('Zaner: ',filmv.zaner);
      writeln('Rok vyroby: ',filmv.rok);
      writeln('Reziser: ',filmv.reziser);
      writeln('Hodnotenie: ',filmv.hodnotenie,'%');
      readln;
      closefile(suborfilmov);
   end;

c-ice

len taka otazka pascal som dlho nevidel ani si to nepamatam ...
"filmv" je premenna typu struktura ? v pascale existuju struktury ? nenacitava read(); iba jeden znak ? a readln(); jeden riadok..

strho

dakujem velmi pekne..takto som to skusal aj ja..ale niekde som sa musel asi pomylit ..hned som o nieco mudrejsi..fakt dik.-) aha uz vem preco..ja som tam zbytocne volal proceduru eoln preto mi to blbosti vypisovalo:-)

c-ice: dáta v súbore sú typu record (štruktúra je to isté, no v céčkovej terminologii (ak sa ale zameriame už na c++ tak to to isté nie je)). A read načítava to, čo mu prikážeš druhým parametrom (jeho dátovým typom). Readln načítava riadok, ten pri dátových súboroch použiť nemôžeš