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

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

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

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;

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