Aktív témák
-
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?!
Gyötrődő halálos játék: élet! Tőled én még mit kívánnék?!...
-
cucka
addikt
hát gyors rendezés a quicksort pl. Bővebben: link.
-
cucka
addikt
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.
-
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''...de a konfigjából kiindulva, nem hiszem, hogy 40 éves családos ember lenne...'' -- by Slax
-
cucka
addikt
-
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.
Gyötrődő halálos játék: élet! Tőled én még mit kívánnék?!...
-
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
-
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
-
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
-
DopeBob
addikt
-
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.
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
-
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.
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
-
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 feltennemGyötrődő halálos játék: élet! Tőled én még mit kívánnék?!...
-
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...
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
- Huawei P30 Pro - teletalálat
- Formula-1
- Otthoni hálózat és internet megosztás
- WLAN, WiFi, vezeték nélküli hálózat
- Kerékpárosok, bringások ide!
- Analóg kapcsolós klaviatúrák triója a Razer fémjelzésével
- Milyen routert?
- Renault, Dacia topik
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- Politika
- További aktív témák...
- Nintendo Switch v2 4 játék, Minden tartozék, Hordtáska
- Redmi note 12 pro 5g 128/6+6gb A leg újabb verzió hyperos android14 Új állapotban egy napos készülék
- Ledvance LED Flat 1200lm/2700K/IP20/20W/380 mm átmérőjű mennyezeti LED lámpa -1 db 5000 / 3 db 13000
- Garanciális Raijintek 850W full moduláris új PCie5.0:12VHPWR gold
- Laptopot cserélnék Oculus Quest 3-ra