quicksort

[bfm89]

pls, pomogite razobratsia s trassirovkoi/realizatsiei algoritma quicksort:

qsort(a,l,u);
begin
K: i:=1, k:=u, r:=a[i];
L: if a[k]<r then begin a[i]:=a[k]; doto Q; end;
M: k:=k-1; if i<k then goto L else goto N;
P: if a[i]>r then begin a[k]:=a[i]; goto M; end;
Q: i:=i+1; if i<k then goto P;
N: a[i]:=r;
if 2*i<l+u then
begin i:=l; l:=k+1; k=:k-1 end
else begin k:=u; u:=i-1; i:=i+1 end;
if i<k then qsort(a,i,k);
if l<u then goto K;
end.

sam algoritm 9 pon9la, a vot to, 4to proishodit na 3-m wage ne o4en'=((((
// kakoi sleduiuwi wag kogda neravenstva i<k, l<u ne 9vl9iutsia takovymi?

Модератор: не пишите на транслите. Есть много сервисов для перевода.
И обращайте внимание на название раздела.

[nazavrik]

о_0

Я не так уж долго программирую, но с 90% долей вероятности могу сказать, что это не Си.

[bondik]

Это паскаль.Насчет сортировки:

C++

void quickSortR(T* a, long N) {
// На входе - массив a[], a[N] - его последний элемент.

  long i = 0, j = N; 		// поставить указатели на исходные места
  T temp, p;

  p = a[ N>>1 ];		// центральный элемент

  // процедура разделения
  do {
    while ( a[i] < p ) i++;
    while ( a[j] > p ) j--;

    if (i <= j) {
      temp = a[i]; a[i] = a[j]; a[j] = temp;
      i++; j--;
    }
  } while ( i<=j );


  // рекурсивные вызовы, если есть, что сортировать 
  if ( j > 0 ) quickSortR(a, j);
  if ( N > i ) quickSortR(a+i, N-i);
}

Паскаль

program Quitsort;
 uses
   crt;
 Const
  N=10;
 Type
  Mas=array[1..n] of integer;
var
  a: mas;
  k: integer;
function Part(l, r: integer):integer;
var
  v, i, j, b: integer;
begin
  V:=a[r];
  I:=l-1;
  j:=r;
  repeat
    repeat
      dec(j)
    until (a[j]<=v) or (j=i+1);
    repeat
      inc(i)
    until (a[i]>=v) or (i=j-1);
    b:=a[i];
    a[i]:=a[j];
    a[j]:=b;
  until i>=j;
  a[j]:=a[i];
  a[i]:= a[r];
  a[r]:=b;
  part:=i;
end;
procedure QuickSort(l, t: integer);
var i: integer;
begin
  if l<t then
    begin
      i:=part(l, t);
      QuickSort(l,i-1);
      QuickSort(i+1,t);
    end;
end;
begin
  clrscr;
  randomize;
  for k:=1 to 10 do
    begin
      a[k]:=random(100);
      write(a[k]:3);
    end;
  QuickSort(1,n);
  writeln;
  for k:=1 to n do
    write(a[k]:3);
  readln;
end.

На весы под ником кликай и спасибо пиши.