Delphi 数学公式,表达示解析

【文件属性】：

文件名称：Delphi 数学公式,表达示解析

文件大小：4KB

文件格式：PAS

更新时间：2014-11-21 15:53:25

Delphi 数学公式 表达示解析

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; ......