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...

• #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.

• #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

Aktív témák