IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Задача на поиск в бинарном дереве
AlexPS
сообщение 6.07.2005 15:34
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 34
Пол: Мужской

Репутация: -  -1  +


Привет всем. Вот такой у меня сегодня вопрос, а вернее задача:

Найти вершины бинарного дерева, для которых высота левого поддерева не равна высоте правого поддерева

Я даже не знаю с чего начать делать её huh.gif Может вы чего посоветуете.

P.$.
И еще тут такая мне мысле пришла, ведь представлять дерево в виде матрицы, например матрицы смежности графа, - это неэффективно (кол-во 0 будет гораздо больше кол-ва 1), в смысле перебор сильно усложнит. Как бы так представить дерево, чтобы это было максимально эффективно. blink.gif

Заранее пасиба. smile.gif


--------------------
@13][ P.$.
www.alex-ps.com
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов(1 - 10)
volvo
сообщение 6.07.2005 15:42
Сообщение #2


Гость






Ну, для начала, можешь вот тут посмотреть: Является ли дерево сбалансированным
 К началу страницы 
+ Ответить 
AlexPS
сообщение 6.07.2005 20:50
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 34
Пол: Мужской

Репутация: -  -1  +


Пасиба, ща посмотрю smile.gif


--------------------
@13][ P.$.
www.alex-ps.com
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
AlexPS
сообщение 14.07.2005 12:41
Сообщение #4


Новичок
*

Группа: Пользователи
Сообщений: 34
Пол: Мужской

Репутация: -  -1  +


sad.gif А в дельфи 7 у меня это не компилируется.... А Паскаля нету...
А нет ничего по этой теме для Дельфи?


--------------------
@13][ P.$.
www.alex-ps.com
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 14.07.2005 15:11
Сообщение #5


Гость






Цитата(AlexPS @ 14.07.05 12:41)
А в дельфи 7 у меня это не компилируется...

А что именно "не компилируется"? Там же только сами функции - без описания типа TNode, и т.д.

Ну, и кроме того, в Дельфи результат должен возвращаться через переменную Result, то есть не так:
function TNode.Height: integer;
var leftHeight, rightHeight: integer;
begin
...
Height := 1 + MAX(leftHeight, rightHeight)
end;

а вот так:
function TNode.Height: integer;
var leftHeight, rightHeight: integer;
begin
...
Result := 1 + MAX(leftHeight, rightHeight)
end;


P.S. Перенести в Дельфи ?
 К началу страницы 
+ Ответить 
AlexPS
сообщение 14.07.2005 18:06
Сообщение #6


Новичок
*

Группа: Пользователи
Сообщений: 34
Пол: Мужской

Репутация: -  -1  +


volvo помоги мне пожалуйста... Че-то я ниче не понимаю sad.gif


--------------------
@13][ P.$.
www.alex-ps.com
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
klem4
сообщение 14.07.2005 18:42
Сообщение #7


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


[offtop]
Цитата(AlexPS @ 14.07.05 13:41)
А Паскаля нету...


а почему не скачаешь Паскаль ?

[\offtop]


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
AlexPS
сообщение 14.07.2005 19:05
Сообщение #8


Новичок
*

Группа: Пользователи
Сообщений: 34
Пол: Мужской

Репутация: -  -1  +


Цитата
а почему не скачаешь Паскаль ?


Не знаю... А сколько это Мб? huh.gif


--------------------
@13][ P.$.
www.alex-ps.com
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
klem4
сообщение 14.07.2005 19:48
Сообщение #9


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Тут есть то что тебе нужно :yes:


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
AlexPS
сообщение 14.07.2005 20:26
Сообщение #10


Новичок
*

Группа: Пользователи
Сообщений: 34
Пол: Мужской

Репутация: -  -1  +


А какой из них посоветуете???
Только желательно чтобы с виндовым интерфейсом smile.gif


--------------------
@13][ P.$.
www.alex-ps.com
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
klem4
сообщение 14.07.2005 20:36
Сообщение #11


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


с интерфейсом без особо заметных глюков TMT Pascal lite, но так как он lite то писать в нем можно только под DOS. Еще Dev Pascal, но он глючноват.


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 22.06.2025 0:03
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"