[Паскаль] Преобразование формулы в дерево

[Karabas]

Требуется преобразовать формулу в двоичное дерево,если формула введена неверно вывести сообщение об ошибки.

procedure GetForm (var tree:PTreeElem);
type sign = set of ['+','-','*'];
var c,c2:char;
 begin
  read(c);
  case c of
      '0'..'9','X':tree^.k:=c;
      '(' : begin
             NewTree(Tree^.l);GetForm(tree^.l);
             read(tree^.k);
             if tree^.k not (in sign) then writeln('+,- or - was missing 
but found ',tree^.k);
             NewTree(Tree^.r);GetForm(tree^.r);
             read(c2);
             if c2<>')' then writeln(') was missing after ',tree^.r^.k,
' but found ', c2)
           end;
     ')' : ;
   else writeln('Unrecognized symbol ',c);
 end;
end;

Но так программа не находит ошибки при неправильном балансе скобок типа (2*(3+X))).Подскажите как сделать,чтобы находила.

[Karabas]

Неужто я задал настолько сложный вопрос.....

[Min]

просто все намного сложнее, чем описано в вашей процедуре......
например при "встрече" откр. скобки, программа должна искать первую закр. скобку того же уровня. Только потом делать запись в дерево.

[Karabas]

А нельзя ли просто содать счётчик,если встретил открывающую скобку,то inc, если закрывающую dec. Ну и если в какой то момент счётчик отрицательный,значит баланс скобок уже неверный.Ну или как-то похоже.

[Min]

можно. Именно это я и имел ввиду, говоря про скобку того же уровня. Но этого недостаточно. Для начала нужно расставить порядок действий. А потом делать анализ. Либо анализировать по ходу наперёд, с учетом преоритетов.

[Karabas]

А можете подсказать, как именно надо делать анализ?И я не очень понял порядок действий чего вы имеете ввиду.