|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
22.10.2012, 13:19 | #1 |
Новичок
Джуниор
Регистрация: 22.10.2012
Сообщений: 3
|
Реализация кучи с указателями.
не получается реализовать процедуру вставки.нужно чтобы куча была полной.
|
22.10.2012, 13:20 | #2 |
Новичок
Джуниор
Регистрация: 22.10.2012
Сообщений: 3
|
procedure Insert(var Root,last: pnode; X: T);
procedure CreateNode(var p,last,f: pnode; n: T); begin New(p); p^.info:= n; p^.Left := nil; p^.Right := nil; p^.father:=f; last:=p; end; begin if Root = nil Then CreateNode(Root,last,root,X) else begin q:=root; with Root^ do begin if info<=X then begin if last=left then Insert(right,last,q, X) else insert(left,last,root,x); end else if last=left then begin Insert(right,last, X); sw(root,right); end else begin insert(left,last,x); sw(root,left); end; end; end; end; |
22.10.2012, 13:26 | #3 |
Новичок
Джуниор
Регистрация: 22.10.2012
Сообщений: 3
|
Не понимаю как организовать заполнения слева на право.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Биномиальные кучи (vb5) | Таня.Ку | Помощь студентам | 0 | 09.05.2011 16:35 |
Сортировка КУЧИ!!! | bignick | Общие вопросы по Java, Java SE, Kotlin | 6 | 11.04.2011 23:08 |
Повреждение кучи | fosder | Помощь студентам | 0 | 08.12.2010 01:36 |
Проблема с переполнением кучи. | NSvirus | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 14.11.2010 21:57 |