sort.pas

{ zwei.stein@worldonline.cz, zweistein.kgb.cz }
Program doublebubbleshortsort;

{
 (c) Petr "Zweistein" Prokop

 Program sort :
  extr‚mŘ rychl  metoda týˇdŘnˇ bez rekurze
}


Var I   : integer;   { index v cyklech}
    N   : integer;   { Poźet źˇsel }
    A   : array [1..255] of integer; {Pole s źˇsly}
    B   : integer;   {Pomocn  promŘn  na prohozenˇ}
    E   : Boolean;   {Pomocn  promŘn  pro cyklus}
    C   : integer;   {Zkracov nˇ cyklu}
    Fini: integer;

Begin;
 Write('Pocet_');    {Vstup poźtu źˇsel }
 Readln(N);          { --//-- }
{For i:=1 to N do
  begin;
   Write('Cislo [',i,']_');
   Readln(A[i]);
  end;}
 For i:=1 to N do a[i]:=trunc(random*10000); {Vlo§enˇ n honděch źˇsel}

 { -------------------- }

 C:=0;
 repeat              { zaź tek repeat cyklu }
   E:=false;         { poslednˇ cyklus }
   for i:=1+c to N-1-c do { pro vçechny prvky pole A }
    begin;
     if a[i]>a[i+1] then  { jestli je dalsˇ prvek mençˇ pak}
      begin;
       b:=a[i];      { zapatuj hodnotu }
       a[i]:=a[i+1]; { prohod źˇsla }
       a[i+1]:=b;    { obnov hodnotu }
       E:=true;      { jeçtŘ nekonźˇme}
      end;
     if a[N-i]>a[N-i+1] then  { podobn‚ jako u prvnˇho ifu }
      begin;
       b:=a[N-i+1];
       a[N-i+1]:=a[N-i];
       a[N-i]:=b;
       E:=true;
      end;
    end;
  c:=c+1;            { Zkr time cyklus }
 until E=false;      { To dŘlej dokud nebude konec }

 { ------------------------ }

 for i:=1 to N do Writeln('[',i,'] Cislo ',a[i]); { Věpis věsledku }

 B:=0;
 C:=N;
 i:=trunc((B+C)/2);
 E:=false;
 write('Hledat_');
 readln(fini);
 repeat
  i:=trunc((B+C)/2);
  if a[i]fini then C:=I;
 until (a[i]=Fini) or (b=c);
 if (b<>c) then writeln('Nalezeno ',fini, ' na ',i,' miste.');
 readln;
end.