interfaceuseswindows,SysUtils,math;functionqbdsz(s:string):double;//取表达式值implementationvarx:arrayofdouble;//实数范围可以更改y:arrayofstring;max:integer;pai,e:double;functionqz(s:string):double;//将没有括号的表达式求值vart:integer;s1:string;begintry//按加减,乘除,乘方,三角函数对数的顺序t:=pos(&