Algoritmo de analisis de integridad de Calculo

[MaMu]

Algoritmo de analisis de integridad de Calculo

Quiciera desarrollar una función, para analizar la integridad de un calculo matematico con operaciones simples +,-,* y /, usando parentecis, corchetes y llaves.
Unos ejemplos:

(A + B)
[(A+B)*C]-D

serian correctas, y

(A + ) B
(A+B)D*4)

serian incorrectas, puesto a la incosistencia de signos de operacion y/o parentesis.

Me gustaria que me dieran opiniones respecto al tema, e ideas de como lo resolverian.

Saludos y muchas gracias

[[Delphius]]

Hola MaMu,
Creo que para lo que buscas es muy buena idea optar por notación polaca inversa.

La forma en cómo se evalúan los paréntesis, corchetes y llaves, por lo general se consigue con pilas. Se van encolando los signos ( en la medida en que se leen. En cuanto se lee un ) se da por entendido de que una expresión se ha entendido y por tanto se desapila el ( guardado. Este proceso se puede llevar de forma análoga con los corchetes y llaves.

Tal vez lo que se trató en otra ocasión sea de utilidad.

Saludos,

[MaMu]

Empezado por Delphius

Hola MaMu,
Creo que para lo que buscas es muy buena idea optar por notación polaca inversa.

Me parece exelente. Pero la verdad, me maree un poco:

Código Delphi [-]
const 
  Abre = '(';
  Cierra = ')';
 
//(1+2)+4*(5+2)
function RPNCalculo(Calculo : String) : Boolean;
var
  nPos, nCalc, Resultado: Integer;
  StrChar: Char;
  Pila : TStringList;
  UltimaOperacion : String;
begin
  result := false;
  Pila := TStringList.Create;
  for nPos := 1 to Length(Calculo) do
  begin
    StrChar := Calculo[nPos];
    if StrChar in ['0','1','2','3','4','5','6','7','8','9'] then
    begin
      Pila.Add(StrChar);
      if (UltimaOperacion<>'') then
      begin
        Resultado := 0;
        for nCalc := 0 to Pila.Count -1 do
        begin
          Resultado := Resultado + StrToInt(Pila.Strings[nCalc]);
        end;
        Pila.Clear;
        Pila.Add(IntToStr(Resultado));
      end;
    end
    else if StrChar in [ABRE,CIERRA] then
    begin
    end
    else if StrChar in ['+','-','*','/'] then
    begin
      if Calculo[nPos + 1] in [ABRE,CIERRA] then
      begin
        UltimaOperacion := '';
      end  
      else UltimaOperacion := StrChar;
    end
    else
    begin
      UltimaOperacion := '';
    end;  
  end;
  Pila.Free;
end;

No se que hago mal, no doy pie con bola de la congestion.
Alguna ayuda????

Saludos y Muchas Gracias

[MAXIUM]

Hay componentes que te hacen el trabajo sucio, busca por Parse o Parsing http://www.torry.net/pages.php?id=307