Aktív témák

• #18 Steelheart senior tag

  2004-11-23 19:34:24 #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

  

  Steelheart

  senior tag

  Hát, igen, nem túl szerencsés... É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...

• #17 Spyx tag

  2004-11-23 09:23:23 #17

  Ö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

  

  Spyx

  tag

  Még aznap megoldottam én is a quicksortot. De ennek ellenére megbuktam(kötprogihoz kellet volna).
  Na mindey jövőre már legalább nem kel ezt a kérdést újra feltennem

• #16 Steelheart senior tag

  2004-11-22 23:30:34 #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

  

  Steelheart

  senior tag

  Hát, ki tudja 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 És végülis innen programoztam meg, egy apró PH!-s segítséggel, ugyanis egy relációs jelet fordítva írtam.

• #15 Steelheart senior tag

  2004-11-22 23:29:34 #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

  

  Steelheart

  senior tag

  Hát, ki tudja 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 És végülis innen programoztam meg, egy apró PH!-s segítséggel, ugyanis egy relációs jelet fordítva írtam.

• #14 DopeBob addikt Steelheart #11

  2004-11-22 22:02:22 #14

  Ö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

  

  DopeBob

  addikt

  válasz Steelheart #11 üzenetére

  egy honap alatt csak megoldotta valahogy

• #13 Steelheart senior tag

  2004-11-22 22:01:50 #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

  

  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.

• #12 Steelheart senior tag

  2004-11-22 22:01:30 #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

  

  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]

• #11 Steelheart senior tag

  2004-11-22 21:59:43 #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

  

  Steelheart

  senior tag

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

• #10 Spyx tag

  2004-10-21 20:26:19 #10

  Ö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

  

  Spyx

  tag

  Khalox jól látja a helyzetet. A 2.oszlop szerint akarom rendezni . Tehát a egy sorban összetartozó elemek a rendezés után is ugyanabban a sorban legyenek.

• #9 b14 senior tag khalox #8

  2004-10-21 19:43:40 #9

  Ö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

  

  b14

  senior tag

  válasz khalox #8 üzenetére

  Hi
  Thx
  Mosttmar ertheto

• #8 khalox őstag b14 #7

  2004-10-21 19:34:57 #8

  Ö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

  

  khalox

  őstag

  válasz b14 #7 üzenetére

  Van egy 'táblázata', 3 oszlop, 3000 sor. A sorokat akarja rendezni a 2. oszlop értékei alapján. (Tehát a sorokat átrendezni úgy, hogy a második szlop szerint legyen rendezett...)

• #7 b14 senior tag cucka #6

  2004-10-21 19:31:16 #7

  Ö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

  

  b14

  senior tag

  válasz cucka #6 üzenetére

  Hi
  Nekem zagyva az egesz.
  Tegyuk fel, hogy ertem, de akkor mit akar a 3. oszloppal?

• #6 cucka addikt b14 #5

  2004-10-21 19:10:42 #6

  Ö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

  

  cucka

  addikt

  válasz b14 #5 üzenetére

  szerintem a tömb sorait szeretné rendezni a második oszlop szerint. rendezés után a tömb 2. oszlopa növekvő sorrendű lesz. legalábbis nekem így sikerült értelmezni a feladatot, nekem érthetőnek tűnt a feladat leírása. (vagy tévedek, és akkor itt most totál baromságot írtam)

• #5 b14 senior tag

  2004-10-21 17:12:35 #5

  Ö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

  

  b14

  senior tag

  Hi
  Irod, hogy a masodik elem szrint, akkor az elso es a harmadik az micsoda?
  Lehet, hogy csak an nem ertem, de kerlek magyarazd el egy picit bovebben a kerdesedet, mert ha ertenem valoszinuleg tudnek ra valaszolni

• #4 cucka addikt Spyx #3

  2004-10-21 10:23:21 #4

  Ö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

  

  cucka

  addikt

  válasz Spyx #3 üzenetére

  hát nem olyan nehéz megvalósítani mint amilyennek tűnik. egyébként itt nézz szét Bővebben: link. ami egyszerűbbnek tűnik, az a bubble sort (buborék rendezés) és az insertion sort (beszúró rendezés), bár ezek elég lassúak. 3000-es tömbhöz nagyon ajánlott valami gyorsabb.

• #3 Spyx tag cucka #2

  2004-10-21 10:12:09 #3

  Ö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

  

  Spyx

  tag

  válasz cucka #2 üzenetére

  Még kezdő vagyok. Ezt nem látom át teljesen => nem tudnám megvalósítani pascalban. Nem tudnál valami egyszerűbbet még ha nem is ennyire gyors?!
  De azért köszz eddig is

• #2 cucka addikt Spyx #1

  2004-10-21 09:57:35 #2

  Ö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

  

  cucka

  addikt

  válasz Spyx #1 üzenetére

  hát gyors rendezés a quicksort pl. Bővebben: link.

• #1 Spyx tag

  2004-10-21 09:40:29 #1

  Ö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

  

  Spyx

  tag

  Tud -e valaki valamilyen gyors rendezési formát egy két dimenziós tömb rendezésére(3000*3-as) .A második oszlop szerint akarom rendezni,növekvő sorrendbe. Minden eleme word. Kérhetek kész kódrészletet?!

Aktív témák