pascal里math庫函數有哪些？
Program Ex_Math;
Uses Math;
Begin
Writeln(hypot(3,4));
End.
函數介紹：
? hypot
原型：function hypot(x:float;y:float):float
功能：返回直角三角形中較長邊的長度，也就是sqrt(sqr(x)+sqr(y))
? ceil
原型：function ceil(x:float):Integer
功能：返回比參數大的最小整數
引發錯誤：在x超出Integer的范圍時會引發溢出錯誤
? floor
原型：function floor(x:float):Integer
功能：返回參數小的最大整數
引發錯誤：在x超出Integer的范圍時會引發溢出錯誤
? power
原型：function power(base:float;exponent:float):float
功能：返回base的exponent次方
引發錯誤：在base為負數且exponent為小數時
? intpower
原型：function intpower(base:float;const exponent:Integer):float
功能：返回base的exponent次方
? ldexp
原型：function ldexp(x:float;const p:Integer):float
功能：返回2的p次方乘以x
? log10
原型：function log10(x:float):float
功能：返回x的常用對數
? log2
原型：function log2(x:float):float
功能：返回x以2為底的對數
? logn
原型：function logn(n:float;x:float):float
功能：返回x以n為底的對數
? Max
原型：function Max(a:Integer;b:Integer):Integer
function Max(a:Int64;b:Int64):Int64
function Max(a:Extended;b:Extended):Extended
功能：返回a與b中較大的一個
? Min
原型：function Min(a:Integer;b:Integer):Integer
function Min(a:Int64;b:Int64):Int64
function Min(a:Extended;b:Extended):Extended
功能：返回a與b中較小的一個
? arcsin
原型：function arcsin(x:float):float
功能：返回x的反正弦值，返回的是弧度指單位
? arccos
原型：function arccos(x:float):float
功能：返回x的反余弦值，返回的是弧度指單位
? tan
原型：function tan(x:float):float
功能：返回x的正切值，x以弧度為單位
? cotan
原型：function cotan(x:float):float
功能：返回x的余切值，x以弧度為單位
? arcsinh
原型：function arcsinh(x:float):float
功能：返回雙曲線的反正弦
? arccosh
原型：function arccosh(x:float):float
功能：返回雙曲線的反余弦
? arctanh
原型：function arctanh(x:float):float
功能：返回雙曲線的反正切
? sinh
原型：function sinh(x:float):float
功能：返回雙曲線的正弦
? cosh
原型：function sinh(x:float):float
功能：返回雙曲線的正弦
? tanh
原型：function sinh(x:float):float
功能：返回雙曲線的正切
? cycletorad
原型：function cycletorad(cycle:float):float
功能：返回圓的份數轉換成弧度之后的值
? degtorad
原型：function degtorad(deg:float):float
功能：返回角度轉換成弧度之后的值
? radtocycle
原型：function radtocycle(rad:float):float
功能：返回弧度轉換成圓的份數之后的值
? radtodeg
原型：function radtodeg(rad:float):float
功能：返回弧度轉換成角度之后的值
? MaxValue
原型：function maxvalue(const data:Array[] of float):float
function maxvalue(const data:Array[] of Integer):Integer
function maxvalue(const data:PFloat;const N:Integer):float
function maxvalue(const data:PInteger;const N:Integer):Integer
功能：返回數組中的最大值
? MinValue
原型：function minvalue(const data:Array[] of float):float
function minvalue(const data:Array[] of Integer):Integer
function minvalue(const data:PFloat;const N:Integer):float
function MinValue(const Data:PInteger;const N:Integer):Integer
功能：返回數組中的最小值
? sum
原型：function sum(const data:Array[] of float):float
function sum(const data:PFloat;const N:LongInt):float
功能：求數組中所有數之和
? sumsandsquares
原型：procedure sumsandsquares(const data:Array[] of float;var sum:float;
var sumofsquares:float)
procedure sumsandsquares(const data:PFloat;const N:Integer;
var sum:float;var sumofsquares:float)
功能：將數組中的數求和放入num中，求平方和放入sumofsquares中
? **
原型：function operator **(float,float):float(bas:float;expo:float):float
function operator **(Int64,Int64):Int64(bas:Int64;expo:Int64):Int64
功能：同等于Power，這是乘方的操作符
例子：（注：以下全都在已經uses math的前提下進行的。）
begin
Writeln(hypot(6,8)); //輸出10。10^2=6^2+8^2
end.
＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝―
begin
writeln(ceil(3.4));//4
writeln(ceil(3.7));//4
writeln(ceil(-3.4));//-3
writeln(ceil(-3.7));//-3
writeln(floor(3.4));//3
writeln(floor(3.7));//3
writeln(floor(-3.4));//-4
writeln(floor(-3.7));//-4
end.
＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝―
begin
writeln(power(1.1,1.1):2:3);
writeln(power(-1.1,3):2:3);
writeln(power(1.1,-1.1):2:3);
writeln(2**3);
writeln(1.1**(-1.1):2:3);
writeln(intpower(1.1,2):2:3);
writeln(intpower(4.1,-2):2:3);
writeln(intpower(-1.1,2):2:3);
writeln(ldexp(2,4):8:4); // 32.0000
writeln(ldexp(0.5,3):8:4);// 4.0000
writeln(ldexp(-3,3):8:4); // -24.000
Writeln(Log10(10):8:4);
Writeln(Log10(1):8:4);
Writeln(Log10(0.1):8:4);
Writeln(Log2(4):8:4);
Writeln(Log2(0.5):8:4);
Writeln(Logn(3,4):8:4);
Writeln(Logn(exp(1),exp(1)):8:4);
writeln(max(1,2));
writeln(min(1,2));
end.
＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝―
begin
writeln(arccos(0.5)/pi);
writeln(arcsin(0.5)/pi);
writeln(arctan(0.5)/pi); //這個不在math庫里,在system庫里就有
writeln(cos(pi/6)); //這個不在math庫里,在system庫里就有
writeln(sin(pi/6)); //這個不在math庫里,在system庫里就有
writeln(tan(pi/6));
writeln(cotan(pi/6));
end.
＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝―
begin
//返回的是雙曲線的 | 定義域
writeln(arcosh(2));//反余弦 | [R]
writeln(arsinh(2));//反正弦 | [R]
writeln(artanh(0.1));//反正切 | [-1,1]
writeln(cosh(2));//余弦 | [R]
writeln(sinh(2));//正弦 | [R]
writeln(tanh(2));//正切 | [R]
end.
＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝―
begin
//角度、弧度、圓的相互轉換,圓是指這么大的角占多少個圓
writeln(cycletorad(1/6)/pi);//圓到弧度
writeln(degtorad(90)/pi);//角度到弧度
writeln(radtocycle(pi/2));//弧度到圓
writeln(radtodeg(pi/3));//弧度到角度
end.
＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝－＝―
Var
I:Integer;
a:array[1..10] of float;//一定要是longint或float，就是32為變量
begin
Randomize ;
for I:=low(a) to high (a) do begin
a[i]:=random(10);
write(a[i]:2:2,' ');
end;
writeln;
writeln(MaxValue(a):2:2);//數組中的最大值
writeln(MinValue(a):2:2);//數組中的最小值
writeln(sum(a):2:2);//數組中所有元素的和,只有float能用
sumsandsquares(a,s,ss);//s為和,ss為平方和,只有float能用
writeln(s:2:2,' ',ss:2:2);
end.