Új hozzászólás Aktív témák

• #250 Steelheart senior tag

  Új Válasz 2004-05-31 21:51:39 #250

  Új hozzászólás

  Ö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

  Valamit nagyon elnézhettem, de nem jövök rá, hogy mit gépeltem el. A suliban még működött, csak rossz volt a floppym (jellemző), és kézzel írtam le. Most meg nem találom a hibát... biztos a kevés tapasztalat teszi... Nos, a QuickSort-ról van szó pascalban, remélem, vki segít.
  
  -----------------------------------------------------------------------------------
  
  Program quicksortprob;
  uses crt;
  
  const maxtomb=10;
  
  type tomb=array [1..maxtomb] of integer;
  
  var i:integer;
  X2:Tomb;
  
  Procedure valogat(eleje,vege: integer; var kozep:integer; 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; 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
  For i:=1 to maxtomb do Begin X2[(i)]:=random(1000); Write(X2[(i)],', '); End;
  quicksort(1,maxtomb,X2);
  For i:=1 to maxtomb do Write(X2[(i)],', ');
  Repeat until keypressed
  End.
  
  -----------------------------------------------------------------------------------
  
  A ''valogat'' eljárás kezdő Beginjéhez verem túlcsordulási hibát jelez ki, amit fordításban nem jelez. Pedig suliban még működött...
  
  [Szerkesztve]

Új hozzászólás Aktív témák