Деревья, Чтение и запись деревьев Опции

[Hollander]

Народ, Help, очень срочно завтра лабораторную сдавать. Тема: Деревья. Задание такое, найти в исходном коде паскалевской проги все индентификаторы, а потом вывести его и номера строк, где он встречается. Это я сделал. Но так как тема деревья, то я понимаю, что результаты поиска надо в дерево записывать, а потом через него же и выводить на экран. Так вот как мне решить такую задачу: найден какой-то идентификатор, записываем его в правую ветвь, если же он есть в павой ветви, то в левую ветвь от него пишем номер строки, где он встречается. Иллюстрирую:

    идент(1)
    /      \
  №стр    идент(2)
          /      \
        №стр    идент(3)
                /        \
              №стр    идент(4)

И так далее. Вроде бы понятно обьяснил.

Сообщение отредактировано: volvo - 30.05.2005 15:33

[volvo]

С чем затруднения? Как определить, если ли идентификатор в дереве?

type
  PTTree = ^TTree;
  TTree = record
    left_data: integer;
    right_data: String;
    right: PTTree;
    { влево дерево уходить не может - left не нужен }
  end;

function find_id(T: PTTree; s: string): PTTree;
begin
  find_id := nil; p := T;
  while p <> nil do begin
    if p^.right_data = s then begin
      find_id := p; exit;
    end;
    p := p^.right;
  end;
end;

Как добавить для существующего в дереве ID номер строки?

node := find_it(root, s);
if node <> nil then node^.left_data := str_num;

Все остальные процедуры точно так же элементарно переделываются из процедур для бинарного дерева... Так в чем сложность?