Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.05.2011, 16:24   #1
123456789igor
Пользователь
 
Регистрация: 19.04.2011
Сообщений: 62
По умолчанию логическая функция same(t), определяющая, есть ли в бинарном дереве T хотя бы два одинаковых элемента

Надо решить вот такую задачку:
описать логическую функцию same(t), определяющую, есть ли в дереве T хотя бы два одинаковых элемента. Дерево бинарное.
Вот кое-что нашёл. Помогите это всё объединить в нормальную работающюю программу.

Код:
{ поиск элемента в дереве }
function Same(root:TreePointer;key:DataItem):boolean;
begin
  Same:=false;
  if root<>nil then
  begin
    while (root^.data<>key) and (root<>nil) do
    begin
      if key<root^.data then 
        root:= root^.left
      else 
        root := root^.right;
    end;
  end;
  if root=nil then
    exit;
  if root^.left<>nil then
    if root^.left^.data=key then
      Same := true;
  if root^.right<>nil then
    if root^.right^.data=key then
      Same:=true;
end; { конец функции поиска элемента }
вот примерное описание типов TreePointer и DataItem:
Код:
type
      DataItem=integer;
      TreePointer = ^tree;
      tree = record
        data: DataItem;
        left: TreePointer;
        right:TreePointer;
      end;
123456789igor вне форума Ответить с цитированием
Старый 30.05.2011, 00:22   #2
123456789igor
Пользователь
 
Регистрация: 19.04.2011
Сообщений: 62
По умолчанию

Прошу ВАС, помогите....
123456789igor вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

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

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Посчитать количество вершин в бинарном дереве goo Фриланс 2 26.02.2011 20:01
Посчитать количество вершин в бинарном дереве (процедура) goo Паскаль, Turbo Pascal, PascalABC.NET 2 26.02.2011 14:35
Поиск в бинарном дереве не по ключу lebrosha Помощь студентам 2 26.05.2009 15:32
Удаление вершины в бинарном дереве lebrosha Помощь студентам 2 24.05.2009 13:51