1、Math 库实用汇总在 FP 中，Math 库为我们提供了丰富的数学函数。以下介绍在 OI 中可能会用到的 Math库中一些函数、过程。使用方法：在程序头用 Uses 语句加载 Math 库例子：Program Ex_Math;Uses Math;BeginWriteln(hypot(3,4);End.函数介绍： hypot原型：function hypot(x:float;y:float):float功能：返回直角三角形中较长边的长度，也就是 sqrt(sqr(x)+sqr(y) ceil原型：function ceil(x:float):Integer功能：返回比参数大的最小整数引发错误：
2、在 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
3、 的 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):Integerf
4、unction Max(a:Int64;b:Int64):Int64function Max(a:Extended;b:Extended):Extended功能：返回 a 与 b 中较大的一个 Min原型：function Min(a:Integer;b:Integer):Integerfunction Min(a:Int64;b:Int64):Int64function Min(a:Extended;b:Extended):Extended功能：返回 a 与 b 中较小的一个 arcsin原型：function arcsin(x:float):float功能：返回 x 的反正弦值，返回的是弧
5、度指 单位 arccon原型：function arccon(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功能：返回双曲线的反余弦 arctan
6、h原型：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):f
7、loat功能：返回角度转换成弧度之后的值 radtocycle原型：function radtocycle(rad:float):float功能：返回弧度转换成圆的份数之后的值 radtodeg原型：function radtodeg(rad:float):float功能：返回弧度转换成角度之后的值 MaxValue原型：function maxvalue(const data:Array of float):floatfunction maxvalue(const data:Array of Integer):Integerfunction maxvalue(const data:PFloa
8、t;const N:Integer):floatfunction maxvalue(const data:PInteger;const N:Integer):Integer功能：返回数组中的最大值 MinValue原型：function minvalue(const data:Array of float):floatfunction minvalue(const data:Array of Integer):Integerfunction minvalue(const data:PFloat;const N:Integer):floatfunction MinValue(const Data
9、:PInteger;const N:Integer):Integer功能：返回数组中的最小值 sum原型：function sum(const data:Array of float):floatfunction 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
10、data:PFloat;const N:Integer;var sum:float;var sumofsquares:float)功能：将数组中的数求和方如 num 中，求平方和放入 sumofsquares 中例子：（注：以下全都在已经 uses math 的前提下进行的。 ）beginWriteln(hypot(6,8); /输出 10。102=62+82end.beginwriteln(ceil(3.4);/4writeln(ceil(3.7);/4writeln(ceil(-3.4);/-3writeln(ceil(-3.7);/-3writeln(floor(3.4);/3write
11、ln(floor(3.7);/3writeln(floor(-3.4);/-4writeln(floor(-3.7);/-4end.beginwriteln(power(1.1,1.1):2:3);writeln(power(-1.1,3):2:3);writeln(power(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.0000writeln(ldexp(0.5,3):8
12、:4);/ 4.0000writeln(ldexp(-3,3):8:4); / -24.000Writeln(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.beginwriteln(arccos(0.5)/pi);writeln(arcsin(0.5
13、)/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);/反余弦 | Rwriteln(arsinh(2);/反正弦 | Rwriteln(artanh(0.1);/反正切 | -1,1write
14、ln(cosh(2);/余弦 | Rwriteln(sinh(2);/正弦 | Rwriteln(tanh(2);/正切 | Rend.begin/角度、弧度、圆的相互转换 ,圆是指这么大的角占多少个圆writeln(cycletorad(1/6)/pi);/圆到弧度writeln(degtorad(90)/pi);/角度到弧度writeln(radtocycle(pi/2);/弧度到圆writeln(radtodeg(pi/3);/弧度到角度end.VarI:Integer;a:array1.10 of float;/一定要是 longint 或 float，就是 32 为变量beginRandomize ;for I:=low(a) to high (a) do beginai:=random(10);write(ai: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.
