欧美极品高清xxxxhd,国产日产欧美最新,无码AV国产东京热AV无码,国产精品人与动性XXX,国产传媒亚洲综合一区二区,四库影院永久国产精品,毛片免费免费高清视频,福利所导航夜趣136

標(biāo)題: 遞歸（分治法）實(shí)現(xiàn)計(jì)算簡(jiǎn)單表達(dá)式 [打印本頁(yè)]

作者: 51hei小名 時(shí)間: 2016-6-20 22:46
標(biāo)題: 遞歸（分治法）實(shí)現(xiàn)計(jì)算簡(jiǎn)單表達(dá)式

Function Ev (Expr)

If InStr(Expr,"+")<>0 Then Ev=Ev(Mid(Expr,1,InStr(Expr,"+")-1))+Ev(Mid(Expr,InStr(Expr,"+")+1,Len(Expr)-InStr(Expr,"+"))):Exit FunctionIf InStr(Expr,"-")<>0 Then Ev=Ev(Mid(Expr,1,InStr(Expr,"-")-1))-Ev(Mid(Expr,InStr(Expr,"-")+1,Len(Expr)-InStr(Expr,"-"))):Exit FunctionIf InStr(Expr,"*")<>0 Then Ev=Ev(Mid(Expr,1,InStr(Expr,"*")-1))*Ev(Mid(Expr,InStr(Expr,"*")+1,Len(Expr)-InStr(Expr,"*"))):Exit FunctionIf InStr(Expr,"/")<>0 Then Ev=Ev(Mid(Expr,1,InStr(Expr,"/")-1))/Ev(Mid(Expr,InStr(Expr,"/")+1,Len(Expr)-InStr(Expr,"/"))):Exit Function
If InStr(Expr, "/")= 0 Then Ev=Cdbl(Expr)
End Function
Msgbox Ev(Inputbox("expr"))

（注：VBS內(nèi)部提供了一個(gè)Eval函數(shù)，可以計(jì)算表達(dá)式。但我們因?yàn)槭菍?shí)驗(yàn)算法，不使用它。）
程序非常短，（因?yàn)椴捎昧诉f歸思想和分治法。）
今天算是又好好應(yīng)用了一次分治法。。。。實(shí)現(xiàn)：加減乘除四則運(yùn)算，暫不支持括號(hào)。
程序基本原理：
將一個(gè)表達(dá)式依次用加號(hào)、減號(hào)、乘號(hào)、除號(hào)拆開(kāi)，然后遞歸的計(jì)算一個(gè)更小的表達(dá)式。如果遇到的是一個(gè)數(shù)字，那就直接返回這個(gè)數(shù)字。

這個(gè)程序就會(huì)不斷的分開(kāi)表達(dá)式，直到分為一個(gè)個(gè)數(shù)字。

目前我還在思索如何把它放到根號(hào)化簡(jiǎn)程序里面去。

歡迎光臨 (http://m.raoushi.com/bbs/)