Помогите разобраться с бинарным деревом Опции

[-=nix=-]

Помогите решить задачку.
По заданному выражению в префиксной форме надо построить бинарное дерево и вычислить его.

Вот нашел вариат задачи, которая на входе получает выражение в префиксной форме и выводит его в виде бинарного дерева.
http://forum.pascalnet.ru/index.php?showtopic=6208
Но прога обрабатыеат выражение как строку. Подскажите как написать какую-нибудь процедурку для вычисления этого выражения. Т.е. я ввожу например *+235, а на выходе получаю соответственно бинарное дерево и результат выражения. И объясните пожалуйста каким образом происходит вычисление выражения. Как строится дерево я вроде понял а вот как его вычислить не доходит.

Вот програ с линка который я написал. Можно ли ее доработать?
Заранее всем спасибо.

Uses Crt, Graph; 
 
Type 
  TType = Char; 
  PTTree = ^TTree; 
  TTree = Record 
    Data: TType; 
    Left, Right: PTTree; 
End; 
 
procedure PrintTreeGraph(root: pttree); 
  
 
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; 
 
Var 
  s: string; 
  grDriver: integer; 
  grMode: integer; 
  ErrCode: Integer; 
 
begin 
  global_root := nil; 
  writeln ('Vvedite virazenie v prefixnoy forme: '); 
  readln (s); 
  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

.

М

Пользуемся тегами CODE ! klem4

[-=nix=-]

Для универсальности программки решил сделать так. Вообщем подразумевается, что на входе я получаю выражение с неизвестными значениями. (т.е. a,b,c...)
А в функции которая подсчитыевает результат я определяю эти значения (с помощью function Encode). Получается, что конвертировать ничего не надо. Вроде все замечательно. Но она почему то просит меня вводить по два раза каждое значение, т.е.
a=2
b=3
и снова
a=2
b=3

Код

function resultat (root:PTTree):real;

function Encode (data: char): real;
var x: real;
    begin
      write (data,' = ');
      readln (x);
      encode:= x;
end;


begin
 if root=nil then exit;
 case root^.data of
   '+': resultat:= resultat(root^.left) + resultat(root^.right);
   '-': resultat:= resultat(root^.left) - resultat(root^.right);
   '*': resultat:= resultat(root^.left) * resultat(root^.right);
   '/': if resultat(root^.right) = 0 then begin
           resultat:=0; write ('Error'); end
        else
          resultat:= resultat(root^.left) / resultat(root^.right);
  else

  resultat:= encode (root^.data);

end

end;

Помогите пожалуйста решить эту проблему.

Еще хочу спросить, можно ли записать в префиксной форме значения из нескольких символов, к примеру такое выражение 23+12.

И огромное спасибо за помощь volvo и atos! Вы мне очень сильно помогли!