Оптимальні програми

b:Boolean;

Begin

For i:=1 To Length(Ex) Do

Begin

b:=IsOperation(Ex[i]);

j:=IsVariable(Ex[i]);

If b Then

Begin

Pop(p1);

Pop(p2);

Push(MakeOperation(p2,p1,Ex[i]));

End

Else

Begin

Push(Tab[IsVariable(Ex[i])].v);

End;

End;

Pop(p1);

CalculatePostfix:=p1;

End;

Function Priority(c:Char):Byte;

Begin

Case c Of

'e' : Priority:=0;

'(' : Priority:=0;