Evaluation d'expression arithmitique
x1 |
Evaluation d'exp. arith.
Procédure EVAL_Postfixe ( T:chaine ):Reel
i := 1
CreerPile (p)
TQ (T[i] <> '#')SI Operande ( T[i] )
Empiler( p,T [i] )
SINON /* donc c'est un opérateur */SI Binaire( T[i] )
Depiler ( p,x )
Depiler ( p,y )
Empiler( p, Calcul( x, T[i], y ) )
SINON /* donc uniaire */
Depiler ( p,y )
Empiler( p, Calcul( 0 , T[i], y ) )
Empiler( p, Calcul( 0 , T[i], y ) )
FSI
FSI
i := i+ 1
i := i+ 1
FTQ
SI Non PileVide (p)
SI Non PileVide (p)
Depiler ( p, x )
Sinon
x:= 0
FSI
EVAL_Postfixe := x
EVAL_Postfixe := x
FIN
