2. Fórumok
  3. Szoftverfejlesztés
  4. Tömb rendezése pascalban??
  5. (téma lezárva)
Keresés

Aktív témák

  • #11 Steelheart senior tag
    #11
    Ö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

    Steelheart

    senior tag

    Aktuális még a problem? már a rendezéses

    XFire profile: http://profile.xfire.com/crystalheart ________>>--(O.o)-->________ http://www.youtube.com/watch?v=0NM45lYPb_A _________>>--(X.x)-->_________ http://crystalheart.extra.hu/e107_files/downloads/video/myvid/ggstart_f2_3kbps.avi

  • #12 Steelheart senior tag
    #12
    Ö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

    Steelheart

    senior tag

    Nos, ez számokra íródott, ha abc-sorrendben akarnk rendezni, az kicsit bonyolultabb, még néhány procedúrát és funkciót igényel.

    Ha kell még vkinek, ha nem, azé nesze, vkinek még jól jöhet:

    [Szerkesztve]

    XFire profile: http://profile.xfire.com/crystalheart ________>>--(O.o)-->________ http://www.youtube.com/watch?v=0NM45lYPb_A _________>>--(X.x)-->_________ http://crystalheart.extra.hu/e107_files/downloads/video/myvid/ggstart_f2_3kbps.avi

  • #13 Steelheart senior tag
    #13
    Ö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

    Steelheart

    senior tag

    Program quicksortprob;
    uses crt;

    const maxtomb=20;

    type tomb=array [1..maxtomb] of integer;

    var i:integer;
    X2:Tomb;

    Procedure valogat(eleje,vege: integer; var kozep:integer; var X:Tomb);
    var i,j,k:integer;
    Begin
    k:=X[eleje];
    While eleje<vege do Begin
    While (X[vege]>k) and (eleje<vege) do dec(vege);
    If eleje<vege then Begin
    X[eleje]:=X[vege];
    inc(eleje);
    While (X[eleje]<=k) and (eleje<vege) do inc(eleje);
    If eleje<vege then Begin
    X[vege]:=X[eleje];
    dec(vege);
    End;
    End;
    End;
    X[eleje]:=k;
    kozep:=eleje;
    End;

    Procedure quicksort(eleje,vege:integer; var X:Tomb);
    var kozep:integer;
    Begin
    valogat(eleje,vege,kozep,X);
    If eleje<kozep-1 then quicksort(eleje,kozep-1,X);
    If vege>kozep+1 then quicksort(kozep+1,vege,X);
    End;

    {**************************}

    Begin
    ClrScr;
    randomize;
    For i:=1 to maxtomb do Begin X2[(i)]:=random(100); Write(X2[(i)],', '); End;
    quicksort(1,maxtomb,X2);
    WriteLn;
    WriteLn;
    WriteLn('********---********');
    WriteLn;
    For i:=1 to maxtomb do Write(X2[(i)],', ');
    Repeat until keypressed
    End.

    XFire profile: http://profile.xfire.com/crystalheart ________>>--(O.o)-->________ http://www.youtube.com/watch?v=0NM45lYPb_A _________>>--(X.x)-->_________ http://crystalheart.extra.hu/e107_files/downloads/video/myvid/ggstart_f2_3kbps.avi

  • #15 Steelheart senior tag
    #15
    Ö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

    Steelheart

    senior tag

    Hát, ki tudja:D de még másoknak is jól jöhet, és nem kell C-ből kisilabizálni, hogy is kell, persze C ismerete nélkül :) Anno fél éve én az elméletével találkoztam egy Nemes Tihamér versenyfeladatban, ahol vmi ülésrendre volt ez a quicksort, szövegben leítva az algoritmusa, hogy ''ezt ide ültetjük, aztán felállítjuk...'' LOL :DDD És végülis innen programoztam meg, egy apró PH!-s segítséggel, ugyanis egy relációs jelet fordítva írtam.

    XFire profile: http://profile.xfire.com/crystalheart ________>>--(O.o)-->________ http://www.youtube.com/watch?v=0NM45lYPb_A _________>>--(X.x)-->_________ http://crystalheart.extra.hu/e107_files/downloads/video/myvid/ggstart_f2_3kbps.avi

  • #16 Steelheart senior tag
    #16
    Ö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

    Steelheart

    senior tag

    Hát, ki tudja:D de még másoknak is jól jöhet, és nem kell C-ből kisilabizálni, hogy is kell, persze C ismerete nélkül :) Anno fél éve én az elméletével találkoztam egy Nemes Tihamér versenyfeladatban, ahol vmi ülésrendre volt ez a quicksort, szövegben leítva az algoritmusa, hogy ''ezt ide ültetjük, aztán felállítjuk...'' LOL :DDD És végülis innen programoztam meg, egy apró PH!-s segítséggel, ugyanis egy relációs jelet fordítva írtam.

    XFire profile: http://profile.xfire.com/crystalheart ________>>--(O.o)-->________ http://www.youtube.com/watch?v=0NM45lYPb_A _________>>--(X.x)-->_________ http://crystalheart.extra.hu/e107_files/downloads/video/myvid/ggstart_f2_3kbps.avi

  • #18 Steelheart senior tag
    #18
    Ö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

    Steelheart

    senior tag

    Hát, igen, nem túl szerencsés... :DDD Én most épp ahhoz használom föl a QuickSortot, hogy egy típusfájlt az egyik szöveg oszlopa szerint abc-sorrendbe tegyek. Az első betű szerint már megy is, persze leszámítva az újabb gépek ASCII eltérését, a második és harmadik stb. betűvel még bajok vannak... de holnapra meg kell csinálnom, szal jobb lesz belehúzni. Valszeg megint csak egy betűt írtam el vhol... :(((

    XFire profile: http://profile.xfire.com/crystalheart ________>>--(O.o)-->________ http://www.youtube.com/watch?v=0NM45lYPb_A _________>>--(X.x)-->_________ http://crystalheart.extra.hu/e107_files/downloads/video/myvid/ggstart_f2_3kbps.avi

Aktív témák