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

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.

shorgk    3   26.01.2020 17:40    0