Дерево плз хэлп Опции

[RastA]

помогите плз с задачей:

"Построить дерево и вывести его повернутым на 90 градусов"

[Алена]

Вот так попробуй:

procedure myPrintTree(px: integer;
          level: integer; T: ttree; curr: integer);

  function find_index(root: ttree; n: integer): ttree;

  var check, pp: ttree;
  begin

    if root <> nil then begin
      pp := root;
      while pp <> nil do begin

        if pp^.ix = n then break;
        check := find_index(pp^.left, n);
        if check = nil then
          check :=find_index(pp^.right, n);

        pp := check;

      end;
      find_index := pp;
    end
    else find_index := nil;
  end;


const
  { Эта константа уменьшает/увеличивает величину отступа между левым и правым потомком }
  half = 30;

var found: TTree;
begin
  if T = nil then exit;
  with T^ do begin

    found := find_index(T, curr);
    if found <> nil then begin
      myPrintTree(px - (half div succ(level)), level + 1, T, 2 * curr);
      begin
        gotoxy(px, 2 * level);
        Writeln(found^.Data:3);
      end;
      myPrintTree(px + (half div succ(level)), level + 1, T, 2 * curr + 1);
    end

  end
end;

Вызывать так:

...
  clrscr;
  myPrintTree(40, 1, mytree, 1);
  ...

Сразу хочу сказать: с маленькими деревьями работать должно, с большими - будет проблема, с увеличением глубины расстояние между узлами будет сокращаться, и они станут накладываться один на другой...

С этим же столкнулся volvo, когда делал процедуру для графического представления дерева (приведенную в FAQ-е)...