 процедура, которая меняет Max и Min элементы дерева, процедура, которая меняет max и min элементы дерева |
Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
  |
| Слава |
Сообщение
#1
|
|
Гость  |
Ребята помогите написать процедуру, которая меняет max и min элементы непустого дерева, все элементы которого различны!!
|
 
|
|
| volvo |
Сообщение
#2
|
|
Гость |
Для начала вспомни, что такое минимальное, а что - максимальное значение дерева (я надеюсь, речь об упорядоченном бинарном дереве?), т.е. где именно в дереве эти элементы находятся...
|
|
|
|
| Слава |
Сообщение
#3
|
|
Гость |
задача полностью звучит так :
Используя очередь или стек описать процедуру или функцию, которая : меняет местами max и min элементы непустого дерева, все элементы которого различны(ТЭД=real). Да, я думаю речь идет об обычном упорядоченном бинарном дереве. |
|
|
|
| Гость |
Сообщение
#4
|
|
Гость |
Ребята, ну неужели никто никогда не сталкивался с такой задачей??
|
|
|
|
| volvo |
Сообщение
#5
|
|
Гость |
Цитата(Слава @ 7.01.2007 17:08) Используя очередь или стек описать процедуру или функцию, которая : меняет местами max и min элементы непустого дерева, все элементы которого различны Зачем тут очередь, или стек - спрашивается?  Без них все прекрасно делается:procedure change_min_max(root: ttree);
type what = (_min, _max);
procedure get_extrem(find: what; p: ttree; var p_search: ttree);
begin
if p <> nil then begin
if p_search = nil then p_search := p
else if (p^.data > p_search^.data) = boolean(ord(find)) then p_search := p;
get_extrem(find, p^.left, p_search); get_extrem(find, p^.right, p_search);
end
end;
var
T: real;
p_min, p_max: ttree;
begin
p_min := nil; get_extrem(_min, root, p_min);
p_max := nil; get_extrem(_max, root, p_max);
T := p_min^.data; p_min^.data := p_max^.data; p_max^.data := T;
end;
|
|
|
|
| Слава |
Сообщение
#6
|
|
Гость |
не знаю, зачем это надо, просто такое задание
 , которое уже завтра надо сдать  можно ещё вопрос, что у меня не правильно вот в этой процедуре: procedure PrintTree(r: TreePointer; n: integer); var i:integer; begin if r<>nil then begin PrintTree(r.^left, n+1); for i := 1 to n do Write(' '); Writeln(r^.data); PrintTree(r^.right, n+1); end; end; Пишет invalid qualifier |
|
|
|
| volvo |
Сообщение
#7
|
|
Гость |
Цитата PrintTree(r.^left, n+1); Поменяй местами эти 2 символа... |
|
|
|
| Слава |
Сообщение
#8
|
|
Гость |
Volvo огромное спасибо за помощь, я всё-таки вчера смог осилить эту задачу, если кому понадобиться смогу ее выслать или выложить.
|
|
|
|
| MIsterIo |
Сообщение
#9
|
|
Группа: Пользователи Сообщений: 1 Пол: Мужской Репутация:  0  |
Плиз подскажите как создать само дерево( точнее его заполнить с сылками на элементы), чтобы потом там искать мин и макс эл-ты,затем их менять, а потом печатать уже полученное в правильном порядке.
Сообщение отредактировано: MIsterIo - |
   |
|
| volvo |
Сообщение
#10
|
|
Гость |
Тебе сюда: Бинарные деревья, там есть все, что нужно для решения твоей задачи...
|
|
|
|
| Youri |
Сообщение
#11
|
|
Гость |
Цитата(Слава @ 10.01.2007 15:17)  Volvo огромное спасибо за помощь, я всё-таки вчера смог осилить эту задачу, если кому понадобиться смогу ее выслать или выложить. Можете выложить задачу, а то уже просто мозг кипит |
|
|
|
| -Дмитрий- |
Сообщение
#12
|
|
Гость |
Цитата(Слава @ 10.01.2007 15:17) Volvo огромное спасибо за помощь, я всё-таки вчера смог осилить эту задачу, если кому понадобиться смогу ее выслать или выложить. Можешь выкинуть ее сюда? |
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 22.04.2025 11:11 |
Связь с администрацией: bu_gen в домене octagram.name