下载地址：
下载地址1（本站为飞网专业下载站，域名：down.cfei.net）
资源简介：
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; ......
飞网下载站，免费下载共享资料，内容涉及教育资源、专业资料、IT资源、娱乐生活、经济管理、办公文书、游戏资料等。
