бинарные деревья Опции

[biv171]

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

program derevo;
uses crt;
type pstruct=^struct;
     struct= record
             inf:integer;
             left,right:pstruct;
            end;
var n,y,x,q,w,m:integer;
 tree:pstruct;
    z:struct;


function  newd(x:integer):pstruct;
 var p:pstruct;
 begin
  new(p);
  p^.inf:=x;
  p^.left:=nil;
  p^.right:=nil;
  newd:=p;
 end;

procedure setleft(p:pstruct;x:integer);
 begin
  p^.left:=newd(X);
 end;

procedure setright(p:pstruct;x:integer);
 begin
  p^.right:=newd(x);
 end;



 procedure viv(p:pstruct;m:integer);
  begin
    read(n);
    while not eoln do if p=nil then begin
                                     p:=newd(n);
                                     gotoxy(q,w);
                                     write(p^.inf);
                                     read(n);
                                    end
                                else if p^.inf<n then begin
                                                  setright(newd(p^.inf),n);
                                                  gotoxy(q+17,w+1);
                                                  writeln(n);
                                                  {q:=q+17;
                                                  w:=w+1;}
                                                  viv(newd(n),n);
                                                  end
                                            else begin
                                                  setleft(newd(p^.inf),n);
                                                  gotoxy(q-17,w+1);
                                                  writeln(n);
                                                  {q:=q-17;
                                                  w:=w+1;}
                                                  viv(newd(n),n);
                                                 end;


 end;

 begin
  clrscr;
  tree:=nil;
  q:=40;
  w:=1;
  viv(tree,m);
  readln;
 end.

М

При публикации программ используй теги (выделить, применить нужную опцию меню CODE) Lapp

[volvo]

Блин... Опять не заметил... Нет, с деревом все в порядке, это просто тройка "вылезла" левее "семерки", а семерка, соответственно, ушла вправо.. Значит, надо делать так, как я делал для графического вывода дерева:

procedure Print(Root: PStruct);
var
  start_x, start_y: integer;
const
  dely = 2;
  btw = 1;

  procedure print_node(Root: PStruct; Level: Integer; L, C, R: Integer);

    function min(a, b: Integer): Integer;
    begin
      min := a;
      if b < a then min := b
    end;
    function Center(a, b: Integer): Integer;
    begin
      Center := min( a, B ) + abs( a - B ) div 2;
    end;

  var pos_y: integer;
  begin
    pos_y := start_y + pred(level) * dely;
    if Root^.Left <> nil then begin
      gotoxy(Center(C, Center(C+btw, R-btw)), pos_y + 1); write('\');
      print_node(root^.Left, Level + 1, C+btw, Center(C+btw, R-btw), R-btw);
    end;

    if Root^.Right <> nil then begin
      gotoxy(Center(C, Center(L+btw, C-btw)), pos_y + 1); write('/');
      print_node(Root^.Right, Level + 1, L+btw, Center(L+btw, C-btw), C-btw);
    end;

    GotoXY(C, pos_y);
    write(root^.inf);
  end;

begin
  start_x := 40;
  start_y := 1;
  print_node(Root, 1, 0, 40, 80);
end;

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

1 4 8 2 7 3                            1
                             /
                   4
              /        \
         8                  2
           \              /
             7          3

Сообщение отредактировано: volvo - 20.11.2008 2:01