Фамильное представление ДЕРЕВА, ...графически отобразить... Опции

[Jill]

Вобщем, есть выражение:

Код

X = (C+1+4*D)/(1+A/2)

. Его надо представить в виде префиксной записи. Если не ошибаюсь это выглядит так:

Код

= X / + + C 1 * 1 / 4 D A 2

(ужас какой!!!)
А главное - нарисовать в виде фамильного дерева:

Код

 =

X                           /

        +                                        +

C       1         *                     1                /
                                                             
               4        D                            A         2  

*)прикреплю файл с нормальным изображением - тут понятно плохо

Я СОВСЕМ не понимаю КАК, вводя выражение (вот ту самую префиксную запись), вывести на экран графическое представление дерева!!! Помогите, плз!!! Я просто не представляю как это сделать и тихо впадаю в панику...

[virt]

по каким правилам вы делали преобразование??

и куда потеряли третий плюс??

Код

= X / + C + 1 * 4 D + 1 / A 2

далее по выражению однозначно строится дерево (тк эта строка -- свернутое представление дерева). Но так красиво на паскале не получится.

[volvo]

Jill, попробуй вот это (процедура Build строит дерево из префиксной строки, пока строка для простоты задана константой, можно вводить ее непосредственно в программе... Не забудь добавить реализацию PrintTreeGraph из FAQ):

Uses Crt, Graph;

Type
  TType = Char;
  PTTree = ^TTree;
  TTree = Record
    Data: TType;
    Left, Right: PTTree;
  End;

Procedure PrintTreeGraph(root: PTTree);
{
  !!! Здесь - реализация процедуры PrintTreeGraph !!!
}

var
  global_root: pttree;

Procedure Build(Var root: PTTree;
          Expr: String; Var Shift: Integer);
Begin
  New(root);
  Root^.Data  := Expr[Shift];
  Root^.Left  := nil;
  Root^.Right := nil;
  If (Expr[Shift] in ['+','*','-','/']) Then Begin
    Inc(Shift);
    Build(Root^.Left, Expr, Shift);
    Build(Root^.Right, Expr, Shift);
  End
  Else Inc(Shift)
End;

Const
  i: integer = 1;
  s: String =
    '/+C+1*4D+1/A2';

Var
  grDriver: integer;
  grMode: integer;
  ErrCode: Integer;

begin
  global_root := nil;
  Build(global_root, s, i);

  grDriver := Detect;
  InitGraph(grDriver, grMode,'');
  ErrCode := GraphResult;
  if ErrCode <> grOk then begin
    Writeln('Graphics error:', GraphErrorMsg(ErrCode)); Halt(100);
  end;
  PrintTreeGraph(global_root);
  readln;
  CloseGraph;
end.

Но так красиво на паскале не получится

А если попробовать? ;)

[Jill]

А если попробовать?  ;)

volvo, пробую!!! это ж на экран должно выводиться?
не выводится ничего