Помощь - Поиск - Пользователи - Календарь
Полная версия: Деревья
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Hollander
Народ, Help, очень срочно завтра лабораторную сдавать. Тема: Деревья. Задание такое, найти в исходном коде паскалевской проги все индентификаторы, а потом вывести его и номера строк, где он встречается. Это я сделал. Но так как тема деревья, то я понимаю, что результаты поиска надо в дерево записывать, а потом через него же и выводить на экран. Так вот как мне решить такую задачу: найден какой-то идентификатор, записываем его в правую ветвь, если же он есть в павой ветви, то в левую ветвь от него пишем номер строки, где он встречается. Иллюстрирую:
Цитата
    идент(1)
    /      \
  №стр    идент(2)
          /      \
        №стр    идент(3)
                /        \
              №стр    идент(4)

И так далее. Вроде бы понятно обьяснил.
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;

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