Lo que más me ha gustado, además de darle un uso práctico a una pila, ver como se gestionan los distintos tipos de errores que pueden contener la expresión que le pasemos a evaluar.
Codigo fuente: descarga
Nota:
Para evaluar expresiones, gambas tiene la clase gb.eval, que la podemos usar para evaluar expresiones normales.
Public Sub Main()
Dim Context As New Collection
Context["X"] = "23"
Context["a"] = "2"
Print Eval("a*X+(34-2)", Context)
End
Fuente: http://latecladeescape.com/algoritmos/1125-evaluacion-de-expresiones-aritmeticas-en-notacion-polaca-inversa
Fuente: http://jsbsan.blogspot.com.es/2012/12/evaluar-expresiones-notacion-polaca.html
No hay comentarios:
Publicar un comentario