Pascal - triedenie podla jednotlivych poloziek záznamov

tominoZA

Ahojte, potrebujem, aby sa mi zoradili jednotlive záznamy pola podla toho, co si zvoli uzivatel: teda jedno z: nazov,autor,vydavatelsto,rokvydania alebo pocet stran. K nazvu som sa asi dopracoval (aj ked nie na 100% ale nejde mi do hlavy co s ostatnymi) ....pomozete mi prosim? tu je kod procedury triedenia ...ak budete potrebovat viac zverejnim tu aj to

Kód:

procedure utried(DLZKA:integer); {procedúra na usporiadanie}
var 
    i, j:integer;
    pom: kniha;

begin
 clrscr;
 writeln('zadajte podla coho chcete zaznamy zoradit v databaze: ');
 writeln;
 textcolor(9);
 writeln('1 - nazov knihy');
 textcolor(10);
 writeln('2 - meno autora');
 textcolor(11);
 writeln('3 - vydavatelstvo');
 textcolor(12);
 writeln('4 - rok vydania');
 textcolor(13);
 writeln('5 - pocet stran');
 textcolor(12);
 writeln;
 case a of
  '1':begin
  for i:=1 to DLZKA-1 do 
        for j:=i+1 to DLZKA do
        if kniznica[i].nazov>kniznica[j].nazov then
                begin 
                 pom.nazov:=kniznica[i].nazov;
                 pom.autor:=kniznica[i].autor;
                 pom.vydavatelstvo:=kniznica[i].vydavatelstvo;
                 pom.rokvyd:=kniznica[i].rokvyd;
                 pom.pocets:=kniznica[i].pocets;

                 kniznica[i].nazov:=kniznica[j].nazov;
                 kniznica[i].autor:=kniznica[j].autor;
                 kniznica[i].vydavatelstvo:=kniznica[j].vydavatelstvo;
                 kniznica[i].rokvyd:=kniznica[j].rokvyd;
                 kniznica[i].pocets:=kniznica[j].pocets;

                 kniznica[j].nazov:=pom.nazov;
                 kniznica[j].autor:=pom.autor;
                 kniznica[j].vydavatelstvo:=pom.vydavatelstvo;
                 kniznica[j].rokvyd:=pom.rokvyd;
                 kniznica[j].pocets:=pom.pocets;
                end;  end;
  '2':begin
  for i:=1 to DLZKA-1 do 
        for j:=i+1 to DLZKA do
        if kniznica[i].autor>kniznica[j].autor then
                begin 
                 pom.nazov:=kniznica[i].nazov;
                 pom.autor:=kniznica[i].autor;
                 pom.vydavatelstvo:=kniznica[i].vydavatelstvo;
                 pom.rokvyd:=kniznica[i].rokvyd;
                 pom.pocets:=kniznica[i].pocets;

                 kniznica[i].nazov:=kniznica[j].nazov;
                 kniznica[i].autor:=kniznica[j].autor;
                 kniznica[i].vydavatelstvo:=kniznica[j].vydavatelstvo;
                 kniznica[i].rokvyd:=kniznica[j].rokvyd;
                 kniznica[i].pocets:=kniznica[j].pocets;

                 kniznica[j].nazov:=pom.nazov;
                 kniznica[j].autor:=pom.autor;
                 kniznica[j].vydavatelstvo:=pom.vydavatelstvo;
                 kniznica[j].rokvyd:=pom.rokvyd;
                 kniznica[j].pocets:=pom.pocets;
                end;  end;
  '3':begin
  for i:=1 to DLZKA-1 do 
        for j:=i+1 to DLZKA do
        if kniznica[i].vydavatelstvo>kniznica[j].vydavatelstvo then
                begin 
                 pom.nazov:=kniznica[i].nazov;
                 pom.autor:=kniznica[i].autor;
                 pom.vydavatelstvo:=kniznica[i].vydavatelstvo;
                 pom.rokvyd:=kniznica[i].rokvyd;
                 pom.pocets:=kniznica[i].pocets;

                 kniznica[i].nazov:=kniznica[j].nazov;
                 kniznica[i].autor:=kniznica[j].autor;
                 kniznica[i].vydavatelstvo:=kniznica[j].vydavatelstvo;
                 kniznica[i].rokvyd:=kniznica[j].rokvyd;
                 kniznica[i].pocets:=kniznica[j].pocets;

                 kniznica[j].nazov:=pom.nazov;
                 kniznica[j].autor:=pom.autor;
                 kniznica[j].vydavatelstvo:=pom.vydavatelstvo;
                 kniznica[j].rokvyd:=pom.rokvyd;
                 kniznica[j].pocets:=pom.pocets;
                end;  end;
  '4':begin for i:=1 to DLZKA-1 do 
        for j:=i+1 to DLZKA do
        if kniznica[i].rokvyd>kniznica[j].rokvyd then
                begin 
                 pom.nazov:=kniznica[i].nazov;
                 pom.autor:=kniznica[i].autor;
                 pom.vydavatelstvo:=kniznica[i].vydavatelstvo;
                 pom.rokvyd:=kniznica[i].rokvyd;
                 pom.pocets:=kniznica[i].pocets;

                 kniznica[i].nazov:=kniznica[j].nazov;
                 kniznica[i].autor:=kniznica[j].autor;
                 kniznica[i].vydavatelstvo:=kniznica[j].vydavatelstvo;
                 kniznica[i].rokvyd:=kniznica[j].rokvyd;
                 kniznica[i].pocets:=kniznica[j].pocets;

                 kniznica[j].nazov:=pom.nazov;
                 kniznica[j].autor:=pom.autor;
                 kniznica[j].vydavatelstvo:=pom.vydavatelstvo;
                 kniznica[j].rokvyd:=pom.rokvyd;
                 kniznica[j].pocets:=pom.pocets;
                end;  end;
  '5':begin
  for i:=1 to DLZKA-1 do 
        for j:=i+1 to DLZKA do
        if kniznica[i].pocets>kniznica[j].pocets then
                begin 
                 pom.nazov:=kniznica[i].nazov;
                 pom.autor:=kniznica[i].autor;
                 pom.vydavatelstvo:=kniznica[i].vydavatelstvo;
                 pom.rokvyd:=kniznica[i].rokvyd;
                 pom.pocets:=kniznica[i].pocets;

                 kniznica[i].nazov:=kniznica[j].nazov;
                 kniznica[i].autor:=kniznica[j].autor;
                 kniznica[i].vydavatelstvo:=kniznica[j].vydavatelstvo;
                 kniznica[i].rokvyd:=kniznica[j].rokvyd;
                 kniznica[i].pocets:=kniznica[j].pocets;

                 kniznica[j].nazov:=pom.nazov;
                 kniznica[j].autor:=pom.autor;
                 kniznica[j].vydavatelstvo:=pom.vydavatelstvo;
                 kniznica[j].rokvyd:=pom.rokvyd;
                 kniznica[j].pocets:=pom.pocets;
                end;  end;

end;
readln;
end;

Roberbo

ides na to zle,, nie je co opravovat

Fico

Napísal si, že to triedenie podľa mena ti funguje? Ja neviem, ale to porovnanie

Kód:

if (kniznica[i].nazov > kniznica[j].nazov) then

mi akosi nejde do hlavy. Týmto podľa mňa porovnávaš, ktorý z týchto reťazcov je uložený na vyššej adrese. Nie som si istý, ale mal by si to porovnávanie upraviť tak, aby ti to porovnávalo jenotlivé znaky týchto názvov.
Týmto kódom porovnas prvé znaky názvov:

Kód:

if ( kniznica[i].nazov[1] ) > kniznica[j].nazov[1] )

Až takto sa porovnáva, ktorá hodnota znaku je vyššia. Skús to nejako takto upraviť (namiesto tej jednotky tam musíš dať opäť nejaký cyklus, abi ti to porovnávalo aj ďalšie znaky), a keby si niečomu nerozumel, kludne napíš.

tominoZA

Aha

vedel som ze v niecom bude chyba

dakujem....no dobre...dal som to porovnavanie jednotlivych znakov, akurat ze neviem dokedy....do dlzky retazca?...length ?

Fico

Presne tak, do dĺžky reťazca, ale stačí do toho kratšieho. Takže ešte pred tým si musíš zistiť, ktorý je kratší. Ako si napísal, zistíš to podľa funkcie Length.

tominoZA

nieco tam mam stale zle pretoze to nezoraduje....

Kód:

begin
 clrscr;
    for i:=1 to DLZKA-1 do
        for j:=i+1 to DLZKA do
         dlzkaretazca1:=length(kniznica[i].nazov);
         dlzkaretazca2:=length(kniznica[j].nazov);
         if dlzkaretazca1>=dlzkaretazca2 then maxdlzkaretazca:=dlzkaretazca1
                                         else maxdlzkaretazca:=dlzkaretazca2;
          for k:=1 to maxdlzkaretazca do
           if kniznica[i].nazov[k]>kniznica[j].nazov[k] then

juho

na moje posudzovacie schopnosti moc malo beginov a endov

neutronmind

kenny8911: bolo to spravne... V Pascale mozes retazce porovnavat normalne pomocou >, <, >=, <=, =, <>, pricom plati, ze napr. retazec "aaa" je mensi ako "aba"...
Zda sa mi aj, ze v Pascale mozes priradit celu strukturu dalsej, teda nemusis to robit po kazdej polozke (tym padom by malo ist aj napr. pom:=kniznica[i]).

//EDIT: Tu to mas narychlo opravene, ale malo by to fungovat korektne...

Kód:

procedure utried(DLZKA:integer); {procedúra na usporiadanie} 
var 
    i, j:integer; 
    pom: kniha; 

begin 
 clrscr; 
 writeln('Zadajte podla coho chcete zaznamy zoradit v databaze: ');
 writeln; 
 textcolor(9); 
 writeln('1 - nazov knihy'); 
 textcolor(10); 
 writeln('2 - meno autora'); 
 textcolor(11); 
 writeln('3 - vydavatelstvo'); 
 textcolor(12); 
 writeln('4 - rok vydania'); 
 textcolor(13); 
 writeln('5 - pocet stran'); 
 textcolor(12); 
 writeln; 
 case a of 
  '1':begin 
  for i:=1 to DLZKA-1 do 
        for j:=i+1 to DLZKA do 
        if kniznica[i].nazov>kniznica[j].nazov then
                begin 
                 pom:=kniznica[i];
                 kniznica[i]:=kniznica[j];
                 kniznica[j]:=pom;
                end;  end; 
  '2':begin 
  for i:=1 to DLZKA-1 do 
        for j:=i+1 to DLZKA do 
        if kniznica[i].autor>kniznica[j].autor then
                begin 
                 pom:=kniznica[i];
                 kniznica[i]:=kniznica[j];
                 kniznica[j]:=pom;
                end;  end; 
  '3':begin 
  for i:=1 to DLZKA-1 do 
        for j:=i+1 to DLZKA do 
        if kniznica[i].vydavatelstvo>kniznica[j].vydavatelstvo then
                begin 
                 pom:=kniznica[i];
                 kniznica[i]:=kniznica[j];
                 kniznica[j]:=pom;
                end;  end; 
  '4':begin for i:=1 to DLZKA-1 do 
        for j:=i+1 to DLZKA do 
        if kniznica[i].rokvyd>kniznica[j].rokvyd then
                begin 
                 pom:=kniznica[i];
                 kniznica[i]:=kniznica[j];
                 kniznica[j]:=pom;
                end;  end; 
  '5':begin 
  for i:=1 to DLZKA-1 do 
        for j:=i+1 to DLZKA do 
        if kniznica[i].pocets>kniznica[j].pocets then 
                begin 
                 pom:=kniznica[i];
                 kniznica[i]:=kniznica[j];
                 kniznica[j]:=pom;
                end;  end; 

end; 
readln; 
end;

tominoZA

ide to

chyba readln(a); pred case.....dakujem este raz

Pascal - triedenie podla jednotlivych poloziek záznamov

Pascal - triedenie podla jednotlivych poloziek záznamov

Podobné témy

Pascal - triedenie

Triedenie podľa textu

Pascal - triedenie + vyhladavanie

foobar2000 triedenie podla priecinka

Pascal - Zoradenie 5 čísel podľa veľksti

WIN7-usporiadanie podla typu a zaroven podla datumu

Označenie položiek

presúvanie položiek

vypis jedinecnych poloziek

Zapis viac poloziek

Strata poloziek v BIOSe

Delphi7: Zobrazovanie moznych poloziek

Free Pascal a Turbo Pascal

zmena položiek dialogoveho okna vo winXP

Porovnanie jednotlivych CMS

Rozsirene triedenie