Fungsi operasi matematika yang umum digunakan di Delphi

Fungsi operasi matematika Delphi

Pengarang:lyboy99

email:[email protected]

url: http://hnh.126.com

Berikut adalah beberapa fungsi umum untuk Anda, saya harap dapat membantu Anda.

Anda dapat dengan mudah merancang mesin perhitungan ilmiah yang canggih menggunakan fungsi berikut.

fungsi rnd(arg1:ganda):ganda;

Mulai

hasil := Acak * int(arg1);

akhir;

fungsi arcsinh(arg1:ganda):ganda;

mulai

hasil:=Ln(arg1+sqrt(1+power(arg1,2)));

akhir;

fungsi arccosh(arg1:ganda):ganda;

mulai

hasil :=Ln(arg1+sqrt(power(arg1,2)-1));

akhir;

fungsi arctanh(arg1:ganda):ganda;

mulai

hasil :=Ln((1+arg1)/(1-arg1))/2;

akhir;

fungsi arcsech(arg1:ganda):ganda;

mulai

hasil :=Ln((1/arg1)+sqrt(power((1/arg1),2)-1));

akhir;

fungsi arccosech(arg1:ganda):ganda;

mulai

hasil :=Ln((1/arg1)+sqrt(1+power((1/arg1),2)));

akhir;

fungsi arccoth(arg1:ganda):ganda;

mulai

hasil :=Ln((1+(1/arg1))/(1-(1/arg1)))/2;

akhir;

fungsi degarcsin(arg1:ganda):ganda;

mulai

hasil :=arcsin(DegToRad(arg1));

akhir;

fungsi arcsec(arg1:ganda):ganda;

mulai

hasil := arccos(1/arg1);

akhir;

fungsi degarcsec(arg1:ganda):ganda;

mulai

hasil := RadToDeg(arccos(1/arg1));

akhir;

fungsi arccosec(arg1:ganda):ganda;

mulai

hasil := arcsin(1/arg1);

akhir;

fungsi degarccosec(arg1:double):double;

mulai

hasil := RadToDeg(arcsin(1/arg1));

akhir;

fungsi degarccos(arg1:double):double;

mulai

hasil :=arccos(DegToRad(arg1));

akhir;

fungsi arccot(arg1:ganda):ganda;

mulai

hasil := arctan(1/arg1);

akhir;

fungsi degarccot(arg1:double):double;

mulai

hasil := RadToDeg(arctan(1/arg1));

akhir;

fungsi cosech(arg1:ganda):ganda;

mulai

hasil := 2/(exp(arg1)-exp(-arg1));

akhir;

fungsi sech(arg1:ganda):ganda;

mulai

hasil := 2/(exp(arg1)+exp(-arg1));

akhir;

fungsi tanh(arg1:ganda):ganda;

mulai

hasil := (exp(arg1)-exp(arg1))/(exp(arg1)+exp(-arg1));

akhir;

fungsi coth(arg1:double):double;

mulai

hasil := (exp(arg1)+exp(arg1))/(exp(arg1)-exp(-arg1));

akhir;

fungsi degarctan(arg1:double):double;

mulai

hasil:= RadToDeg(arctan(arg1));

akhir;

fungsi arg(arg1,arg2:ganda):ganda;

mulai

jika arg1 < 0 maka

hasil := arctan(arg2/arg1)+Pi

kalau tidak

jika arg1>0 maka

hasil := arctan(arg2/arg1)

kalau tidak

jika arg2 > 0 maka

hasil := 0,5 * Pi

kalau tidak

hasil := -0,5 * Pi;

akhir;

fungsi sinh(arg1:ganda):ganda;

mulai

hasil := (exp(arg1)-exp(-arg1))*0.5;

akhir;

fungsi cosh(arg1:ganda):ganda;

mulai

hasil := (exp(arg1)+exp(-arg1))*0.5;

akhir;

fungsi ranjang bayi(arg1:ganda):ganda;

mulai

jika Abs(arg1)>0.000000001 maka hasil := cotan(arg1) else hasil :=100000;

akhir;

fungsi cotrad(arg1:ganda):ganda;

mulai

hasil := cotan(DegToRad(arg1));

akhir;

fungsi detik(arg1:ganda):ganda;

mulai

hasil := 1/cos(arg1);

akhir;

fungsi cosec(arg1:ganda):ganda;

mulai

jika Abs(arg1)>0,000000001 maka hasil:= 1/sin(arg1) else hasil:=1000000;

akhir;

fungsi tanrad(arg1:ganda):ganda;

mulai

hasil := tan(DegToRad(arg1));

akhir;

fungsi sinrad(arg1:ganda):ganda;

mulai

hasil := sin(DegToRad(arg1));

akhir;

fungsi cosrad(arg1:ganda):ganda;

mulai

hasil := cos(DegToRad(arg1));

akhir;

fungsi cosecrad(arg1:ganda):ganda;

mulai

hasil := 1/sin(DegToRad(arg1));

akhir;

fungsi secrad(arg1:ganda):ganda;

mulai

hasil:= 1/cos(DegToRad(arg1));

akhir;

fungsi blanc(arg1:ganda):ganda;

Var

suhu,res:diperpanjang;

hitungan: bilangan bulat;

mulai

Mulai

res:=0;

untuk hitungan := 0 sampai 49 lakukan

mulai

arg1:=arg1-int(arg1-(Ord(arg1<0)));

jika (arg1)<0,5 maka temp:=(arg1) else temp:=(1-arg1);

res:=res+ temp/(power(2,count));

arg1:=2*arg1;

akhir;

akhir;

hasil:=res;

akhir;

fungsi min(arg1,arg2:ganda):ganda;

mulai

jika arg1 < arg2 maka

hasil := arg1

kalau tidak

hasil := arg2;

akhir;

fungsi maks(arg1,arg2:ganda):ganda;

mulai

jika arg1 < arg2 maka

hasil := arg2

kalau tidak

hasil := arg1;

akhir;

fungsi heaviside(arg1:ganda):ganda;

mulai

jika arg1 < 0 maka

hasil := 0

kalau tidak

hasil := 1;

akhir;

tanda fungsi(arg1:ganda):ganda;

mulai

jika arg1 < 0 maka

hasil := -1

kalau tidak

jika arg1 > 0 maka

hasil := 1.0

kalau tidak

hasil := 0,0;

akhir;

fungsi nol(arg1:ganda):ganda;

mulai

jika arg1 = 0,0 maka

hasil := 0,0

kalau tidak

hasil:= 1.0;

akhir;

fungsi ceil(arg1:ganda):ganda;

mulai

jika frac(arg1) > 0 maka

hasil:= int(arg1 + 1)

kalau tidak

hasil:= int(arg1);

akhir;

fungsi lantai(arg1:ganda):ganda;

mulai

jika frac(arg1) < 0 maka

hasil:= int(arg1 - 1)

kalau tidak

hasil:= int(arg1);

akhir;

radius fungsi(arg1,arg2:ganda):ganda;

mulai

hasil:= sqrt(sqr(arg1)+sqr(arg2));

akhir;