[FRETSAW]

Помгите с курсачом! ПЛЗ! Составит программу, сортировки массива, с помощью пирамидального дерева! На Pascal или Delphi !

[Страдалецъ]

Вот ссылка http://program.rin.ru/razdel/html/784.html
Изучайте.

[FRETSAW]

СПС! Но там С!

[Страдалецъ]

Почти без разницы, отличия в синтаксисе минимальные.
Вместо (&&) пишите (and)
Где присваивание вместо ( = ) пишите ( := )
Где декларация переменных, вместо записи (int i, temp; ) пиши (Var i,temp: integer; )

[PhoeniX]

ИМХО, чем пытать этот код, проще накидать по аналогии с 0.
Если котелок не варит - стучи в 7091498, перепишу на делфи за семизнак (~60р)

[ART]

Не знаю в чем дело, но сортировка не трогает первый элемент:

Код:

type
  TMass = array of integer;

    procedure downHeap(var a: TMass; k, N: integer);
     var
      newElt, child: integer;
     begin
      newElt := a[k];
      while (k <= N div 2) do begin
        child := 2 * k;
        if (child < N) and (a[child] < a[child + 1]) then
         inc(child);
        if newElt >= a[child] then break;
        a[k] := a[child];
        k := child;
      end;
      a[k] := newElt;
     end;

 procedure heapSort(var a: TMass; N: integer);
 var
  i, temp: integer;
 begin
  for i := N div 2 downto 1 do
   downHeap(a, i, N);

  for i := N downto 2 do begin
   temp := a[i];
   a[i] := a[1];
   a[1] := temp;
   downHeap(a, 1, i - 1);
  end;

 end;

[FRETSAW]

СПС! Счас попробую!

[FRETSAW]

DJ PhoeniX Первая какая цифра?

[PhoeniX]

мм? если смущает короткий номер ICQ - так это так и есть)) VIP семизнак (хоть семёрки уже фиг-с-два не ви-ай-пи...)
Добавь, убедишься сам. 709-14-98