用于计算四则混合运算表达式的递归函数

文章作者 100test 发表时间 2007:03:10 17:04:37
来源 100Test.Com百考试题网

AnsiString __fastcall Calc(String sExp)
{
　// 计算不带变量的四则混合运算表达式(只含数字、小数点、 -*/号和括号)
　// 正数不许带正号
　int posL, pos, posR.
　// pos->当前考虑的运算符的位置
　// posL->当前考虑的运算符之前最近的运算符的位置
　// posL->当前考虑的运算符之前后近的运算符的位置
　String sTmp, sL, sR.
　// sL->当前考虑的运算符的左操作数字符串，sR->当前考虑的运算符的右操作数字符串
　bool IsMinus. // IsMinus->当前*/序列的符号
　if(sExp.AnsiPos("error"))
　　return(sExp).
　while(pos = sExp.AnsiPos(" "))
　　sExp = sExp.Delete(pos, 1). // 去除表达式中的空格
　if(sExp.IsEmpty())
　　return("0").
　while((pos = sExp.AnsiPos("[")) > 0
　　　|| (pos = sExp.AnsiPos("{")) > 0) // 统一左括号为(
　　sExp = sExp.SubString(1, pos - 1) "("
　　　　 sExp.SubString(pos 1, sExp.Length()).
　while((pos = sExp.AnsiPos("]")) > 0
　　　|| (pos = sExp.AnsiPos("}")) > 0) // 统一右括号为)
　　sExp = sExp.SubString(1, pos - 1) ")"
　　　　 sExp.SubString(pos 1, sExp.Length()).
　// 处理括号：递归计算括号中的表达式，最后消去括号
　while(posL=sExp.LastDelimiter("(")) // 最里层(
　{
　　sTmp = sExp.SubString(posL 1, sExp.Length()).
　　posR = sTmp.AnsiPos(")"). // 最里层)
　　if(posR == 0)
　　　return("error：没有配对的), 公式错！").
　　sExp = sExp.SubString(1, posL - 1)
　　　　 Calc(sTmp.SubString(1, posR - 1))
　　　　 sTmp.SubString(posR 1, sTmp.Length()).
　}
　// 以下处理不带括号表达式中的*/序列
　IsMinus = false. // IsMinus->当前*/序列的符号
　while(sExp.LastDelimiter("*/")) // 存在*或/
　{
　　for(pos = 1. !sExp.IsDelimiter("*/", pos)
　　　　&.&. pos <= sExp.Length(). pos ). // 第一个*或/
　　if(pos == 1 || pos == sExp.Length())
　　　return("error：首或尾字符是*/运算符, 公式错！").
　　posL = sExp.SubString(1, pos - 1).LastDelimiter(" -").
　　// posL->第一个*/之前的第一个 -
Minus0:
　　for(posR = pos 1. !sExp.IsDelimiter(" -*/", posR)
　　　　&.&. posR <= sExp.Length(). posR ).
　　// posR->第一个*/之后的第一个 -*/运算符
　　if(posR == sExp.Length())
　　　return("error：尾字符是 -*/运算符, 公式错！").
　　if(sExp.SubString(pos, 2) == "*-"
　　　　|| sExp.SubString(pos, 2) == "/-") // 乘数或除数为负
　　{
　　　sExp.Delete(pos 1, 1).
　　　IsMinus = !IsMinus.
　　　goto Minus0.
　　}
　　sL = sExp.SubString(posL 1, pos - posL - 1).
　　sR = sExp.SubString(pos 1, posR - pos - 1).
　　if(sExp.IsDelimiter("/", pos) &.&. sR == "0")
　　　return("error：除数为零，无意义！").
　　sExp = (posL == 0? String(""): sExp.SubString(1, posL))
　　　　 (sExp.IsDelimiter("*", pos)?
　　　　(sL.ToDouble() * sR.ToDouble()):
　　　　(sL.ToDouble() / sR.ToDouble()))
　　　　 sExp.SubString(posR, sExp.Length()).
　}
　if(IsMinus)
　　sExp = String("-") sExp.
　// 经过上面的系列处理，sExp中的运算符号只剩下 和-了
　// 以下处理不带括号表达式中的 -序列
　IsMinus = false. // 加数或减数的符号
　while(sExp.LastDelimiter(" -")) // 存在 或-
　{
　　for(pos=2. !sExp.IsDelimiter(" -", pos)
　　　　&.&. pos <= sExp.Length(). pos ). // 第一个 或-