Структуры и алгоритмы обработки данных


Применение сильноветвящихся деревьев - часть 3


               then new_node;

        end

        end;

        if not (local_r_node^.down=nil) then

        begin

        local_node:=local_r_node^.down;

        repeat

               if local_node^.node_type='c' then create_tree(local_node);{Рекурсия}

               local_node:=local_node^.next

        until local_node=nil

end

end;

procedure current_list;

{Вывод оглавления текущего каталога}

begin

current:=current_root;

writeln('текущий каталог - ', current^.name);

if current^.node_type='c'then

begin

pnt:=current^.down;

i:=1;

repeat {Проходим каталог в дереве}

        writeln (i:4,'-',pnt^.name);

        pnt:=pnt^.next;

        i:=i+1

until pnt=nil

end;

end;

procedure down;

{Навигация в дереве каталогов. Перемещение на один уровень вниз}

begin

current:=current_root;

if not (current^.down=nil) then

        begin

        current:= current^.down;

        writeln('номер в оглавлении'); readln; read(l);

        i:=1;

       while (i<l) and not (current^.next=nil) do

       begin

               current:=current^.next;

               i:=i+1

      end;




Начало  Назад  Вперед



Книжный магазин