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


Представление бинарных деревьев - часть 3


current^.right:=nil;

repeat

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

            writeln('1-присвоить имя левому потомоку');

            writeln('2-присвоить имя правому потомку');

            writeln('3-сделать узел текущим');

            writeln('4-вывести список всех узлов');

            writeln('5-удалить потомков текущего узла');

            read(n);

            if n=1 then

            begin {Создание левого потомка}

                     if current^.left= nil then new(pnt)

                     else pnt:= current^.left;

                     writeln('left ');

                     readln;

                     read(s);

                     pnt^.name:=s;

                     pnt^.left:=nil;

                     pnt^.right:=nil;




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



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