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

用于计算四则混合运算表达式的递归函数
by billow3（QQ：41965573）
//---------------------------------------------------------------------------
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：没有配对的), 公式错！");
// 本文转自 C Builder 研究 - http://www.ccrun.com/article.asp?i=636&d=x5fncl
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);

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有