Tömb rendezése pascalban?? - Fototrend Hozzászólások

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?!