Y等于e的a次方,如何计算?以及正弦函数 假设让Y=(e^a).(sinX)(文字表达:即e的a次方与X正弦值的乘积,a和x都是变量)用DELPHI如何来计算呢?谢谢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Math;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);var y: real;begin y := Power(2,2) * Sin(PI/2); //uses Math; showmessage(floatToStr(y));end;end. 到底是要表达式解析还是算法了,没说清。表达式解析可以参考lex,有yacc是支持Object Pascal的,解析后的计算使用二叉树和Delphi自身的函数计算,e^a是EXP,Sin函数是有的。如果是算法,例如大数值计算,这两个都需要用到泰勒级数进行计算的了,比较复杂。 uses math;Power()函数就是求任意实数的次方;如1.5的10次方:Power(1.5,10);Sin()是正弦函数 字符截取??? 请问有阅读PDF的DELPHI7控件吗? 关于编码递增的实现,基础不好,没有写成,100分求救。 有没有办法改变发信端口 调查:十一去哪里? 求ICO和BMP之间图象格式转换函数,我的为什么不行? 救命啊十万火急 简单问题 ListView基本用法 碰到麻烦事了,sos!! C++ Builder 与 Delphi 的比较 求教一个也是是数据结构也许是算法的问题 delphi如何声明函数?
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Math;type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
y: real;
begin
y := Power(2,2) * Sin(PI/2); //uses Math;
showmessage(floatToStr(y));
end;end.
Sin()是正弦函数