表達式計算器的核心代碼

我寫這東西的時候沒有參考別人的，後來才發現，這不是遞歸嗎？

 

unit jsbds; //計算表達式 //--------------------------------------------// // 漢字最好 2008.11 // // http://blog.csdn.net/stgsd // //--------------------------------------------// interface uses windows,SysUtils,math; function qbdsz(s:string):double; //取表達式值 implementation var x:array of double; //實數範圍可以更改 y:array of string; max:integer; pai,e:double; function qz(s:string):double; //將沒有括號的表達式求值 var t:integer; s1:string; begin try //按加減,乘除,乘方,三角函數對數的順序 t:=pos('+',s); if t>1 then begin s1:=copy(s,1,t-1); delete(s,1,t); result:=qz(s1)+ qz(s);//遞歸調用 exit; end; t:=pos('-',s); if t>0 then begin if t=1 then s1:='0' else s1:=copy(s,1,t-1); delete(s,1,t); result:=qz(s1)- qz(s); exit; end; t:=pos('*',s); if t>1 then begin s1:=copy(s,1,t-1); delete(s,1,t); result:=qz(s1)* qz(s); exit; end; t:=pos('/',s); if t>1 then begin s1:=copy(s,1,t-1); delete(s,1,t); result:=qz(s1)/qz(s); exit; end; t:=pos('^',s); if t>1 then begin s1:=copy(s,1,t-1); delete(s,1,t); //result:=exp(qz(s)*ln(qz(s1)));沒有考慮qz9（s1）爲負數的情況 result:=power(qz(s1),qz(s));//用math單元的冪函數 exit; end; t:=pos('sin',s); if t=1 then begin delete(s,1,3); result:=sin(qz(s)); exit; end; t:=pos('cos',s); if t=1 then begin delete(s,1,3); result:=cos(qz(s)); exit; end; t:=pos('arctg',s); if t=1 then begin delete(s,1,5); result:=arctan(qz(s)); exit; end; t:=pos('tg',s); if t=1 then begin delete(s,1,2); result:=sin(qz(s))/cos(qz(s)); exit; end; t:=pos('ln',s); if t=1 then begin delete(s,1,2); result:=ln(qz(s)); exit; end; t:=pos('lg',s); if t=1 then begin delete(s,1,2); //result:=ln(qz(s))/ln(10); result:=log10(qz(s)); exit; end; if (s[1]='p')and(s[2]='i') then begin result:=pai; exit; end; if s[1]='e' then begin result:=e; exit; end; if s[1]='y' then begin delete(s,1,1); result:=x[strtoint(s)]; //將x與y對應 exit; end; result:=StrToFloat(s); except on exception do messagebox(0,'表達式不正確或計算超出範圍','這不是耍我嗎？',mb_ok); end; end; procedure fenjie(s:string); //分解括號 label xx; var ks,m,n:integer; s1:string; begin n:=0;setlength(y,1); xx: ks:=pos('(',s); //找左括號 if ks>0 then begin for m:=ks to length(s) do begin if s[m]='(' then ks:=m;//第一個右括號之前的左括號 if s[m]=')' then break; //第一個右括號 end; y[n]:=copy(s,ks+1,m-ks-1); //（*），把*存到y數組中 s1:=copy(s,1,ks-1); delete(s,1,m); s:=s1+'y'+inttostr(n)+s; //用yn替代原來的* n:=n+1;setlength(y,n+1); goto xx; //分解其他的括號 end; y[n]:=s; setlength(x,n+1); max:=n; //y數組的上限 end; //如sin(3-2)/(5-8)分解後，y中變成 //y0=3-2 //y1=5-8 //y2=siny0/y1 ，依次計算就可以得到結果 function qbdsz(s:string):double; //s不要有空格，要清除也簡單 var r:integer; begin fenjie(s); for r:=0 to max do x[r]:=qz(y[r]);//從0開始計算y[r]值，x[max]就是最後結果 result:=x[max]; end; //計算qbdsz('(sinpi)^2+(cospi)^2')看看應該等於1 initialization //pai:=arctan(1)*4; pai:=pi; //預先弄好圓周率和自然對數的底 e:=exp(1); end.