АВТИ информатика по паскалю / METOD2 / IOtree

PROCEDURE PrintTree(t:ref;n:integer);

var i:integer;

begin

if t<>nil then

with t^ do

begin

PrintTree(left,n+1);

for i:=1 to n do write(' ');

write(info);

PrintTree(right,n+1)

end

end;

PROCEDURE PreCreate(var p:ref;var TFil:text);

var

ch:char;

t:ref;

begin

if not eof(TFil) then

begin

new(t);

read(TFil,ch);writeln('ch=',ch);

if ch='*' then t:=nil

else

with t^ do

begin

read(TFil,ch);

info:=ch; writeln('info=',t^.info);

PreCreate(left,TFil);

PreCreate(right,TFil);

end;

p:=t;

end;

end;