Hostia nemozu chatovat na pouzivanie chatu sa prihlaste
Prihlásenie

PrihlásenieRegistrovať


Prihlásenie | Registrovať

   * Chat





harsop
Vytvoriť novú tému Odpovedať na tému  [ Príspevok: 1 ] 
Autor Správa
 Predmet príspevku: Pomoc s pascalom
PoslaťNapísal: 05 Feb 2009, 12:56 
Lost Lame
Lost Lame
Registrovaný: 05 Feb 2009, 12:52
Príspevky: 1

Ty si poďakoval: 0 krát
Dostal si poďakovanie: 0 krát
Ahojte. Prosím Vás o pomoc. Potrebujem aby sa knihy v tejto knižnici pri výpise zoradili podľa nejakého vybraného parametra a ešte potrebujem nejako dokončiť to moje zlé a nedorobené zacyklené vyhľadávanie. Bol by som rád ak by sa dalo vyhľadávať podľa viacerých parametrov na výber. Ak by mi s tým vedel niekto poradiť prosím...Ďakujem veľmi pekne.
Kód:
program beta_version_kniznica;
uses crt;
type kniha=record
     nazov,autor,vydavatelstvo:string;
     rokvyd,pocets:word;
      end;

var kniznica:array[0..10] of kniha;
      pocet:byte;
      a:char;

{OK}
procedure nacitaj(var a:byte);
var i:byte;
begin
clrscr;
textcolor(11);
write('kolko chces vlozit knih:');
readln(a);
  for i:=1 to a do
   with kniznica[i] do
    begin
     write('nazov ',i,': ');readln(nazov);
     write('autor ',i,': ');readln(autor);
     write('vydavatelstvo ',i,': ');readln(vydavatelstvo);
     write('rok vydania ',i,': ');readln(rokvyd);
     write('pocet stran ',i,': ');readln(pocets);
    end;clrscr; write('data nacitane !(stlac lubovolny klaves)!');readkey;
end;
{OK}
     {OK ale nezoraduje}

procedure vypis(a:byte);
var i:byte;
begin
clrscr;
writeln('vypis zoradeny podla roku vydania knihy');
for i:=1 to a do
  with kniznica[i] do
     begin
    writeln('KNIHA cislo ',i);
    writeln;
    writeln('nazov: ',nazov);
    writeln('autor: ',autor);
    writeln('vydavatelstvo: ',vydavatelstvo);
    writeln('rok vydania: ',rokvyd);
    writeln('pocet stran: ',pocets);
    writeln;
   end;
  write('vypis ukonceny !(stlac lubovolny klaves)!');readkey;
end;

{OK ale nezoraduje}

{no ok}
procedure hladaj(a:char);
var retazec:string;
    i:integer;
begin
clrscr;
while(ord(a)<>27)do
  begin
   writeln('zadavajte postupne retazec na vyhladanie v nazve knihy:');
   textcolor(12);
   writeln('Esc - ukoncit');
   repeat
     begin
      readln(retazec);
      clrscr;
       for i:=1 to 10 do
        begin
         with kniznica[i] do
          if (nazov)=(retazec) then vypis(i); writeln('Esc - ukoncit');
                               else writeln('hladany retazec sa v databaze nenachadza');
        end;

     end;
    until (ord(a)<>27);
    a:=readkey;
  end;
end;



BEGIN
while(ord(a)<>27)do
begin
clrscr;
textcolor(10);
writeln('::::::::::::::::::KNIZNICA v1.02::::::::::::::::::');
textcolor(11);
writeln('1 - zapisat knihy');
writeln('2 - vypis udajov');
writeln('3 - vyhladavanie v nazve knih');
textcolor(12);
writeln('Esc - ukoncit');
a:=readkey;
  case a of
   '1':begin nacitaj(pocet); end;
   '2':begin vypis(pocet); end;
   '3':begin hladaj(a); end;
  end;
end;
END.


Profil  Offline
 

Soubory na ShareRapid (47)

Napísal: automaticky - vyhledávání ShareRapid.cz 
Výsledky hledaní na ShareRapid: 47 súborov
Arabela se vrací 01 - Pomoc, za kopcem je obr.avi313.3 MBstiahnuté 712x
Volání o pomoc (2007) DVDRip CZ.rar736.4 MBstiahnuté 190x
MASH 070 - Prvni pomoc.avi196.7 MBstiahnuté 818x
10 - Pomoc mi Rondo.avi299.8 MBstiahnuté 188x
Hrdinové 02x04 - Pomoc bližnímu svému.rar407.8 MBstiahnuté 635x
070 - Prvni pomoc.avi167.7 MBstiahnuté 54x
01x02 Deník doktorky Pomoc potrebuju rande.avi549.7 MBstiahnuté 10x
Zobrazení všech 47 souborů, klikni sem!


Zobraziť príspevky z predchádzajúceho:  Zoradiť podľa  

Vytvoriť novú tému Odpovedať na tému  [ Príspevok: 1 ] 


Kto je on-line

Užívatelia prezerajúci fórum: Žiadny registrovaný užívateľ nie je prítomný a 1 hosť

Panel

Hore Nemôžete zakladať nové témy v tomto fóre
Nemôžete odpovedať na témy v tomto fóre
Nemôžete upravovať svoje príspevky v tomto fóre
Nemôžete mazať svoje príspevky v tomto fóre
Nemôžete zasielať súbory v tomto fóre
Skočiť na:  
Novinky Novinky Mapa stránok Mapa stránok Zoznam mapovaných Zoznam mapovaných Zdroje RSS Zdroje RSS Zoznam RSS Zoznam RSS
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group, Instant Messenger and user status created by phpbb3hacks.com
Slovenský preklad.
phpBB SEO
Dizayn Ercan Koc
.::Filmy.cc vsetko o filmoch::.,Zábava, Voľný čas na Directory.sk,.::Filmy.cc vsetko o filmoch:: CZIN.eu optimalizace PageRank.cz it.objav.sk – pc, mobil, hry, fotoZoz.sk - Zoznam stránok Bringer.skonline-filmy