Question

一个函数问题

Answer 1

把下面代码保存成一个模块，需要的时候就能直接调用了。集合了全部三角函数。很实用。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Function
Sec(X)
As
Double
'正割

Sec
=
1
/
Cos(Angle)
End
Function
Function
Csc(X)
As
Double
'余割

Csc
=
1
/
Sin(Angle)
End
Function
Function
Cot(X)
As
Double
'余切

Cot
=
1
/
Tan(Angle)
End
Function
Function
ArcSin(X)
As
Double
'反正弦

ArcSin
=
Atn(X
/
Sqr(-X
*
X
+
1))
End
Function
Function
ArcCos(X)
As
Double
'反余弦

ArcCos
=
Atn(-X
/
Sqr(-X
*
X
+
1))
+
2
*
Atn(1)
End
Function
Function
ArcSec(X)
As
Double
'反正割

ArcSec
=
Atn(X
/
Sqr(X
*
X
-
1))
+
Sgn((X)
-
1)
*
(2
*
Atn(1))
End
Function
Function
ArcCsc(X)
As
Double
'反余割

ArcCsc
=
Atn(X
/
Sqr(X
*
X
-
1))
+
(Sgn(X)
-
1)
*
(2
*
Atn(1))
End
Function
Function
ArcCot(X)
As
Double
'反余切

ArcCot
=
Atn(X)
+
2
*
Atn(1)
End
Function
Function
HSin(X)
As
Double
'双曲正弦

HSin
=
(Exp(X)
-
Exp(-X))
/
2
End
Function
Function
HCos(X)
As
Double
'双曲余弦

HCos
=
(Exp(X)
+
Exp(-X))
/
2
End
Function
Function
HTan(X)
As
Double
'双曲正切

HTan
=
(Exp(X)
-
Exp(-X))
/
(Exp(X)
+
Exp(-X))
End
Function
Function
HSec(X)
As
Double
'双曲正割

HSec
=
2
/
(Exp(X)
+
Exp(-X))
End
Function
Function
HCsc(X)
As
Double
'双曲余割

HCsc
=
2
/
(Exp(X)
-
Exp(-X))
End
Function
Function
HCot(X)
As
Double
'双曲余切

HCot
=
(Exp(X)
+
Exp(-X))
/
(Exp(X)
-
Exp(-X))
End
Function
Function
HArcsin(X)
As
Double
'反双曲正弦

HArcsin
=
Log(X
+
Sqr(X
*
X
+
1))
End
Function
Function
HArccos(X)
As
Double
'反双曲余弦

HArccos
=
Log(X
+
Sqr(X
*
X
-
1))
End
Function
Function
HArctan(X)
As
Double
'反双曲正切

HArctan
=
Log((1
+
X)
/
(1
-
X))
/
2
End
Function
Function
HArcsec(X)
As
Double
'反双曲正割

HArcsec
=
Log((Sqr(-X
*
X
+
1)
+
1)
/
X)
End
Function
Function
HArccsc(X)
As
Double
'反双曲余割

HArccsc
=
Log((Sgn(X)
*
Sqr(X
*
X
+
1)
+
1)
/
X)
End
Function
Function
HArccot(X)
As
Double
'反双曲余切

HArccot
=
Log((X
+
1)
/
(X
-
1))
/
2
End
Function
Function
LogN(N,
X)
'以
N
为底的对数

LogN
=
Log(X)
/
Log(N)
End
Function

Answer 2

（1）y=(80-60)x-2×0.5x-8000
∴y=19x-8000（x>421且x为整数）
（2）将y=106000带入（1）中函数，得
19x-8000=106000
19x=114000
x=6000
答：本月生产的数目为6000件。

Answer 3

实函数就是程序的子程序
是你程序的一部分
一般用模块化编程可以简化整个程序
让你的代码清晰明了
比如
我定义一个做加法的函数
function
add(x,y:integer;):integer
begin
add:=x+y;
end;
我调用add(1,2)的时候
就会返回3了

Answer 4

k(2,-2)或者k(-2,2),反比例函数图像忘了，你看能不能根据图像排除一个，如果不能，就两个答案

Answer 5

请问你几年级？
将p(a,b)
代入反比例函数，得到p（a,k/a）,利用韦达定理，a
+
k/a
=
-k
,
a*
k/a
=
4
,得到
k=
4，方程的解即是
x1=x2
=-2，所以
p(-2,-2)