Procedure PrintTree2(Tr:TNode; TecX,TecY,N,k: Integer);
{Второй вариант распечатки дерева (Крутой)}
Var P : Integer;
Begin
If Tr<>Nil then
Begin
If N < LTree Then Begin N := LTree; P := 1 End
Else P := 0;
If k = 0 Then Begin GotoXY(abs(TecX - (N div 2))+1,TecY-1); Write('\'); End;
If k = 1 Then Begin GotoXY(TecX + (N div 2) + S-1,TecY-1); Write('/'); End;
GotoXY(TecX,TecY); Write(Tr^.Info:3);
PrintTree2(Tr^.Left,TecX - N,TecY+2,N-LTree,1);
PrintTree2(Tr^.Right,TecX + N,TecY+2,N-LTree,0);
End;
End; {PrintTree2} |
