Как зеркально отобразить двоичное дерево, ,

program p130;
{создание двоичного дерева - рекурсия}
type arbore=^nod;
nod=record
info: string;
stg,dr: arbore;
end;
var t: arbore;
function arb: arbore;
{создание двоичного дерева}
var r: arbore;
s: string;
begin
readln(s);
if s='' then arb: =nil
else begin
new(r);
r^.info: =s;
write('введите левого потомка');
writeln(' корня',s,': ');
r^.stg: =arb;
write('введите правого потомка');
writeln(' узла',s,': ');
r^.dr: =arb;
arb: =r;
end;
end; {arb}
procedure afisarb(t: arbore; nivel: integer);
{вывод двоичного дерева на экран}
var i: integer;
begin
if t< > nil then
begin
afisarb(t^.stg, nivel+1);
for i: =1 to nivel do write(' ');
writeln(t^.info);
afisarb(t^.dr, nivel+1);
end;
end; {afisarb}
begin
writeln('введите корень: ');
t: =arb;
afisarb(t,0);
readln;
end.

226

236

Посмотреть ответы 1

Ответы на вопрос:

Света0475

Информатика

4,5(69 оценок)

11 раз

Задай свой вопрос

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.