Форум по программированию Delphi Sources

 



Вернуться   Форум по программированию Delphi Sources > Разное > Исходники и статьи
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 12.06.2009, 14:28
FRETSAW FRETSAW вне форума
Прохожий
 
Регистрация: 12.06.2009
Сообщения: 4
Репутация: 10
По умолчанию Помогите!

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

Последний раз редактировалось FRETSAW, 14.06.2009 в 07:08.
Ответить с цитированием
  #2  
Старый 12.06.2009, 15:11
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,712
Репутация: 52347
По умолчанию

Вот ссылка http://program.rin.ru/razdel/html/784.html
Изучайте.
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием
  #3  
Старый 14.06.2009, 07:08
FRETSAW FRETSAW вне форума
Прохожий
 
Регистрация: 12.06.2009
Сообщения: 4
Репутация: 10
По умолчанию

СПС! Но там С!
Ответить с цитированием
  #4  
Старый 14.06.2009, 12:39
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,712
Репутация: 52347
По умолчанию

Почти без разницы, отличия в синтаксисе минимальные.
Вместо (&&) пишите (and)
Где присваивание вместо ( = ) пишите ( := )
Где декларация переменных, вместо записи (int i, temp; ) пиши (Var i,temp: integer; )
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием
  #5  
Старый 14.06.2009, 13:15
Аватар для PhoeniX
PhoeniX PhoeniX вне форума
Always hardcore!
 
Регистрация: 04.03.2009
Адрес: СПб
Сообщения: 3,238
Версия Delphi: GCC/FPC/FASM
Репутация: 62149
По умолчанию

ИМХО, чем пытать этот код, проще накидать по аналогии с 0.
Если котелок не варит - стучи в 7091498, перепишу на делфи за семизнак (~60р)
__________________
Оставайтесь хорошими людьми...
VK id2634397, ds [at] phoenix [dot] dj
Ответить с цитированием
  #6  
Старый 14.06.2009, 15:04
ART ART вне форума
Продвинутый
 
Регистрация: 13.02.2006
Адрес: Магнитогорск
Сообщения: 669
Репутация: 14745
По умолчанию

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

Код:
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;
Ответить с цитированием
  #7  
Старый 14.06.2009, 21:34
FRETSAW FRETSAW вне форума
Прохожий
 
Регистрация: 12.06.2009
Сообщения: 4
Репутация: 10
По умолчанию

СПС! Счас попробую!
Ответить с цитированием
  #8  
Старый 14.06.2009, 21:35
FRETSAW FRETSAW вне форума
Прохожий
 
Регистрация: 12.06.2009
Сообщения: 4
Репутация: 10
По умолчанию

DJ PhoeniX Первая какая цифра?
Ответить с цитированием
  #9  
Старый 15.06.2009, 01:37
Аватар для PhoeniX
PhoeniX PhoeniX вне форума
Always hardcore!
 
Регистрация: 04.03.2009
Адрес: СПб
Сообщения: 3,238
Версия Delphi: GCC/FPC/FASM
Репутация: 62149
По умолчанию

мм? если смущает короткий номер ICQ - так это так и есть)) VIP семизнак (хоть семёрки уже фиг-с-два не ви-ай-пи...)
Добавь, убедишься сам. 709-14-98
__________________
Оставайтесь хорошими людьми...
VK id2634397, ds [at] phoenix [dot] dj
Ответить с цитированием
Ответ



Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 13:02.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources", 2004-2019

ВКонтакте   Facebook   Twitter