说明: 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
<tzshu> 上传 | 大小:4kb