Pascal - triedenie podla jednotlivych poloziek záznamov

tominoZA · Napísal **tominoZA**: 07.02.2009 20:33

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 · Napísal **Roberbo**: 08.02.2009 2:25

ides na to zle,, nie je co opravovat

Fico · Napísal **Fico**: 08.02.2009 9:39

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 · Napísal autor témy **tominoZA**: 08.02.2009 11:08

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 · Napísal **Fico**: 08.02.2009 12:21

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 · Napísal autor témy **tominoZA**: 08.02.2009 12:41

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 · Napísal **juho**: 08.02.2009 14:08

na moje posudzovacie schopnosti moc malo beginov a endov

neutronmind · Napísal **neutronmind**: 08.02.2009 14:21

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 · Napísal autor témy **tominoZA**: 08.02.2009 19:25

ide to

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

Pascal - triedenie podla jednotlivych poloziek záznamov

Podobné témy